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)
Cela me génère une erreur 13 : Incompatibilité de type sur :
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
Set OutContact = OutFolder.Items(i)
Quelqu'un aurait il une explication ?
Merci d'avance
Partager