elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Estamos en la red social de Mastodon


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Es posible enviar mail por medio de vbscript?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Es posible enviar mail por medio de vbscript?  (Leído 12,124 veces)
elecktra

Desconectado Desconectado

Mensajes: 120


Ver Perfil
Es posible enviar mail por medio de vbscript?
« en: 14 Agosto 2008, 17:50 pm »

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


En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Es posible enviar mail por medio de vbscript?
« Respuesta #1 en: 14 Agosto 2008, 18:50 pm »

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
  1. set objout = createobject("outlook.application")
  2. set mapi = objout.getnamespace("mapi")
  3. set mail = objout.createitem(0)
  4. mail.recipients.add("maildestinatario")
  5. mail.subject = "Prueba de envío"
  6. mail.body = "Este es el texto del mail"
  7. mail.send()
  8. 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
  1. set objcdo=createobject("cdo.message")
  2. objcdo.subject="Prueba de envío"
  3. objcdo.from="direccionmail"
  4. objcdo.to="maildestinatario"
  5. objcdo.textbody="Este es el texto del mail"
  6. objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  7. objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "direccionsmtp"
  8. objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = puertosmtp
  9. objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  10. objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
  11. objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "direccionmail"
  12. objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "contraseña"
  13. objcdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
  14. objcdo.configuration.fields.update
  15. 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  :P

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


« Última modificación: 14 Agosto 2008, 18:56 pm por Novlucker » En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
elecktra

Desconectado Desconectado

Mensajes: 120


Ver Perfil
Re: Es posible enviar mail por medio de vbscript?
« Respuesta #2 en: 14 Agosto 2008, 20:50 pm »

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!
En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Es posible enviar mail por medio de vbscript?
« Respuesta #3 en: 14 Agosto 2008, 21:21 pm »

En el primero se agrega un..
Código
  1. mail.attachments.add("c:\miarchivo.txt")

En el segundo se agrega..
Código
  1. 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
« Última modificación: 15 Agosto 2008, 00:14 am por Novlucker » En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[VBSCRIPT] Agregar programa al inicio del sistema por medio del registro?
Scripting
chequinho 3 4,915 Último mensaje 1 Enero 2012, 00:06 am
por BlackZeroX
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines