Bonjour,

J'ai dévellopé une appli VBA pour synchroniser des contacts d'une base access avec le client Outlook du poste qui lance la macro.

Je cherche à lancer ma macro grâce à un compte administrateur (le mdp ne change jamais) et donc ne plus avoir à modifier la tâche planifiée.
Mais le fait est que si je lance avec le compte administrateur, il synchronise les contacts avec Outlook du compte administrateur et pas de mon utilisateur toto.

Comment changer mon code ci-dessous pour qu'il se connecte au compte toto ?

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
 Dim oCont As ContactItem
    Dim oCo As ContactItem
    Dim oFold As Folder
    Dim nM As Namespace
    Dim olApp As Outlook.Application
    Dim stFilt As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
 
Set db = OpenDatabase("\\serveur\partage\Contacts.mdb")
    Dim requete As String
requete = "SELECT ..."
 
 Set rs = db.OpenRecordset(requete)
 
    Set olApp = Outlook.Application
    Set nM = olApp.GetNamespace("MAPI")
    Set oFold = nM.GetDefaultFolder(olFolderContacts)
Pour info, j'ai bien vu cette page :
http://excel.developpez.com/sources/?page=Outlook

Merci pour votre aide