Envio de emails via VBS

Este script envia un email con un fichero adjunto utilizando un servidor SMTP externo via VB Script. Para probarlo, solamente tenemos que copiar el codigo en un fichero con extensión .vbs y desde una consola de dos, ejecutarlo.


objMessage.Subject = "Subject email"
objMessage.From = """Alis email"" "
objMessage.To = "to@mycompany.com"
objMessage.Cc = "cc@mycompany.com"
objMessage.Bcc = "bcc@mycompany.com"

objMessage.TextBody = "mail body"
objMessage.Addattachment "c:\test.txt"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mycompany.com"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.update
objMessage.Send