Bonjour à tous,
Je cherche à lister mes contacts outlook par un 'debug.print' avec la macro ci dessous
qui fonctionne, mais bug à plusieurs reprises sur l'instruction 'next' sans raison apparente.
Quelqu'un aurait il une idée du problème rencontré?
Merci pour votre aide!!
Cordialement
Fred
Je cherche à lister mes contacts outlook par un 'debug.print' avec la macro ci dessous
qui fonctionne, mais bug à plusieurs reprises sur l'instruction 'next' sans raison apparente.
Quelqu'un aurait il une idée du problème rencontré?
Merci pour votre aide!!
Cordialement
Fred
Code:
Sub ListerContacts()
' Ref outlook activée
Dim olAdr As Outlook.AddressList
Dim folder As Outlook.folder
Dim contact As Outlook.ContactItem
Set olApp = New Outlook.Application
Set olAdr = olApp.Session.AddressLists(1)
Set folder = olAdr.GetContactsFolder
For Each contact In folder.Items
Debug.Print contact.FullName
Next
End Sub