Discussion :

[dante591]

Bonjour à tous !

Je vous explique un peu ce que je voudrais faire.
J'ai un formulaire unique lié à une table avec des informations sur des contacts ( adresse, téléphone ,etc ...).
Je voudrais pouvoir cliquer sur un bouton dans mon formulaire afin que l'enregistrement sur lequel je suis s'enregistre directement comme contact de mon Outlook.

Est ce réalisable?

Je sais exporter toute une table manuellement (en passant par un fichier csv => export de la table en fichier texte) et faire le mappage pour importer dans mes contacts Outlook; mais je ne sais pas:
-automatiser tout cela par un simple clique
-exporter un seul enregistrement à la fois

J'ai déjà exploiter la piste de la macro EnregistrersouscontactOutlook, mais cela ne fonctionne pas. Un message d'erreur m'indique que cette action n'est pas disponible.

Comment dois je procéder?

Merci d'avance à ceux qui pourront m'éclairer de leurs lumières

[helas]

Bonjour,

Voir la FAQ :

http://access.developpez.com/faq/?pa...joutContactLst

en modifiant dans ce style

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub bouton_Click()
  ............ 
  ............
  Set myFolder = myNameSpace.Folders("dante591@machin.fr")
  Set myContactFolder = myFolder.Folders("Contacts")
  ............
End Sub

[dante591]

Super ! Ca marche !

Mais si je partage ma base, comment faire pour que la personne qui l'utilisera enregistre le contact non pas sur mon compte Outlook mais sur le sien sans avoir à changer le code?

C'est possible?

[dante591]

Pour ceux que cela intéresse j'ai trouvé une sorte d'alternative. Je choisis le compte dans lequel je veux enregistrer manuellement avec la fonction Pickfolder

Code :

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

1
2
3
4
5
6
7
8
Dim myNameSpace As NameSpace
   Dim myFolder, myContactFolder As MAPIFolder
   Dim myNewContact As Outlook.ContactItem
 
   Set myOlApp = CreateObject("Outlook.Application")
   Set myNameSpace = myOlApp.GetNamespace("MAPI")
   Set myFolder = myNameSpace.PickFolder
   Set myContactFolder = myFolder.Folders("contacts")

Du coup lorsque je clique sur mon bouton je peux sélectionner mon compte et les autres personnes qui utiliseront la base pourront faire de même avec le leur.