Discussion :

[jbsushi]

Bonjour,
je vous explique mon soucis.
Dans ma base de donnée, je dois créer un fichier client.
L'idéal serait que je puisse, à partir des informations récupérées grâce à mon formulaire de recherche d'information sur les clients, pouvoir à l'aide d'une macro ou d'un code vba ouvrir une fenêtre de création de contact Outlook en partie remplie avec les informations du formulaire.
J'ai essayé d'utiliser la macro "EnregistrerSousOutlookContact", mais sans succès...
Je sais que ceci est réalisable mais étant débutant en Access, j'ai besoin d'aide.

Voici le formulaire en question :



Et la fenêtre de création de contact Outlook:


Merci d'avance pour votre aide ^^

[jbsushi]

Up !

J'ai trouvé quelque chose en farfouillant sur internet, cependant j'ai un soucis.
Le code n'extrait pas les informations de mon formulaire.

Private Sub cmdCreateOutlookContact_Click()

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 = "Nom CVPR"
oContact.Email1Address = "Adresse de messagerie"
oContact.Save

End Sub

Pour être plus clair, il ne récupère pas le "Nom CVPR" ni l' "Adresse de messagerie" et ayant très peu de connaissance en VBA, je ne trouve pas la solution :/

[Robert1957]

Bonjour jbsushi,
Ajoute oContact.Display dans ton code, cela devrait ouvrir ton carnet de contact et tu vas voir ce que Access à inscrit, parce que pour ce qui est du code il est tout à fait valide et devrait fonctionner.
Bonne journée

[Robert1957]

Je viens de regarder une nouvelle fois tes miniatures et je crois que je comprend ce qui se passe...

Code :

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

oContact.LastName = "Nom CVPR"

devrait être

Code :

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

oContact.LastName = me.Nom_CVPR

et de plus avant d'envoyer ce code tu devrais t'assurer que le record est sauvegardé en mettant au début de ton code

Code :

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

Me.Dirty = false

Bonne journée

[jbsushi]

Merci Robert !

Erreur bête de ma part de laisser les guillemets...

Je laisse mon code au cas ou quelqu'un rencontrerait le même problème

Private Sub cmdCreateOutlookContact_Click()
Me.Dirty = False
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 = Me.Nom_CVPR
oContact.BusinessAddressState = Me.DR
oContact.Email1Address = Me.Email
oContact.BusinessTelephoneNumber = Me.Telephone
oContact.BusinessFaxNumber = Me.Fax
oContact.Save

End Sub

Je laisse aussi un lien qui m'a bien aidé : http://www.devhut.net/2010/09/03/vba...tlook-contact/