如何在已发送电子邮件Outlook 2010 VBA中隐藏密件抄送字段

我有一个编码为规则的宏，可以将所有传入和发送的电子邮件自动转发到密件抄送字段中的私人电子邮件地址（任何自动密件抄送规则在服务器级别都被禁用）。在这里的电路板的帮助下，宏可以完美地工作，并且无论出于何种目的都是不可见的

但是，如果在“已发送”文件夹中打开“已发送”邮件，则“密件抄送”字段将对所有人可见，以供全世界查看。我知道这是Outlook的一个“功能”，显然是从2003年开始的

查看已发送的电子邮件时，是否有方法抑制密件抄送字段的可见性

或者有没有一种方法可以设置单个文件夹的显示选项，使其永远不显示密件抄送

谢谢你的帮助

我的代码：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

      Dim objRecip As Recipient
      Dim strMsg As String
      Dim res As Integer
      Dim strBcc As String
      Dim answer
      Dim oAtt
      Dim strProc1 As String

On Error GoTo Application_ItemSend_Error

strBcc = "myprivateemail@gmail.com"

Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC

If Not objRecip.Resolve Then
    strMsg = "Could not resolve the Bcc recipient. " & _
    "Do you want still to send the message?"
    res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
    "Could Not Resolve Bcc Recipient")
    If res = vbNo Then
        Cancel = True
    End If
End If

Set objRecip = Nothing

On Error GoTo 0
Exit Sub

Application_ItemSend_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") " & "Error on 
Line " & Erl & " in procedure Application_ItemSend of VBA Document
ThisOutlookSession"

End Sub

“密件抄送字段对所有人可见，让全世界都能看到”

---

好吧，如果世界上有人可以查看你自己发送的文件夹，那么情况就是这样。否则，“密件抄送”字段不是电子邮件的一部分，收件人不会收到它。该功能的目标是能够调用您自己的密件抄送邮件，这样您就不会忘记您已经发送了这些邮件。

如果要删除“已发送邮件”文件夹中的密件抄送收件人，请侦听“已发送邮件”文件夹中的Items.ItemAdd事件，循环查看

邮件项目中的所有收件人。收件人

集合，并使用

Recipient.Type=olBCC

删除收件人。请尝试以下操作

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim olRec As Outlook.Recipient
    Dim Address$

    Address = "Om3r@blala.com"

    Set olRec = Item.Recipients.Add(Address)
    olRec.Type = olBCC
    olRec.Resolve
End Sub