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

7
задан duper 5 July 2012 в 14:47
поделиться