Vraag : Hoe te om CDO.Message werkend te krijgen in VBScript aan de Zaken van het Uitzicht

Hallo,

I am kan parameters tot Cdo- Bericht proberen over te gaan om een e-mail te verzenden maar niet het aan code work.

The krijgen die ik ben als volgt heb gehad: -

Sub SendEmailMessage (ByVal strDestEmail, ByVal strNTName, ByVal dtmDate)
'verzendt e-mail message.

dim objEmail

Set objEmail = CreateObject („CDO.Message " )
objEmail.From = Afdeling "
objEmail.To = strDestEmail
objEmail.Subject = de vervaldagtest e-mail“
objEmail.Textbody = „uw wachtwoord gaat verlopen. „
objEmail.sendusing = 2
objEmail.smtpserver = „myexchangeserver "
objEmail.smtpserverport = 25
objEmail.Configuration.Fields. Update
objEmail.Send

End Sub
I am fouten met de volgende lijnen ontmoeten: -

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

and krijgen de foutenmelding: -

CDO.Message.1 de „SendUsing“ configuratiewaarde invalid

Thanks voor uw help. is

Antwoord : Hoe te om CDO.Message werkend te krijgen in VBScript aan de Zaken van het Uitzicht

Hier is mijn versie van vrij veel het zelfde

Vastgestelde objMessage = CreateObject („CDO.Message“)
objMessage.Subject = een „onderwerp“
objMessage.From = „[email protected]“
objMessage.To = „[email protected]“
objMessage.TextBody = „hallo iemand anders.“
objMessage.AddAttachment „c:\test.txt“

'de ==Thissectie verstrekt de configuratieinformatie voor de verre server SMTP.
'zult u ==Normally slechts de servernaam of IP veranderen.
objMessage.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2

'Naam of IP van Verre Server SMTP
objMessage.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserver“) = „192.168.10.1“

De 'haven van de server (typisch 25)
objMessage.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 25

objMessage.Configuration.Fields.Update

'==End verre SMTP serverconfiguratie section==

objMessage.Send