bonjour,
J'avais programmé pour m'amuser un petit truc sur outlook, histoire de comprendre comment ça fonctionnait en gros.
Bon j'aimerai bien d'une part arriver a le faire fonctionner dans une autre architecture sous excel. Malheureusement je pense qu'il doit y avoir une référence a mettre et je n'arrive pas a trouver laquelle.
voici le code :
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
16
17
18
19
 
Sub tt()
 
Dim myNameSpace As Outlook.Namespace
Dim myContacts As MAPIFolder
Dim MonItem As Outlook.ContactItem
 
Set myNameSpace = Application.GetNamespace("MAPI")
Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts)
 
 
For Each MonItem In myContacts.Items
    txt = txt & Chr(13) & (MonItem.Email1Address)
    On Error Resume Next
Next
 
MsgBox txt
 
End Sub
Il bloque au niveau de la définition de mycontact, il ne connait pas MAPIfolder.

Après une fois que j'ai fais ceci j'aimerai bien pouvoir lire toutes les informations présentes sur la fiche "contact" autre que le mail professionnel.

En espérant avoir été assez clair...