我正在尝试结合您可以说的两个不同的动作。下面是我的代码:
'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
所以我想知道的是如何将我的.BCC中的动作与我的.CC相结合。我有一个总是需要抄送的用户列表。我认为我不需要将发件人包括在“密件抄送”下,因此我想将发件人以及“抄送”列表中的发件人列表包括在我的抄送中。有没有办法将这两个动作/调用组合在一起?
Outlook中的“收件人”,“抄送”和“密件抄送”列表以分号分隔。因此,只需像这样追加:
.CC = CCList & ";" & OutApp.GetNamespace("MAPI").Session.CurrentUser.AddressEntry
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句