Как отключить предупреждение об отсутствии темы письма в Outlook?

При использовании Outlook 2010 и 2013 при отправке сообщений без темы каждый раз появляется предупреждение. Если вы сознательно не хотите указывать тему, это уведомление может серьёзно мешать. Чтобы помочь пользователям Outlook избавиться от него, мы предлагаем простой способ в следующем руководстве.

Отключение предупреждения об отсутствии темы письма в Outlook

---

Отключение предупреждения об отсутствии темы письма в Outlook

В Outlook 2007 отсутствует предупреждение при отправке письма без темы, тогда как в Outlook 2010 и 2013 эта функция уже реализована. Однако встроенной возможности для прямого отключения такого предупреждения в программе нет. В этом руководстве мы покажем вам код на языке VBA, который поможет решить эту задачу.

1. Нажмите клавиши «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic for Applications.

2. Разверните раздел «Project1» > «Объекты Microsoft Outlook», дважды щёлкнув по нему, затем дважды щёлкните «ThisOutlookSession», чтобы открыть окно «VbaProject.OTM».

3. Скопируйте приведённый ниже код VBA и вставьте его в это окно.

VBA: Отключение предупреждения об отсутствии темы письма

Option Explicit
Private WithEvents oInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set oInspectors = Outlook.Inspectors
End Sub

Private Sub oInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim oItem As Object
    On Error GoTo ExitProc
    Set oItem = Inspector.CurrentItem
    If oItem.Sent = False Then
        If oItem.Subject = "" Then oItem.Subject = " "
    End If
ExitProc:
    Set oItem = Nothing
    Set Inspector = Nothing
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    On Error Resume Next
    Item.Subject = Trim(Item.Subject)
End Sub

Private Sub Application_Quit()
    Set oInspectors = Nothing
End Sub

4. Нажмите кнопку «Сохранить», чтобы сохранить ваш код VBA.

5. Перезапустите приложение Outlook.

После этого код VBA вступит в силу, и при отправке сообщения без темы окно с предупреждением больше не будет появляться.

Примечание: Убедитесь, что выбрана опция «Включить все макросы». (Чтобы проверить это, перейдите по пути «Файл» > «Параметры» > «Центр управления безопасностью» > «Параметры центра управления безопасностью», затем в диалоговом окне «Центр управления безопасностью» выберите «Параметры макросов» и установите переключатель на «Включить все макросы».) См. скриншот: