如何在 MailItem 对象的 Bcc 属性中输入多个电子邮件地址？

Question

我的 VBA 代码自动发送电子邮件。如何填写多个邮箱地址？

用户创建新电子邮件并填写：
收件人：一个电子邮件地址
密件抄送：电子邮件地址 2、电子邮件地址 3、电子邮件地址 4、...

Outlook 如何分隔密件抄送属性中的每个电子邮件地址，以便在我的示例中发送 4 封电子邮件而不是 1 封。

Dim strWho As String
Dim strSubject As String
Dim objNewMail As Outlook.MailItem

Set objNewMail = Application.CreateItem(olMailItem)

strWho = objMail.To
strSubject = objMail.Subject 

With objNewMail
    .To = strWho
    .BCC = "mail2,mail3,mail4,mail5"
    .Subject = strSubject
    .Display
    .Send
End With

Answer 1

您应该使用分号; 分隔每个邮件地址，格式如下：

"person1@email.com;person2@email.com"

如果您已经将它们输入到邮件对象中，则可以使用以下代码：

Dim strWho As String
Dim strSubject As String
Dim objNewMail As Outlook.MailItem
Dim bccMails As String

Set objNewMail = Application.CreateItem(olMailItem)

strWho = objMail.To
strSubject = objMail.Subject 
bccMails = objMail.BCC    

With objNewMail
    .To = strWho
    .BCC = bccMails
    .Subject = strSubject
    .Display
    .Send
End With

否则，您可以向用户询问一次带有InputBox 的邮件地址，然后为每封邮件使用该值：

Dim bccMails As String
bccMails = InputBox("Please insert .bcc email addresses, separated by semicolons", "Email Address", "person1@email.com;person2@email.com")

希望这有助于作为一个起点。