Перейти к основному содержанию

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

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

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

Вкладка «Office»: включите редактирование и просмотр с вкладками в Microsoft Office, упрощая работу
Kutools for Outlook - улучшите Outlook с помощью более 100 расширенных функций для повышения эффективности
Улучшите свой Outlook 2021–2010 или Outlook 365 с помощью этих расширенных функций. Наслаждайтесь полной 60-дневной бесплатной пробной версией и улучшите качество своей электронной почты!

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

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

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

2. Разверните Project1 > Объекты Microsoft Outlook дважды щелкнув их. А затем дважды щелкните значок Эта сессия Outlook для открытия ВбаПроект.ОТМ диалоговое окно.

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
    Debug.Print oItem.Sent
    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 может работать. Когда вы отправляете сообщение без темы, предупреждение об отсутствии темы больше не будет отображаться.

Внимание: Убедитесь, что Включить все макросы флажок установлен (проверьте его, нажав Файл > Опции > Центр управления > Настройки центра управления безопасностью, и в Центр управления диалога, выберите Настройки макроса > Включить все макросы), смотрите скриншоты:


Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения ProПакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

 

 

Comments (4)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Forgot to mention I do have a Microsoft 365 subscription as well.
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi, I use outlook.live.com to check my hotmail. How can I fix it so that I don't encounter this error on there? Thanks! RamyJo
Rated 5 out of 5
This comment was minimized by the moderator on the site
Oh my GOSH! THANK YOU!
This comment was minimized by the moderator on the site
THANK YOU SO MUCH
this was driving me crazy. If I forward something to myself, if I send to a family member, if I just decide it doesn't warrant a subject, I don't want to have to add one! and I hate, hate hate when my email sits there unsent for an hour because I didn't notice it got hung up by the subject line Nazi.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations