Cuestión : Cómo conseguir CDO.Message que trabaja en VBScript en el negocio de Vista

Hola, el

I que intenta pasar parámetros al mensaje de CDO para enviar un email pero no puede conseguirlo al código de work.

The que tengo soy como sigue el
de:-

Sub SendEmailMessage (strDestEmail de ByVal, strNTName de ByVal, dtmDate de ByVal) 'envía el objEmail del objEmail

Set del
dim del email message.
= el
de “CDO.Message ")/>objEmail.From = “ÉL departamento "
objEmail.To = strDestEmail
objEmail.Subject = “email”
objEmail.Textbody = “su contraseña va a expirar. “
objEmail.sendusing = 2
objEmail.smtpserver = “
objEmail.smtpserverport = 25
objEmail.Configuration.Fields. Update
objEmail.Send

End Sub
I que encuentra errores con las líneas siguientes:-

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

and consigue el mensaje de error:-

CDO.Message.1 que el valor de la configuración de “SendUsing” es invalid

Thanks para su help. class= del

Respuesta : Cómo conseguir CDO.Message que trabaja en VBScript en el negocio de Vista

Aquí está mi versión de bonito mucho el igual

Fijar el objMessage = CreateObject (“CDO.Message”)
objMessage.Subject = “un sujeto”
objMessage.From = “[email protected]”
objMessage.To = “[email protected]”
objMessage.TextBody = “hola algún otro.”
objMessage.AddAttachment “c:\test.txt”

la 'sección de los ==This proporciona la información de configuración para el servidor alejado del smtp.
'==Normally usted cambiará solamente el nombre de servidor o el IP.
_ de objMessage.Configuration.Fields.Item
(“http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2

'Nombre o IP del servidor alejado del smtp
_ de objMessage.Configuration.Fields.Item
(“http://schemas.microsoft.com/cdo/configuration/smtpserver ") = “192.168.10.1”

'Puerto de servidor (típicamente 25)
_ de objMessage.Configuration.Fields.Item
(“http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25

objMessage.Configuration.Fields.Update

'section== alejado de la configuración de servidor del smtp del ==End

objMessage.Send