Lancer une macro Excel pour compte Outlook MAPI d'un user
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:
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
