Comment partager des contacts sur un réseau sans posséder Exchange [Résolu]

[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

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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,

Code :

Dim oFold as MAPIFolder

Sinon n'oublie pas msdn