问从vbs将bcc收件人添加到Outlook 2010
EN

Stack Overflow用户

提问于 2013-11-16 14:47:03

回答 1查看 2.7K关注 0票数 1

我使用Outlook 2010，并尝试从可视化基本脚本(而不是VBA )添加Bcc收件人

我的代码如下。向收件人发送电子邮件，但不发送给密件公司。你知道有谁知道解决办法吗。请注意，VBA正在正常工作。

Sub sendcomment_click()
Set oMsg = Application.CreateItem(olMailItem)

 With oMsg
   .Recipients.Add("email address")
   Set objRecip= Item.Recipients.Add("email address")
   objRecip.Type = olBCC
   objRecip.Resolve
  .Subject = "New Comment by" 
  .Body = "sdfsdfsdf"
  .Send
End With

end sub

vbscript

回答 1

Stack Overflow用户

回答已采纳

发布于 2013-11-17 22:36:59

假设您已经拥有BCC的电子邮件地址，您可以添加电子邮件地址而不解析它。

除非你想先解决它，然后从它的电子邮件地址，然后你需要更多的代码。顺便说一句，您应该在这个子项目之外定义Const olBCC = 3。

Sub sendcomment_click()
    Set oMsg = Application.CreateItem(olMailItem)

    With oMsg
        .Recipients.Add ("email address")
        'Set objRecip = Item.Recipients.Add("email address")
        'objRecip.Type = olBCC
        'objRecip.Resolve

        ' Join Email addresses by "; " into ".BCC" as string
        .BCC = "Person.A@somewhere.com; Person.B@somewhere.com"

        .Subject = "New Comment by"
        .Body = "sdfsdfsdf"
        .Display ' Comment this to have it not show up
        '.Send ' Uncomment this to have it sent automatically
    End With

    Set oMsg = Nothing
End Sub

执行的代码截图：

票数 1

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

原文链接：

https://stackoverflow.com/questions/20019737

复制

相似问题

问从vbs将bcc收件人添加到Outlook 2010
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问从vbs将bcc收件人添加到Outlook 2010EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问从vbs将bcc收件人添加到Outlook 2010
EN