单击按钮即可将密件抄送添加到约会中

Question

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

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

目前我有以下内容：

Sub CommandButton1_Click()
Set test = Item.Recipients.Add('[e-mail]')
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

结束子

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

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

Answer 1

尝试使用此语法设置收件人的Type属性，然后解析所有内容。

Sub CommandButton1_Click()
Set test = Item.Recipients.Add("[e-mail]")
test.Type = olBCC
Item.Recipients.ResolveAll()
End Sub  

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

Answer 2

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

Sub CommandButton1_Click()
Dim recip as Outlook.Recipient
Set recip = Item.Recipients.Add('[e-mail]')
recip.Type = Outlook.OlMailRecipientType.olBCC;
Item.Recipients.ResolveAll();
End Sub   

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

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

Answer 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

以下内容有效，可以对多个收件人重复。