vba - Outlook 2013 からのすべての電子メールを自動 BCC にするにはどうすればよいですか?

Question

特定の送信者からの、または特定の件名の電子メールを BCC で自動送信する方法について多くの質問がありますが、すべてを BCC で自動送信する簡単なルールを見つけるのに非常に苦労しました。

Answer 1

GroovyPost.com提供のコードは次のとおりです。

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
On Error Resume Next

' #### USER OPTIONS ####
' address for Bcc -- must be SMTP address or resolvable
' to a name in the address book
strBcc = "SomeEmailAddress@domain.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

End Sub

注: スクリプトは [送信] をクリックした後に実行されるため、電子メールを書いている間は BCC フィールドに何も表示されません。