[VBS] envio masivo por correo (solucionado)

[moikano→@]

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

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

[Novlucker]

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

[moikano→@]

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 (vb) [Seleccionar] Expandir

mail.recipients.add("maildestinatario")

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

O simplemente con un carácter comodín?

Gracias de antemano

[Novlucker]

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

Saludos

[moikano→@]

Gracias por las respuestas.