Bonjour,
j'ai ecrit ce code :
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
 
Dim MAPIMessage
Dim MAPISession
 
Set MAPIMessage = CreateObject("MSMAPI.MAPIMessages")
Set MAPISession = CreateObject("MSMAPI.MAPISession")
 
MAPISession.SignOn
MAPIMessage.MsgIndex = -1
MAPIMessage.MsgNoteText = " "
MAPIMessage.SessionID = MAPISession.SessionID
MAPIMessage.AttachmentPathName = "d:\email.png"
MAPIMessage.MsgSubject = "aa"
 
MAPIMessage.Send (True)
Sur mon PC pas de souci, tout est OK
en revanche sur les PC de prod

et il me renvoit cette erreur.
Erreur d'exécution '429' :
Un composant ActiveX ne peut pas créer d'objet
Que je mette MSMAPI32.OCX en référence ou non le pb est le même
J'ai vérifié MSMAPI est bien activé dans le win.ini.
Je ne sais pas quoi faire.
Avez-vous dèjà recontré ce pb et solutionné ???
Merci d'avance
Gancau