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
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
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