Es posible enviar mail por medio de vbscript?

[elecktra]

Buenas... es posible enviar un mail por medio de un script de VBS?
Ayuda por favor!
Gracias!

[Novlucker]

Como te he comentado antes... si es posible hacer eso con vbs... y existen dos maneras...

• Con el objeto outlook.application, para lo que tienes que tener outlook correctamente instalado

Código (vb) [Seleccionar] Expandir

set objout = createobject("outlook.application")
set mapi = objout.getnamespace("mapi")
set mail = objout.createitem(0)
mail.recipients.add("maildestinatario")
mail.subject = "Prueba de envío"
mail.body = "Este es el texto del mail"
mail.send()
msgbox "enviado"

Pero tiene el problema de que salen un par de mensajes de seguridad informando de esto, se podría automatizar la respuesta a estos mensajes, por medio de sendkeys, pero el problema radica en que no debería de haber nadie en el pc 

• La segunda opción es a traves del objecto cdo.message

Código (vb) [Seleccionar] Expandir

set objcdo=createobject("cdo.message")
objcdo.subject="Prueba de envío"
objcdo.from="direccionmail"
objcdo.to="maildestinatario"
objcdo.textbody="Este es el texto del mail"
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "direccionsmtp"
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = puertosmtp
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "direccionmail"
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "contraseña"
objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
objcdo.configuration.fields.update
objcdo.send

En este último caso hay que especificar una cuenta de correo válida, y a su vez, ingresar usuario y contraseña, en mi caso utilizo gmail, ya que no da nigún tipo de problemas 

Espero haya quedado todo claro 

Saludos

P.d: No es necesario que vayas por el foro repitiendo la misma pregunta si no recibes la respuesta de inmediato 

[elecktra]

Te agraddezcp mucho a la noche los hago als pruebas..
Pero no es posible adjuntar un 2 txt no?
Los mensajes de seguridad ya estan automatizados en el codigo que me dejastes?
Gracias, saludos!

[Novlucker]

En el primero se agrega un..

Código (vb) [Seleccionar] Expandir

mail.attachments.add("c:\miarchivo.txt")

En el segundo se agrega..

Código (vb) [Seleccionar] Expandir

objcdo.addattachment("c:\miarchivo.txt")

Solamente el primero muestra mensajes de alerta, y no, no esta automatizado lo de responderles, sobre todo porque como dije... si se utiliza sendkeys, no debe de haber nadie en el pc, ya que es como si controlasen tu teclado por unos segundos.
Es decir, que si estas escribiendo en el word, se envíaran teclas y se terminará escribiendo en él, en lugar de puslar los mensajes

Saludos