Pytanie : Dlaczego CDO.Message działanie w VBScript na Vista Biznes

Cześć,

I am parametr CDO Wiadomość email ale móc ono work.

The kod I mieć być podążać:-

Sub SendEmailMessage (ByVal strDestEmail, ByVal strNTName, ByVal dtmDate)
'Wysyłać email message.

dim objEmail

Set objEmail = CreateObject ("CDO.Message " )
objEmail.From = "ONO Wydziałowy "
objEmail.To = strDestEmail
objEmail.Subject = "Hasło wygaśnięcie test e-mailowy"
objEmail.Textbody = "twój hasło iść. "
objEmail.sendusing = 2
objEmail.smtpserver = "myexchangeserver "
objEmail.smtpserverport = 25
objEmail.Configuration.Fields. Update
objEmail.Send

End Sub
I am błąd z the następujący linia:-

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

and dostawać the błąd wiadomość:-

CDO.Message.1 The "SendUsing" konfiguracja wartość być invalid

Thanks dla twój help.

Odpowiedź : Dlaczego CDO.Message działanie w VBScript na Vista Biznes

Tutaj być mój wersja prawie the

Ustalony objMessage = CreateObject ("CDO.Message")
objMessage.Subject = "Podległy"
objMessage.From = "[email protected]"
objMessage.To = "[email protected]"
objMessage.TextBody = "Cześć ktoś inny."
objMessage.AddAttachment "c:\test.txt"

'==This sekcja zapewniać the konfiguracja informacja dla the pilot SMTP serwer.
'==Normally ty tylko zmieniać the serwer imię lub IP.
objMessage.Configuration.Fields.Item _
(" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2

'Imię lub IP Daleki SMTP Serwer
objMessage.Configuration.Fields.Item _
(" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = "192.168.10.1"

'Serwer port (typowo 25)
objMessage.Configuration.Fields.Item _
(" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25

objMessage.Configuration.Fields.Update

'==End daleki SMTP serwer konfiguracja section==

objMessage.Send