Discussion :

[warubi]

Bonjour a tous ! Souhaitant creer un logiciel permettant de gerer l'identite des contacts dans outlook, j'aimerais savoir comment recuperer les adresses des contacts presents dans le carnet de outlook
Merci d'avance !

[warubi]

J'ai cherche partout sur le net mais je ne trouve rien de bien. C'est pour cela que j'en appelle a votre aide !

[The_badger_man]

tu as ça: http://faqcsharp.developpez.com/?pag...tlook_contacts

[warubi]

Merci mais c'est du c#. N'y aurait-il pas une equivalence en vb.Net par hasard ?

[bidou]

ca va donner à peu près

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
        'Creer une instance d'Application Outlook
        Dim m_ObjOutlookApp As New Outlook.ApplicationClass()
        ' Recuperer le NameSpace
        Dim n As Outlook.NameSpace = m_ObjOutlookApp.GetNamespace("mapi")
        'Recuperer le Repertoire Contact
        Dim f As Outlook.MAPIFolder = n.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
        Dim Cnt As Outlook.ContactItem
        For cmpt As Long = 1 To f.Items.Count
            Cnt = TryCast(f.Items.Item(cmpt), Outlook.ContactItem)
            If Cnt IsNot Nothing AndAlso Cnt.Email1Address IsNot Nothing Then
                Me.ListBox1.Items.Add(Cnt.Email1Address)
            End If
        Next

[warubi]

Le seul probleme c'est qu'il ne reconnait pas le type Outlook

[warubi]

J'ai un petit probleme ! Je ne trouve pas dans COM microsoft outlook....
Comment puis-je faire pour l'installer ?

[Aspic]

Voila des explications ici !
http://support.microsoft.com/kb/313793

[JauB]

je ne sais pas , mais je pense que si tu as office ( pour moi c'est office 2003) tu auras cet objet sans problème!
sinon je t'envoie le fichier en question si tu veux...

[warubi]

Non non je n'ai pas cet objet. Pourrais-tu me l'envoyer si ca ne te derange pas ?

[JauB]

avec plaisir. il est en fichier joint.
Bon courage.