Discussion :

[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

[SfJ5Rpw8]

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 :

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

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

[petitours]

Bonjour

Merci pour ce bout de code qui fonctionne à merveille.

Comment peut on savoir si le contact que l'on s’apprête à ajouter n'existe pas déjà afin de ne pas l'ajouter le cas échéant ?

Le code fourni ici fonctionne à merveille...mais à l'infini, Mr Julien Jacques n'existe pourtant qu'une seule fois !

Merci

[petitours]

Bonjour

Je m'en suis sorti en plaçant l'identifiant de mon contact dans ma base access dans le champ "user1" des contacts outlook

[fredlesbre]

Bonjour à tous,
je reviens sur ce post afin de vous demander une information complémentaire à la création de contact.
Serait il possible de faire la même démarche, mais sans activer la ref Outlook?
En effet, cela serait pour moi plus pratique car elle est source de bug quand le fichier est utilisé par plusieurs versions d'office dans un parc informatique...
Merci d'avance pour votre retour!
Cordialement
Fred

[Oliv-]

Bonsoir,

Oui,
il faut remplacer toutes les déclarations de variables
"As Outlook.Application" par "AS Object"
et indiquer la valeur des constantes OUTLOOK

Code :

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

const olContactItem = 2

etc..

indiquer EN HAUT DU MODULE "Option Explicit" pour ne pas en oublier.