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

мой 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, если кто-то хочет не отображать список контактов.

1 ответов


Вызовите MailItem.Получательница.Добавьте для каждого получателя или задайте для свойств/CC/BCC значение ";" разделенный список адресов.