在按钮单击时将密件抄送添加到约会答案

【问题标题】：Add BCC to appointment on button click在按钮单击时将密件抄送添加到约会
【发布时间】：2020-06-23 16:16:25
【问题描述】：

我的约会中有一个自定义表单，其中有一个命令按钮和一个密件抄送字段。

当用户按下我的命令按钮时，我想在我的密件抄送字段中添加一封邮件。

目前我有以下：

Sub CommandButton1_Click()
    Set test = Item.Recipients.Add('alice@yahoo.com')
    test = (int)Outlook.OlMailRecipientType.olBCC;
    Item.Recipients.ResolveAll();
End Sub

我尝试了几种不同的方法，但都没有运气。

到目前为止，我只设法添加了一个标准收件人，即

Sub CommandButton1_Click()
Set oMsg = Application.ActiveInspector.CurrentItem 
With oMsg 
    .Recipients.Add("test")
End With

结束子

但添加密件抄送邮件似乎更复杂

因此，如何在单击命令按钮时将邮件添加到我的密件抄送字段？

【问题讨论】：

标签： vba outlook

【解决方案1】：

试试这个语法设置收件人的Type属性，然后全部解析。

Sub CommandButton1_Click()
    Set test = Item.Recipients.Add("alice@yahoo.com")
    test.Type = olBCC
    Item.Recipients.ResolveAll()
End Sub

在您的方法中，您尝试将 Item 设置为整数（从 BCC 类型转换），而不是设置 Item 的 Type 属性

【讨论】：

嗯，第一行给了我一个“语法错误”。调试器没有提供很多信息
你有库引用Outlook Object Library
哦等等，有;分号和'引号而不是"，因为原始代码似乎来自c# sn-p。我摆脱了他们。再试一次！
有道理！它现在没有给我任何语法错误，但没有添加邮件。什么都没有发生 :(

【解决方案2】：

看起来你只需要修改项目的Recipients集合：

Sub CommandButton1_Click()
    Dim recip as Outlook.Recipient
    Set recip = Item.Recipients.Add('alice@yahoo.com')
    recip.Type = Outlook.OlMailRecipientType.olBCC;
    Item.Recipients.ResolveAll();
End Sub

请注意，MeetingItem 收件人可以是以下OlMeetingRecipientType 常量之一：olOptional、olOrganizer、olRequired 或 olResource。

您很可能必须创建一个新的 MailItem 并将其作为密件抄送单独发送出去。

【讨论】：

【解决方案3】：

由于某种原因，Item.Recipients.ResolveAll() 方法不起作用。因此，我跳过了写入变量，而是将类型连接到 .Recipients.Add()。

Function CommandButton1_Click()
    Set oMsg = Application.ActiveInspector.CurrentItem 

    With oMsg 
            .Recipients.Add(Mail).Type = 3
    End With
End Function

以下有效，并且可以与多个收件人重复。

【讨论】：