Envoyer mail avec MsMapi

Bonjour,
j'ai ecrit ce code :

Code:

---

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.

Citation:

---

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

Il me semble que pour utiliser la MAPI il faut que Outlook soit installé sur le poste.

il faut que l'ocx soit présent sur la machine cliente et registré (via regsvr32)

sinon y a une fonction d'envoi de mail dans le framework qui permet d'éviter d'utiliser d'autres composants

Bart-Rennes : Outlook est bien installé sur les machines et lancé
Gancau

Je rajoute : la messagerie passe par exchange.

Je continue mes tests.
Faire un regsvr32 sur l'Ocx ne change rien au pb.
Je ne peux pas passer par le frameworrk car ce bout de code doit ensuite être transcrit dans un autre langage.
J'ai regardé les contrôles de sécurité, la version IE.
Je suis dans la même config que celle du poste de prod, mais lui il a le pb 8O
Gancau