Discussion :

[EvaristeGaloisBis]

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...

[SilkyRoad]

bonsoir

Tu peux utiliser cette procédure après avoir activé la référence "Microsoft Outlook xx.x Object Library".

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
Dim olApp As Outlook.Application
Dim Cible As Outlook.ContactItem
Dim dossierContacts As Outlook.MAPIFolder
Dim Resultat As String
 
Set olApp = New Outlook.Application
Set dossierContacts = _
    olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
 
On error Resume Next
For Each Cible In dossierContacts.Items
    Resultat = Resultat & Cible.Email1Address & vbLf
Next Cible
 
MsgBox Resultat

bonne soirée
michel