Frage : Wie man CDO.Message erhält, das in VBScript auf Vista-Geschäft arbeitet

Hallo, kann das

I morgens versuchend, Parameter zur CDO Mitteilung zu führen, um eine eMail zu senden aber sie nicht an work.

The Code gelangen, den ich bin habe, wie folgt:-

Sub SendEmailMessage (ByVal strDestEmail, ByVal strNTName, ByVal dtmDate)
'eMail message.

dim objEmail

Set objEmail = CreateObject („CDO.Message " )
objEmail.From = „ES Abteilung "
objEmail.To = strDestEmail
objEmail.Subject = „Kennwortendetest-eMail“
objEmail.Textbody = „Ihr Kennwort wird ablaufen senden. „
objEmail.sendusing = 2
objEmail.smtpserver = „myexchangeserver "
objEmail.smtpserverport = 25
objEmail.Configuration.Fields. Update
objEmail.Send

End Sub
I morgens Störungen mit den folgenden Linien:-

objEmail.sendusing = 2
objEmail.smtpserver = „myexchangeserver "
objEmail.smtpserverport = 25

and erhalten die Fehlermeldung:-

CDO.Message.1, das der „SendUsing“ Konfigurationswert invalid

Thanks für Ihr help. ist

Antwort : Wie man CDO.Message erhält, das in VBScript auf Vista-Geschäft arbeitet

Ist hier meine Version ziemlich genau von den selben

objMessage = CreateObject („CDO.Message“) einstellen
objMessage.Subject = „ein vorbehaltliches“
objMessage.From = „[email protected]“
objMessage.To = „[email protected]“
objMessage.TextBody = „hallo jemand anderes.“
objMessage.AddAttachment „c:\test.txt“

'==This Abschnitt zur Verfügung stellt die Konfigurationsinformationen für den Fern-smtp-Bediener.
'==Normally ändern Sie nur den Bedienernamen oder das IP.
objMessage.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2

'Name oder IP des Fern-smtp-Bedieners
objMessage.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserver ") = „192.168.10.1“

'Bedienerhafen (gewöhnlich 25)
objMessage.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25

objMessage.Configuration.Fields.Update

'==End Fern-smtp-Bedienerkonfiguration section==

objMessage.Send