Как запретить пользователям отправлять письма без темы в Outlook?

Можно ли настроить Outlook так, чтобы пользователи обязательно указывали тему письма перед отправкой и избегали этой распространённой ошибки?

Запрет отправки писем без темы с помощью VBA

---

Запрет отправки писем без темы с помощью VBA

Единственное решение этой проблемы — применение кода VBA.

1. Запустите Outlook и нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Дважды щёлкните по ThisOutlookSession в области Project1, затем скопируйте и вставьте приведённый ниже код в пустое поле редактора.

VBA: запрет отправки письма без темы

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180511
Dim xObject As Object
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xObject = CreateObject("VBScript.Regexp")
With xObject
    .Global = True: .Pattern = "^\x20*$"
    If .test(Item.Subject) = True Then
        MsgBox "No subject entered", vbInformation, "Kutools for Outlook"
        Cancel = True
    End If
End With
End Sub

3. Сохраните код. Теперь при попытке отправить письмо без темы появится диалоговое окно с напоминанием указать тему.

Примечание:Этот код VBA работает для всех учётных записей в Outlook