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