Fråga : Hur man får CDO.Message-arbetet i VBScript på utsiktaffär

Hi den pröva förmiddagen för

I att passera parametrar till CDO-meddelandet för att överföra en e-post men kan inte få den till work.

The kodifierar mig har är som följer: -
för

Sub SendEmailMessage (ByVal strDestEmail, ByVal strNTName, ByVal dtmDate) 'överför objEmail för objEmail

Set för
dim för e-posten message.
= CreateObject (”CDO.Message-" )
objEmail.From = ”DET avdelningen "
objEmail.To = strDestEmail
objEmail.Subject = ”lösenordupphörande testar e-posten”
objEmail.Textbody = ”ditt lösenord går att förfalla. ”
objEmail.sendusing = 2
objEmail.smtpserver = ”myexchangeserver"
objEmail.smtpserverport = 25
objEmail.Configuration.Fields. Den Update
objEmail.Send

End Sub
I förmiddagen som möter fel med fodrar efter: -

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

and får felmeddelandet: -

CDO.Message.1 som ”den SendUsing” konfigurationen värderar, är invalid

Thanks för din help. " klar "

Svar : Hur man får CDO.Message-arbetet i VBScript på utsiktaffär

Är här min version av nätt mycket samma

Fastställd objMessage = CreateObject (”CDO.Message”)
objMessage.Subject = ”en betvinga”,
objMessage.From = ”[email protected]”,
objMessage.To = ”[email protected]”,
objMessage.TextBody = ”Hi någon annars.”,
objMessage.AddAttachment ”c:\test.txt”,

'==This delar upp ger informationen om konfigurationen för fjärrkontrollSMTP-serveren.
'==Normally du ska endast ändring den kända serveren eller IP.
objMessage.Configuration.Fields.Item- _,
(”http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2

'Namnge eller IP av den avlägsna SMTP-serveren
objMessage.Configuration.Fields.Item- _,
(”http://schemas.microsoft.com/cdo/configuration/smtpserver”) = ”192.168.10.1”,

'Serverport (typisk 25)
objMessage.Configuration.Fields.Item- _,
(”http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25

objMessage.Configuration.Fields.Update

'för SMTP-server för ==End avlägsen section== för konfiguration

objMessage.Send