envoyer un mail en VB

Marsh Posté le 08-06-2004 à 17:17:11

bonjour,
j'essaye désesperement d'envoyer un mail avec un script vb mais je tombe éternellement sur le même message d'erreur :
Erreur 800a01ad : "Un composant activeX ne peut pas créer un objet 'CDO.Message'"
voila mon code :

Sub SendMessage (strTo, strSubject, strBody)

'Set oMsg = CreateObject("CDO.Message" )

oMsg.To = strTo
oMsg.From = WorkflowSession.Sender
oMsg.Subject = strSubject
oMsg.TextBody = strBody
oMsg.Send

Set oMsg = Nothing

End Sub

Existe-t-il un moyen de ne plus avoir ce message d'erreur ??? (j'ai déjà essayé les commandes du genre regsvr32 CDONTS.dll)
merci

Marsh Posté le 08-06-2004 à 17:17:11

Marsh Posté le 08-06-2004 à 17:18:30

eu je vous rassure la ligne "set oMsg....." normalement y a pas le guillemet devant !

Marsh Posté le 09-06-2004 à 08:04:11

je connais même pas CDO [:joce]

t'as plusieurs solutions:
Outlook.Application
MAPI
ou encore, taper directement dans le protocole SMTP.

Les exemples abondent sur le net :jap:

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *