Use CDO to Send a test e-mail message

Use CDO to Send a test e-mail message

This script uses CDO to send an e-mail message. To run the script,

cscript //nologo SendCDOEmail.vbs

Set objEmail = CreateObject("CDO.Message")
set objConf = CreateObject("CDO.Configuration")
 
Set objFlds = objConf.Fields
With objFlds
  .Item("
http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  .Item("
http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXX-ex100"
  .Item("
http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  ‘.Item("
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
  .Update
End With
Set objEmail.Configuration = objConf
 
objEmail.From = username@midominio.es
objEmail.To = "users.name@abc.com"
objEmail.Subject = "Prueba de correo!"
objEmail.Textbody = "… aquí estamos hoy…"
objEmail.Addattachment "C:\directory name of file\filename"
objEmail.Send

BBT2MS aquí

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s