Comment partager des contacts sur un réseau sans posséder Exchange

[sebinator]

Bonjour,

je dois faire une bdd access de gestion de contacts multi-users synchronisée avec les outlook locaux.

access et outlook sont en version 2003. Je ne dispose de serveur exchange.

on m'a recommandé l'article suivant :
Comment partager des contacts sur un réseau sans posséder Exchange.

Après lecture celui-ci, je pense que cela peut être une bonne base pour démarrer ma bdd mais je me pose quelques questions.

Les codes donnés sont pour outlook 2007 ? y a t'il moyen de les adapter pour outlook 2003 ? je demande cela car en faisant des essais j'obtiens des erreurs

Public Sub ParcourirContact()
Dim oCont As ContactItem
Dim oFold As Folder
Dim nM As NameSpace
Dim olApp As Outlook.Application
 
Set olApp = Outlook.Application
Set nM = olApp.GetNamespace("MAPI")
Set oFold = nM.GetDefaultFolder(olFolderContacts)
For Each oCont In oFold.Items
    Debug.Print oCont.LastName
Next oCont
 
 
End Sub
 

cela bloque sur : Dim oFold As Folder (il ne reconnait pas folder)

par la suite l'article indique :

Sauvegarder les contacts sur le réseau n'a pas de sens si on ne peut faire la manipulation dans l'autre sens.
Pour mettre à jour le dossier contact, on va parcourir les enregistrements de la table et les comparer aux contacts. Si le contact est présent dans la liste, pas de problème, on passe à l'enregistrement suivant. Dès qu'un enregistrement n'est pas trouvé dans les contacts, il y est ajouté.

Comment gérer la mise à jour d'un contact (modif d'un n° de tel, adresse mel...) ?


merci d'avance

Seb

[tAKAmAkA]

Bonjour,

Dim oFold as MAPIFolder

Sinon n'oublie pas msdn