Discussion :

[franckb74]

Bonjour,

La macro intégrée : AjouterContactDepuisOutlook ne fonctionne plus depuis que j'ai fractionné ma base

Merci pour votre aide

[jbsushi]

Hola !
Je ne sais pas si tu as résous ton problème depuis le temps, mais j'ai quelque chose qui devrait t'interesser

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

T'as juste a changer le nom du bouton et les éléments du formulaire attribué et ça devrait fonctionner à merveille

[franckb74]

Hello,

Merci pour ta solution, je ne l'ai pas encore testé
Entre temps j'ai réfléchi à une solution.

Afin de pouvoir faire fonctionner la macro AjouterContactDepuisOutlook J'ai tout simplement créé une table dans la base frontale qui reprend à l'identique les champs de la table contact qui est dans la base dorsale.
cette table me sert de table tampon.
Je copie ensuite les données de la table tampon dans la table contact de la base dorsale avec une requête Ajout et supprime ensuite les données de la table contact tampon.
Et ça fonctionne tip top