Как отключить или отменить предупреждение о пустой теме в 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 Objects", дважды щелкнув их. Затем дважды щелкните "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 вступит в силу. Когда вы отправляете сообщение без темы, окно с предупреждением о пустой теме больше не будет появляться.
Примечание: Убедитесь, что опция "Включить все макросы" отмечена. (Проверьте это, нажав "Файл" > "Параметры" > "Центр управления безопасностью" > "Параметры центра управления безопасностью", и в диалоговом окне "Центр управления безопасностью" выберите "Настройки макросов" > "Включить все макросы"), см. скриншот:

Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Выпущена бесплатная версия Kutools для Outlook!
Оцените совершенно новый Kutools для Outlook с более чем100 потрясающими функциями! Нажмите, чтобы скачать сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку Email / Авто Копия/Скрытая копия по правилу при отправке письма / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Автоматическое разделение Email с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические Email по теме и другим признакам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и современных Эмодзи / Напоминания о важных письмах / Сворачивание Outlook вместо закрытия ...
👍 Мгновенные действия в один клик: Ответить всем с вложениями / Антифишинг Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем любимом языке – поддерживается английский, испанский, немецкий, французский, китайский и более40 других языков!

