LISTAR CONTATOS DO OUTLOOK
Boa tarde,
Estive pesquisando sobre como listar os Meus Contatos do Outlook no VB, porem o que encontrei mostra com listar, mas não trabalhando com a biblioteca do Outlook (MAPI).Gostaria de realiazar o procedimento para carregar determinada lista de contatos utilizando a biblioteca (MAPI) e suas propriedades. ContactItem.
agradeço desde já
Estive pesquisando sobre como listar os Meus Contatos do Outlook no VB, porem o que encontrei mostra com listar, mas não trabalhando com a biblioteca do Outlook (MAPI).Gostaria de realiazar o procedimento para carregar determinada lista de contatos utilizando a biblioteca (MAPI) e suas propriedades. ContactItem.
agradeço desde já
consegui. Caso alguem precise e só trocar o local onde será descarregado os contatos.
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
Set ContactItem = myFolder.items()
'--------------------------------------------------------------------------------------
NumeroDeContatos = ContactItem.Count
If NumeroDeContatos <> 0 Then
For i = 1 To NumeroDeContatos
If TypeName(ContactItem(i)) = "ContactItem" Then
Set Contatos = ContactItem(i)
With sprMeusContatos
linha = linha + 1
.MaxRows = linha
.Row = linha
.SetText 1, linha, Contatos.FirstName
.SetText 2, linha, Contatos.LastName
.SetText 3, linha, Contatos.Email1Address
.SetText 4, linha, Contatos.BusinessTelephoneNumber
If total <> 0 Then
.Col = 6
.Value = "1"
End If
End With
End If
Next
End If
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
Set ContactItem = myFolder.items()
'--------------------------------------------------------------------------------------
NumeroDeContatos = ContactItem.Count
If NumeroDeContatos <> 0 Then
For i = 1 To NumeroDeContatos
If TypeName(ContactItem(i)) = "ContactItem" Then
Set Contatos = ContactItem(i)
With sprMeusContatos
linha = linha + 1
.MaxRows = linha
.Row = linha
.SetText 1, linha, Contatos.FirstName
.SetText 2, linha, Contatos.LastName
.SetText 3, linha, Contatos.Email1Address
.SetText 4, linha, Contatos.BusinessTelephoneNumber
If total <> 0 Then
.Col = 6
.Value = "1"
End If
End With
End If
Next
End If
Tópico encerrado , respostas não são mais permitidas