Questione : Come ottenere CDO.Message che funziona in VBScript sul commercio del Vista

Ciao, il

I che prova a passare i parametri al messaggio di CDO per trasmettere un email ma non può ottenerlo al codice che di work.

The ho sono come segue il
di:-

Sub SendEmailMessage (strDestEmail di ByVal, strNTName di ByVal, dtmDate di ByVal) 'trasmette il objEmail del objEmail

Set del
dim del email message.
= il
“di CDO.Message ")/>objEmail.From = “ESSO reparto "
objEmail.To = strDestEmail
objEmail.Subject = “email„
objEmail.Textbody = “la vostra parola d'accesso sta andando espirare. “
objEmail.sendusing = 2
objEmail.smtpserver =
objEmail.smtpserverport = 25
objEmail.Configuration.Fields. Update
objEmail.Send

End Sub
I che incontra gli errori con le seguenti linee:-

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

and ottiene il messaggio di errore:-

CDO.Message.1 che il valore di configurazione “di SendUsing„ è invalid

Thanks per il vostro help. class= del

Risposta : Come ottenere CDO.Message che funziona in VBScript sul commercio del Vista

Qui è la mia versione praticamente degli stessi

Regolare il objMessage = CreateObject (“CDO.Message„)
objMessage.Subject = “un soggetto„
objMessage.From = “[email protected]„
objMessage.To = “[email protected]„
objMessage.TextBody = “ciao qualcun'altro.„
objMessage.AddAttachment “c:\test.txt„

'la sezione di ==This fornisce informazioni di configurazione per l'assistente a distanza dello smtp.
'==Normally cambierete soltanto il nome di assistente o il IP.
_ di objMessage.Configuration.Fields.Item
(" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2

'Nome o IP dell'assistente a distanza dello smtp
_ di objMessage.Configuration.Fields.Item
(" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = “192.168.10.1„

'Orificio di assistente (in genere 25)
_ di objMessage.Configuration.Fields.Item
(" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25

objMessage.Configuration.Fields.Update

'section== a distanza di configurazione di assistente dello smtp del ==End

objMessage.Send