Enviando correos electrónicos a múltiples destinatarios usando vbscript

Question

Mi vbscript envía el correo electrónico automáticamente a un destinatario, pero ¿alguien sabe cómo agregarle más de un destinatario?

... 
Dim ToAddress 
Dim FromAddress 
Dim MessageSubject 
Dim MyTime 
Dim MessageBody 
Dim MessageAttachment 
Dim ol, ns, newMail 
MyTime = Now 

ToAddress = "email@address.com" 
MessageSubject = "It works!." 
MessageBody = "Good job on that script." 
MessageAttachment = some attachment 
Set ol = WScript.CreateObject("Outlook.Application") 
Set ns = ol.getNamespace("MAPI") 
Set newMail = ol.CreateItem(olMailItem) 
newMail.Subject = MessageSubject 
newMail.Body = MessageBody & vbCrLf & MyTime 
newMail.RecipIents.Add(ToAddress) 
newMail.Attachments.Add(MessageAttachment) 
newMail.Send 

Esto es lo que tengo ahora. Y funciona bien Pero, me gustaría tener más de un destinatario. Gracias por adelantado.

newMail.CC = "person1@domain1.org;person2@domain2.org;person3@domain3.org" 

¡Esta línea de arriba funcionó!

Y funciona de la misma manera con .BCC, en caso de que alguien quiera no mostrar la lista de contactos.

Answer 1

Llamar MailItem.Recipients.Add para cada destinatario o establecer las propiedades A/CC/BCC en un ";" lista separada de direcciones.