✔ Programação GLOBAL®: VBA Outlook - Obter informações de um contato vinculado

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

Acesse: http://goo.gl/0v6AO

Só para convencionarmos, o MS Outlook não é um banco de dados relacional. Qualquer visão das suas pastas mostram apenas os dados contidos nela. Mesmo que o Outlook permita que pensemos de outra forma, nos permitindo adicionar campos de diferentes tipos de itens na pasta.

Este exemplo de código VBA mostra como adicionar os dados da conta de um contato vinculado a um AppointmentItem embutido no campo BillingInformation, que você pode adicionar à exibição da pasta Calendário. Este código tira vantagem do fato de que cada ligação resolvido na coleção AppointmentItem.Links tem uma propriedade item que aponta para o ContactItem.

Dim WithEvents m_colCalItems As Outlook.Items

Private Sub Application_Startup()

   Dim objNS As Outlook.NameSpace

   Set objNS = Application.GetNamespace("MAPI")

   Set m_colCalItems = objNS.GetDefaultFolder(olFolderCalendar).Items

   Set objNS = Nothing

End Sub

Private Sub m_colCalItems_ItemAdd(ByVal Item As Object)

   Dim objContact As Outlook.ContactItem

   Dim strAccount As String

   If Item.Links.Count = 1 Then

   Set objContact = Item.Links(1).Item

   strAccount = objContact.Account

   If strAccount <> "" Then

   Item.BillingInformation = strAccount

   Item.Save

   End If

   End If

   Set objContact = Nothing

End Sub

Private Sub m_colCalItems_ItemChange (ByVal Item As Object)

   Dim objContact As Outlook.ContactItem

   Dim strAccount As String

   Select Case Item.Links.Count

   Case 1

   Set objContact = Item.Links(1).Item

   strAccount = objContact.Account

   If strAccount <> Item.BillingInformation Then

   Item.BillingInformation = strAccount

   Item.Save

   End If

   Case 0

   If Item.BillingInformation <> "" Then

   Item.BillingInformation = ""

   Item.Save

   End If

   End Select

   Set objContact = Nothing

End Sub