文章/答案/技术大牛

发布

社区首页 >问答首页 >如何在MailItem对象的Bcc属性中输入多个电子邮件地址？

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

Stack Overflow用户

提问于 2019-04-16 07:52:27

回答 1查看 507关注 0票数 1

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

用户创建新的电子邮件并填写：

致:一个电子邮件地址

电子邮件address2，电子邮件address3，电子邮件address4，

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

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

vba

outlook

回答 1

Stack Overflow用户

回答已采纳

发布于 2019-04-16 08:05:49

您应该使用分号;来分隔每个邮件地址，如下所示：

"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")

希望这能作为一个起点。

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/55703165

复制

相似问题

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

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

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

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

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