Оповещение перед отправкой электронного письма с пустым полем Bcc

Question

Точно так же Microsoft Outlook выдает предупреждение, если вы пытаетесь отправить электронное письмо с пустым полем Кому, или пытаетесь отправить приглашение на календарь с пустым полем Расположение, я хочу, чтобы предупреждение появлялось, если я оставил Поле скрытой копии Любые идеи о том, как этого можно достичь?

Answer 1

поместите эту VBA в свой модуль thisoutlooksession и соответственно настройте параметры макроса

Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
    Set myOlApp = CreateObject("Outlook.Application")


End Sub

Private Sub myOlApp_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