Отправка писем нескольким получателям с помощью 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 значение ";" разделенный список адресов.