En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1225020 visiteurs

 16 visiteurs en ligne

Nous contacter

Contact

Lire les contacts

Lire les contacts d'Outlook

Sub ListOutlookContacts()
    On Error Resume Next
    Dim StrContacts As String
    Dim Ol_App As New Outlook.Application
    Dim Ol_Mapi As Outlook.NameSpace
    Dim Ol_Folder As Outlook.MAPIFolder
    Dim Ol_Items As Outlook.Items
    Dim Ol_Contact As Outlook.ContactItem

    Set Ol_Mapi = Ol_App.GetNamespace("MAPI")
    Set Ol_Folder = Ol_Mapi.GetDefaultFolder(olFolderContacts)
    Set Ol_Items = Ol_Folder.Items

    For Each Ol_Contact In Ol_Items
        StrContacts = StrContacts & vbCrLf & _
                      Ol_Contact.FullName & _
                      " - " & Ol_Contact.Email1Address
    Next Ol_Contact

    MsgBox StrContacts

    Set Ol_Contact = Nothing
    Set Ol_Items = Nothing
    Set Ol_Folder = Nothing
    Set Ol_Mapi = Nothing
    Set Ol_App = Nothing

End Sub

Catégorie : Les mémos - Outlook
Page lue 6972 fois
Vous êtes ici :   Accueil » Lire les contacts