Para executar automaticamente Initialize_handler
:
Private Sub Application_startup()
Initialize_handler
End Sub
Você pode simplificar com:
Private Sub Application_startup()
Set myolApp = CreateObject("Outlook.Application")
End Sub
Você pode simplificar descartando todo o seu código e usando isso:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim prompt As String
prompt = "The BCC Field is empty!"
If Item.BCC = "" Then
If MsgBox(prompt, vbYesNo + vbQuestion, "BCC Field") = vbNo Then
Cancel = True
End If
End If
End Sub