1

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

但是，如果您在 SENT FOLDER 中打开 SENT 消息，则 BCC 字段对所有人都是可见的，全世界都可以看到。我了解到这是 Outlook 中的一个“功能”，显然是从 2003 年开始。

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

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

感谢您提供任何帮助。

我的代码：

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
4

3 回答 3

1

如果要删除已发送邮件文件夹中的密件抄送收件人，请侦听已发送邮件文件夹上的 Items.ItemAdd 事件，遍历MailItem.Recipients集合中的所有收件人并使用 删除收件人Recipient.Type = olBCC。

于 2015-09-24T17:08:56.073 回答
0

尝试以下...

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
于 2016-01-14T09:37:02.017 回答
0

“BCC 字段对全世界都可见”

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

于 2015-09-24T13:49:22.187 回答