Question

我有一个宏编码规则，将所有传入和发送的电子邮件自动转发到BCC字段中的私人电子邮件地址（在服务器级别禁用任何自动BCC规则。）在此处的电路板的帮助下，宏完美无瑕地工作，并且所有意图和目的都是看不见的。

但是，如果您在SENT FOLDER中打开SENT消息，则所有人都可以看到BCC字段供全世界查看。我了解到这是一个＆＃34;功能＆＃34;在Outlook中，显然是自2003年以来。

在查看SENT电子邮件时，有没有办法抑制BCC字段的可见性？

或者有没有办法可以设置单个文件夹的显示选项不显示BCC - EVER？

感谢您的帮助。

我的代码：

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

Answer 1

如果要删除已发送邮件文件夹中的BCC收件人，请在已发送邮件文件夹中侦听Items.ItemAdd事件，循环浏览MailItem.Recipients集合中的所有收件人，并删除Recipient.Type = olBCC的收件人

Answer 2

＆＃34;所有人都可以看到BCC字段供全世界查看＆＃34;

好吧，如果世界上任何人都可以查看您自己发送的文件夹，那么就是这种情况。否则，BCC字段不是电子邮件的一部分，收件人不会收到它。该功能的目标是能够调用您自己的BCC消息，因此您不必忘记已发送它们。

Answer 3

尝试以下方法......

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

如何在SENT电子邮件Outlook 2010 VBA中隐藏BCC字段

3 个答案: