Importer liste de contact outlook dans listbox Excel

Bonjour Forum,

J'ai un code ici pour importer les adresses courriels d'une liste de contacts qui fonctionne bien.

J'essaye d'y intégré une deuxieme colonne après plusieurs essais .. je viens à vous car le code me semble tout à fait OK

Private Sub GetContacts()

    Dim oOutlookApp As Outlook.Application
    Dim oOutlookNameSpace As Outlook.Namespace
    Dim oContacts As Outlook.MAPIFolder
    Dim oContact As Outlook.ContactItem
    Dim i As Long

    Set oOutlookApp = New Outlook.Application
    Set oOutlookNameSpace = oOutlookApp.GetNamespace("MAPI")
    'Selection du dossier
    Set oContacts = oOutlookNameSpace.GetDefaultFolder(olFolderContacts)

    For i = 1 To oContacts.Items.Count
        If TypeName(oContacts.Items(i)) = "ContactItem" Then
            Set oContact = oContacts.Items(i)
            Me.ListBox1.AddItem oContact.Email1Address
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = oContact.LastNameAndFirstName
        End If
    Next i

    Set oContact = Nothing
    Set oContacts = Nothing
    Set oOutlookNameSpace = Nothing
    Set oOutlookApp = Nothing

End Sub

Edit : j'Avais oublié la propriété ColumCount dans les propriétés de la listbox .. ouh la
OOPS

Rechercher des sujets similaires à "importer liste contact outlook listbox"