Envoi d'e-mails à plusieurs destinataires à l'aide de vbscript

Question

Mon vbscript envoie automatiquement un courriel à un destinataire, mais quelqu'un sait-il comment y ajouter plus d'un destinataire ?

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

C'est ce que j'ai en ce moment. Et cela fonctionne bien. Mais j'aimerais avoir plus d'un destinataire. Merci d'avance.

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

Cette ligne ci-dessus a fonctionné !

Et cela fonctionne de la même manière avec .BCC, au cas où quelqu'un voudrait ne pas afficher la liste des contacts.

Answer 1

Appelez MailItem.Recipients.Add pour chaque destinataire ou définir l'option To / CC / BCC à un ";" liste d'adresses séparées.