8

私の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 でも同じように機能します。

4

1 に答える 1

11

MailItem.Recipients.Add受信者ごとに呼び出すか、 To/ CC/BCCプロパティを";"個別のアドレス リストに設定します。

于 2012-07-03T16:46:01.877 に答える