Vba 如何将抄送收件人添加到现有抄送收件人？

下面的代码将覆盖“抄送”字段中的现有收件人

有没有办法补充example@domain.com到底

Option Explicit

Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bDiscardEvents As Boolean

Dim oResponse As MailItem
Dim WithEvents objInspectors As Outlook.Inspectors
Dim WithEvents objMailItem As Outlook.MailItem
Dim WithEvents myOlExp As Outlook.Explorer

'On Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Cancel = True
    bDiscardEvents = True
    Set oResponse = oItem.ReplyAll

    afterReply
End Sub

Private Sub afterReply()
    oResponse.Display
    ' do whatever here with .to, .cc, .cci, .subject, .HTMLBody, .Attachements.Add, etc.
    oResponse.CC = "example@domain.com"
End Sub

编辑：感谢@defoundlyoblivious，我的代码现在看起来像这样，但是example@domain在CC中显示两次（如果他们一开始就在CC中，则显示三次，这可能是后者的问题）

---

回答：

oreponse.CC=oreponse.CC&”；example@domain.com“

如果电子邮件没有任何抄送收件人，则此答案将创建多余的分号和空格”；example@domain.com". 我很确定Outlook会忽略它，但如果它导致问题，您可能希望查看评论中David Zemens提供的示例

---

重要提示：仅参考CC显示名称，我的答案不能替代。

答案：

oreponse.CC=oreponse.CC&”；example@domain.com“

如果电子邮件没有任何抄送收件人，则此答案将创建多余的分号和空格”；example@domain.com". 我很确定Outlook会忽略它，但如果它导致问题，您可能希望查看评论中David Zemens提供的示例

---

重要提示：仅引用CC显示名称，我的答案不能替代。

不要设置

CC

属性-即使附加到它，CC也不能保证包含电子邮件地址，只包含显示名称，当名称再次解析且名称不明确时，您可能会出现错误

使用

收件人添加抄送收件人。添加
：

set recip = oMail.Recipients.Add("example@domain.com")
recip.Type = olCC

不要设置
CC
属性-即使附加到该属性，CC也不能保证包含电子邮件地址，只显示名称，并且当名称再次解析且名称不明确时，可能会出现错误

使用
收件人添加抄送收件人。添加
：

set recip = oMail.Recipients.Add("example@domain.com")
recip.Type = olCC

尝试
oreponse.CC=oreponse.CC&IIF（Len（oreponse.CC）=0，“，”；”&“example@domain.com“
？尝试
oreponse.CC=oreponse.CC&IIF（Len（oreponse.CC）=0，”，“；”&”example@domain.com“
？这工作完美无瑕，谢谢！！我将在今天晚些时候发布最终代码作为参考。我在几乎所有的场景中测试您的解决方案（没有人在CC中，1人在CC中，多人在CC中），它工作得很好。我现在的问题是将它与我的整个脚本相结合（如果我要在新问题中提出这个问题，一定要让我知道）。我将把它作为一个答案发布，因为我在这篇评论中没有足够的空间。如果你需要帮助用你在问题中提供的代码实现答案，那么我将在这里帮助你。如果您有一个不同的脚本，但该脚本不是问题的一部分，则新问题是合适的。请参阅原始问题中的编辑。我已经把你的部分整合到底部，我想最好用一个新问题来解决这个问题。关于显示名称，
oResponse.CC
仅用于显示名称。如果您想使用收件人电子邮件地址作为抄送，则可以使用
收件人
。你可以在这里读到它，它工作完美，谢谢！！我将在今天晚些时候发布最终代码作为参考。我在几乎所有的场景中测试您的解决方案（没有人在CC中，1人在CC中，多人在CC中），它工作得很好。我现在的问题是将它与我的整个脚本相结合（如果我要在新问题中提出这个问题，一定要让我知道）。我将把它作为一个答案发布，因为我在这篇评论中没有足够的空间。如果你需要帮助用你在问题中提供的代码实现答案，那么我将在这里帮助你。如果您有一个不同的脚本，但该脚本不是问题的一部分，则新问题是合适的。请参阅原始问题中的编辑。我已经把你的部分整合到底部，我想最好用一个新问题来解决这个问题。关于显示名称，
oResponse.CC
仅用于显示名称。如果您想使用收件人电子邮件地址作为抄送，则可以使用
收件人
。你可以在这里读到这一点很好，我在评论中提到了这一点，但它属于答案的一部分。很好，我在评论中提到了这一点，但它属于答案的一部分。将更新。