Отправка писем нескольким получателям с помощью vbscript

Question

Мой vbscript отправляет электронное письмо автоматически получателю, но кто-нибудь знает, как добавить к нему более одного получателя?

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

Это то, что я имею прямо сейчас. И он отлично работает. Но я хотел бы иметь более одного получателя. Заранее спасибо.

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

Эта надпись работала!

И он работает так же с .BCC, если кто-то хочет не отображать список контактов.

Answer 1

Вызовите MailItem.Recipients.Add для каждого получателя или установите для свойств To/CC/BCC значение ";" разделенный список адресов.