Для автоматического запуска Initialize_handler
:
Private Sub Application_startup() Initialize_handler End Sub
Вы можете упростить с:
Private Sub Application_startup() Set myolApp = CreateObject("Outlook.Application") End Sub
Вы можете упростить, отбросив весь свой код и используя вместо этого:
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