How to automatically run a macro when opening a draft in Outlook? (add BCC)

Question

I am trying to automatically execute this workflow:

• when a user opens a draft message in Outlook ( generated eml file )
• If the object matches the string (immutable, known in advance, I cannot change it, it's something like xyžřy, pay attention to characters other than ASCII):
• then add the email to the BCC field (fixed, known in advance, valid email address, say [e-mail])

I already know the last part - how to add BCC to the post , and I use InStr to match:

Sub addbcc()
Dim objRecip As Recipient
Set oMsg = Application.ActiveInspector.CurrentItem

With oMsg

     If InStr(1, oMsg.Subject, "xyžřy") > 0 Then

        Set objRecip = oMsg.Recipients.Add("[e-mail]")
        objRecip.Type = olBCC
        objRecip.Resolve

    End If

End With

Set oMsg = Nothing

End Sub

, - , , , , BCC . ?

Answer 1

?

NewInspector, , .

Option Explicit
Private WithEvents Inspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Initialize_handler
End Sub

Public Sub Initialize_handler()
    Set Inspectors = Application.Inspectors
End Sub

Private Sub Inspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
    If Inspector.currentItem.Class = olMail Then
        If Inspector.currentItem.Parent = "Drafts" Then ' Drafts Folder

            Debug.Print Inspector.currentItem.Subject ' Immediate Window
            ' Call Your Code
            ' Inspector.currentItem.BCC = "[e-mail]"
        End If
    End If
End Sub

CurrentItem

Answer 2

ItemAdd. . . Outlook?

ItemSend. Outlook 2010 - VBA - bcc ItemSend