Вопрос : Как получить CDO.Message работая в VBScript на деле перспективы

Hi,

I am пытаясь передать параметры к сообщению CDO для посылки электронная почта но не может получить его к Кодему work.
The я имею следующим образом
:-

Sub SendEmailMessage (strDestEmail ByVal, strNTName ByVal, dtmDate ByVal) 'посылает objEmail objEmail

Set
dim электронная почта message.
=
«CDO.Message ")/>objEmail.From = «ОНО отдел "
objEmail.To = strDestEmail
objEmail.Subject = «истечение срока электронная почта»
objEmail.Textbody = «ваш пароль идет терять силу. «
objEmail.sendusing = 2
objEmail.smtpserver =
objEmail.smtpserverport = 25
objEmail.Configuration.Fields. Update
objEmail.Send

End Sub
I am сталкиваясь ошибки с следующий линиями:-

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

and получает сообщение ошибки:-

CDO.Message.1 значение конфигурации «SendUsing, котор» будет invalid

Thanks для вашего help. class=

Ответ : Как получить CDO.Message работая в VBScript на деле перспективы

Здесь мой вариант милой много это же

Установите objMessage = CreateObject («CDO.Message»)
objMessage.Subject = «подчиненный»
objMessage.From = «[email protected]»
objMessage.To = «[email protected]»
objMessage.TextBody = «Hi кто - то еще.»
objMessage.AddAttachment «c:\test.txt»

'раздел ==This обеспечивает данные по конфигурации для дистанционного сервера SMTP.
'==Normally вы только измените имя сервера или IP.
_ objMessage.Configuration.Fields.Item
(" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2

'Имя или IP дистанционного сервера SMTP
_ objMessage.Configuration.Fields.Item
(" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = «192.168.10.1»

'Порт сервера (типично 25)
_ objMessage.Configuration.Fields.Item
(" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25

objMessage.Configuration.Fields.Update

'section== конфигурации сервера SMTP ==End дистанционное

objMessage.Send