Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: moikano→@ en 13 Febrero 2011, 18:11 pm



Título: [VBS] envio masivo por correo (solucionado)
Publicado por: moikano→@ en 13 Febrero 2011, 18:11 pm
Hola. He estado mirando unos post De Novlucker sobre el envío de correo por vbs.
Mi pregunta es, se puede hacer de la misma forma un envío masivo? es decir en vez de tener un solo destinatario que sean todos los de la lista de contactos.

En un principio el code que izo Nov fue el siguiente:

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"

Y lo que yo querría cambiar es el "maildestinatario" por toda la lista de contactos del correo.
Es posible?


Título: Re: [VBS] envio masivo por correo
Publicado por: Novlucker en 16 Febrero 2011, 16:43 pm
Se podría, no se que estes intentando hacer, pero actualmente te salta una alerta de que se esta intentando realizar un envío automático, que podría ser virus y si lo quieres autorizar.

Saludos


Título: Re: [VBS] envio masivo por correo
Publicado por: moikano→@ en 17 Febrero 2011, 11:33 am
Es simplemente para probar. Los scripts que suelo hacer y aprender no suelen tener un uso inmediato. Simplemente están ahí para cuando me hagan falta.

La forma de hacerlo sería modificando alguna opción de esta parte:

Código
  1. mail.recipients.add("maildestinatario")

O tendría que agregar otro objeto/función?

O simplemente con un carácter comodín?

Gracias de antemano


Título: Re: [VBS] envio masivo por correo
Publicado por: Novlucker en 17 Febrero 2011, 17:04 pm
recipients es una colección, así que si sigues haciendo add seguirás agregando destinatarios.
Sino busca el código fuente del virus Anna Kournikova que verás como hacía lo de los envios :-X

Saludos


Título: Re: [VBS] envio masivo por correo (solucionado)
Publicado por: moikano→@ en 17 Febrero 2011, 20:25 pm
Gracias por las respuestas.