1

すべての受信メールと送信メールを BCC フィールドのプライベート メール アドレスに自動転送するルールにコード化されたマクロがあります (自動 BCC ルールはサーバー レベルで無効になっています)。ここのボードの助けを借りて、マクロは問題なく動作します。そして、すべての意図と目的のために、目に見えません。

ただし、SENT FOLDER で SENT メッセージを開くと、BCC フィールドは世界中のすべての人に表示されます。どうやら 2003 年以来、これが Outlook の「機能」であることを知りました。

SENT メールを表示するときに BCC フィールドの可視性を抑制する方法はありますか?

または、個々のフォルダの表示オプションを 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

送信済みアイテム フォルダー内の BCC 受信者を削除する場合は、送信済みアイテム フォルダーの Items.ItemAdd イベントをリッスンし、MailItem.Recipientsコレクション内のすべての受信者をループして、Recipient.Type = olBCC.

于 2015-09-24T17:08:56.073 に答える
0

「BCCフィールドは、世界中が見ることができるように、すべての人に見える」

世界中の誰もが自分の送信済みフォルダーを表示できる場合は、これが当てはまります。それ以外の場合、BCC フィールドは電子メールの一部ではなく、受信者は受信しません。この機能の目的は、送信したことを忘れないように、自分の BCC メッセージを思い出せるようにすることです。

于 2015-09-24T13:49:22.187 に答える