vba - How do I auto BCC all e-mails from Outlook 2013?

Question

There are lots of questions on how to auto BCC e-mails from specific senders or with specific subjects, but I had a ton of trouble finding a simple rule to just auto BCC everything.

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

注意：脚本在您点击“发送”后运行，因此您在编写电子邮件时不会在密件抄送字段中看到任何内容。