从 vbs 将密件抄送收件人添加到 Outlook 2010

【问题标题】：Add bcc recipient to Outlook 2010 from vbs从 vbs 将密件抄送收件人添加到 Outlook 2010
【发布时间】：2013-11-18 06:36:59
【问题描述】：

我使用 Outlook 2010，并尝试使用 Visuas Basic 脚本而不是 VBA 添加密件抄送收件人

我的代码如下。向收件人发送电子邮件，但不向密件抄送。你知道任何人的解决方案。请注意，来自 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】：

假设您已经有密件抄送的电子邮件地址，您可以直接添加电子邮件地址而不进行解析。

除非您想先解决它然后从其中获取电子邮件地址，否则您需要更多代码。顺便说一句，你应该在这个子之外定义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

代码执行截图：

【讨论】：