Bonjour à tous,

j'essaye désespérément de remplir une liste déroulante d'un formulaire acces avec les contacts Outlook. J'ai essayé le code suivant (mais je début sur VBA - Outlook)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Load()
Dim OutApp As Outlook.Application
Dim OutContact As Outlook.ContactItem
Dim OutSpace As Outlook.Namespace
Dim OutFolder As Outlook.Folder
 
Set OutApp = Outlook.Application
Set OutSpace = OutApp.GetNamespace("MAPI")
Set OutFolder = OutSpace.GetDefaultFolder(olFolderContacts)
 
For i = 1 To OutFolder.Items.Count
Set OutContact = OutFolder.Items(i)
Me.Cliste.AddItem OutContact.FullName
Next
End Sub
Cela me génère une erreur 13 : Incompatibilité de type sur :
Set OutContact = OutFolder.Items(i)

Quelqu'un aurait il une explication ?

Merci d'avance