使用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屬性設置爲「;」分開的地址列表。