Question : Comment obtenir CDO.Message fonctionnant dans VBScript sur des affaires de Vista

Bonjour, le

I AM essayant de passer des paramètres au message de CDO pour envoyer un email mais ne peut pas l'obtenir au code de work.

The que j'ai est comme suit le
de :-

Sub SendEmailMessage (strDestEmail de ByVal, strNTName de ByVal, dtmDate de ByVal) 'envoient l'objEmail de l'objEmail

Set du
dim de l'email message.
=
le de « CDO.Message ")/>objEmail.From = « IL département "
objEmail.To = strDestEmail
objEmail.Subject = « email »
objEmail.Textbody = « votre mot de passe va expirer. « 
objEmail.sendusing = 2
objEmail.smtpserver = « 
objEmail.smtpserverport = 25
objEmail.Configuration.Fields. Update
objEmail.Send

End Sub
I AM rencontrant des erreurs avec les lignes suivantes :-

objEmail.sendusing = 2
objEmail.smtpserver =
objEmail.smtpserverport = 25

and reçoivent le message :-

CDO.Message.1 d'erreur que la valeur de configuration de « SendUsing » est invalid

Thanks pour votre help. class= de

Réponse : Comment obtenir CDO.Message fonctionnant dans VBScript sur des affaires de Vista

Voici ma version de joli le plus ou moins même

Placer l'objMessage = le CreateObject (« CDO.Message »)
objMessage.Subject = « un soumis »
objMessage.From = « [email protected] »
objMessage.To = « [email protected] »
objMessage.TextBody = « salut quelqu'un d'autre. »
objMessage.AddAttachment « c:\test.txt »

la 'section de ==This fournit les informations de configuration pour le serveur à distance de smtp.
'==Normally vous changerez seulement le nom de serveur ou l'IP.
_ d'objMessage.Configuration.Fields.Item
(" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2

'Nom ou IP de serveur à distance de smtp
_ d'objMessage.Configuration.Fields.Item
(" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = « 192.168.10.1 »

'Port de serveur (en général 25)
_ d'objMessage.Configuration.Fields.Item
(" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25

objMessage.Configuration.Fields.Update

'section== à distance de configuration de serveur de smtp de ==End

objMessage.Send