Como obter o item atualmente selecionado em uma pasta do Outlook a partir do Visual Basic

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 240935
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Embora seja bastante simples alterar programaticamente o item selecionado em uma pasta do Outlook, Outlook 97 e 98 não expor um método para recuperar o item selecionado em uma pasta. O Outlook 2000, no entanto, expõe uma nova interface para um objeto Selection .
Mais Informações
O exemplo a seguir ilustra como você pode automatizar o Outlook para recuperar informações sobre o item atualmente selecionado em uma pasta usando o objeto Selection .

Exemplo

  1. Inicie um novo projeto Standard EXE no Visual Basic. O Form1 é criado por padrão.
  2. No ambiente do editor do Visual Basic, clique ProjectCommandBar , clique em referências , role para baixo a lista de referências e selecione " biblioteca de objetos do Microsoft Outlook 9.0 ."
  3. Adicione um CommandButton ao Form1 e altere a propriedade Name do CommandButton para GetSelectedItem .
  4. Adicione o código a seguir ao módulo do Form1:
    Private Sub GetSelectedItem_Click()    ' This uses an existing instance if available (default Outlook behavior).    Dim oApp As New Outlook.Application    Dim oExp As Outlook.Explorer    Dim oSel As Outlook.Selection   ' You need a selection object for getting the selection.    Dim oItem As Object             ' You don't know the type yet.        Set oExp = oApp.ActiveExplorer  ' Get the ActiveExplorer.    Set oSel = oExp.Selection       ' Get the selection.        For i = 1 To oSel.Count         ' Loop through all the currently .selected items        Set oItem = oSel.Item(i)    ' Get a selected item.        DisplayInfo oItem           ' Display information about it.    Next iEnd SubSub DisplayInfo(oItem As Object)        Dim strMessageClass As String    Dim oAppointItem As Outlook.AppointmentItem    Dim oContactItem As Outlook.ContactItem    Dim oMailItem As Outlook.MailItem    Dim oJournalItem As Outlook.JournalItem    Dim oNoteItem As Outlook.NoteItem    Dim oTaskItem As Outlook.TaskItem        ' You need the message class to determine the type.    strMessageClass = oItem.MessageClass        If (strMessageClass = "IPM.Appointment") Then       ' Calendar Entry.        Set oAppointItem = oItem        MsgBox oAppointItem.Subject        MsgBox oAppointItem.Start    ElseIf (strMessageClass = "IPM.Contact") Then       ' Contact Entry.        Set oContactItem = oItem        MsgBox oContactItem.FullName        MsgBox oContactItem.Email1Address    ElseIf (strMessageClass = "IPM.Note") Then          ' Mail Entry.        Set oMailItem = oItem        MsgBox oMailItem.Subject        MsgBox oMailItem.Body    ElseIf (strMessageClass = "IPM.Activity") Then      ' Journal Entry.        Set oJournalItem = oItem        MsgBox oJournalItem.Subject        MsgBox oJournalItem.Actions    ElseIf (strMessageClass = "IPM.StickyNote") Then    ' Notes Entry.        Set oNoteItem = oItem        MsgBox oNoteItem.Subject        MsgBox oNoteItem.Body    ElseIf (strMessageClass = "IPM.Task") Then          ' Tasks Entry.        Set oTaskItem = oItem        MsgBox oTaskItem.DueDate        MsgBox oTaskItem.PercentComplete    End If    End Sub					
  5. Pressione a tecla F5 para executar o projeto.
  6. Inicie o Microsoft Outlook.
  7. Selecione qualquer item (ou o número de itens) em qualquer pasta do Outlook.
  8. Alterne para o aplicativo Visual Basic em execução e clique no CommandButton .
  9. Observe que as caixas de mensagem parecer que exibem informações sobre o item selecionado ou os itens.

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 240935 - Última Revisão: 12/05/2015 15:45:15 - Revisão: 2.2

Microsoft Outlook 2000, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0

  • kbnosurvey kbarchive kbmt kbhowto kboutlookobj KB240935 KbMtpt
Comentários