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プロパティを ";"に設定します。アドレスの区切りリスト。