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
cela bloque sur : Dim oFold As Folder (il ne reconnait pas folder)
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 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
par la suite l'article indique :
Comment gérer la mise à jour d'un contact (modif d'un n° de tel, adresse mel...) ?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é.
merci d'avance
Seb
Partager