Pergunta : Como começ CDO.Message que trabalha em VBScript no negócio de Vista

Olá!, o

I am que tenta passar parâmetros à mensagem de CDO para emitir um email mas não pode começ o ao código que de work.

The eu tenho sou como segue o
de:-

Sub SendEmailMessage (strDestEmail de ByVal, strNTName de ByVal, dtmDate de ByVal) 'emite o objEmail do objEmail

Set do
dim do email message.
= o
de “CDO.Message ")/>objEmail.From = “ELE departamento "
objEmail.To = strDestEmail
objEmail.Subject = da “email”
objEmail.Textbody = “sua senha está indo expirar. “
objEmail.sendusing = 2
objEmail.smtpserver =
objEmail.smtpserverport = 25
objEmail.Configuration.Fields. Update
objEmail.Send

End Sub
I am que encontra erros com as seguintes linhas:-

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

and começ a mensagem de erro:-

CDO.Message.1 que o valor da configuração de “SendUsing” é invalid

Thanks para seu help. class= do

Resposta : Como começ CDO.Message que trabalha em VBScript no negócio de Vista

É aqui minha versão de bonito muito mesmo

Ajustar o objMessage = o CreateObject (“CDO.Message”)
objMessage.Subject = “um sujeito”
objMessage.From = “[email protected]”
objMessage.To = “[email protected]”
objMessage.TextBody = “olá! alguma outra pessoa.”
objMessage.AddAttachment “c:\test.txt”

'a seção dos ==This fornece a informação de configuração para o usuário remoto do smtp.
'==Normally você mudará somente o nome de usuário ou o IP.
_ de objMessage.Configuration.Fields.Item
(“http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2

'Nome ou IP do usuário remoto do smtp
_ de objMessage.Configuration.Fields.Item
(“http://schemas.microsoft.com/cdo/configuration/smtpserver ") = “192.168.10.1”

'Porto de usuário (tipicamente 25)
_ de objMessage.Configuration.Fields.Item
(“http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25

objMessage.Configuration.Fields.Update

'section== remoto da configuração de usuário do smtp do ==End

objMessage.Send