Création de mail par excel vers Lotus Notes
Suite au changement de 3 postes sur 5 dans notre bureau (nous sommes passés de fixe à portable) une macroVB (qui fonctionnait sur tous les postes avant) ne fonctionne que sur les PC, et pas sur les portable, alors que nous avons les mêms versions de Lotus Notes...
Voici le code :
Code:
1
2
3
4
5
6
7
8
9
10
| Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GetDatabase("", MailDbName)
If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL |
Je n'arrive pas à comprendre ce qui ne marche pas ? Le répertoire où sont stockés les informations de Lotus n'est pas le même sur le portable et sur les PC, mais ce code n'y fait pas référence... Je ne pense pas que ce soit ça..
Le message d'erreur quand on met un espion express (dès Setsession) est "Un composant activeX ne peut pas créer d'objet" J'ai coché les options activeX dans Lotus, mais cela ne marche toujours pas...
Pourriez vous m'aider ?
Merci !!
