Créer un contact dans outlook avec Access

[jujudu17]

Bonjour,

J'ai farfouillé un peu partout et je n'arrive pas à trouver le moyen de créer un contact dans OUTLOOK (Nom, Fonction, Société, Adresse, ...) à partir d'une base de données Access 2010.

J'ai testé plusieurs code VBA trouvé sur le web mais rien ne fonctionne vraiment.
Est ce que l'un d'entre vous peut m'aider ?

Merci d'avance

[bbil]

tu ne dis pas ce que tu sais faire ...

je suppose que tu sais lire ta base access et ton problème c'est pour l'ajout du contact :
après avoir ajouter outlook aux références :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
     Dim oAPP As Outlook.Application
     Dim oContact As Outlook.ContactItem
     Dim oMAPI 'As Outlook.MAPIFolder
     Set oAPP = CreateObject("Outlook.Application")
    Set oMAPI = oAPP.GetNamespace("MAPI")
    oMAPI.Logon
    Set oContact = oAPP.CreateItem(olContactItem)
    oContact.LastName = " Jacques"
    oContact.FirstName = "Julien"
    oContact.Profession = "Ingénieur commercial"
    oContact.Email1Address = "Julien@gmail.com"
    oContact.NickName = "jujudu17"
    oContact.Save