将当前用户添加到 CC 列表

Question

我正在尝试合并两个操作。

'Assign To List
ToList = Worksheets("VBA_Code").Range("B5")

'Assign CC List
CCList = Worksheets("VBA_Code").Range("B6")

On Error Resume Next
With OutMail
    .to = ToList
    .CC = CCList
    .BCC = OutApp.GetNamespace("MAPI").Session.CurrentUser.AddressEntry

我有一份要抄送的用户列表。我认为我不需要像上面的代码那样在密件抄送下包含发件人，所以我想在我的抄送中包含发件人，以及抄送列表中的发件人列表。

有没有办法将这两者结合起来actions/calls？

Answer 1

Outlook 中的“收件人”、“抄送”和“密件抄送”列表以分号分隔。所以，就像这样追加：

.CC = CCList & ";" & OutApp.GetNamespace("MAPI").Session.CurrentUser.AddressEntry

将当前用户添加到 CC 列表

Adding current user to CC list

outlook

vba