Как удалить редактируемый черновик в Outlook, не удаляя исходное письмо?

АвторSiluviaДата изменения2024-09-13

Начиная с Microsoft Outlook 2013 и более поздних версий, ответы на электронные письма по умолчанию открываются в области чтения. Допустим, вы начали отвечать на письмо, и через три минуты Outlook автоматически сохранил черновик этого ответа. Однако вы передумали отправлять его и хотите удалить только черновик. Некоторые пользователи Outlook нажимают кнопку «Удалить» на вкладке «Главная», чтобы убрать черновик из области чтения (см. скриншот ниже), — но при этом случайно удаляется и исходное письмо.

удалить текущий редактируемый черновик, не удаляя исходное письмо в Outlook

В этом руководстве мы предлагаем два кода VBA, которые добавят на Панель быстрого доступа две команды для быстрого удаления редактируемого черновика в Outlook — без удаления исходного письма.

Удалить редактируемый черновик в области чтения
Удалить редактируемый черновик в новом окне

Удалить редактируемый черновик в области чтения

Если вы привыкли отвечать на письма прямо в области чтения, воспользуйтесь приведённым ниже кодом VBA, чтобы удалить редактируемый черновик, не затрагивая исходное письмо в Outlook.

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

2. В окне Microsoft Visual Basic для приложений дважды щелкните Project1 > Объекты Microsoft Outlook > ThisOutlookSession, чтобы открыть окно ThisOutlookSession (Код). Затем скопируйте приведённый ниже код VBA в окно кода.

Код VBA: Удалить редактируемый черновик в области чтения

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220713
Public WithEvents GInlineMail As MailItem
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub
Sub InlineDiscard()
  On Error Resume Next
  If Not GInlineMail Is Nothing And Not GInlineMail.Sent Then
    GInlineMail.UnRead = False
    GInlineMail.Delete
  End If
  Set GInlineMail = Nothing
End Sub

3. Сохраните код и нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.

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

4. Щелкните Настроить панель быстрого доступа > Другие команды.

5. В диалоговом окне Параметры Outlook выполните следующие настройки.

5,1) В поле Выберите команды изРаскрывающийся список выберите Макросы;

5,2) Выберите макрос, добавленный на предыдущем шаге;

5,3) Нажмите кнопку Добавить, чтобы добавить этот макрос в поле Настроить панель быстрого доступа.

6. Оставьте скрипт выделенным в правом поле и нажмите кнопку Изменить. В диалоговом окне Изменение кнопки назначьте скрипту новую кнопку и нажмите ОК.

7. Нажмите ОК в диалоговом окне Параметры Outlook, чтобы сохранить изменения.

Кнопка, которую вы указали на шаге 6, будет добавлена на Панель быстрого доступа.

8. Перезапустите Outlook, чтобы активировать код.

Теперь, отвечая на письмо в области чтения, вы можете удалить ответ вместе с черновиком одним нажатием кнопки на Панели быстрого доступа.

Примечание: После выполнения скрипта выберите другое письмо в списке писем, чтобы обновить отображение почты в текущей папке.

AI Mail Assistant в Outlook: умнее ответы, яснее общение (волшебство одним щелчком!)

Оптимизируйте повседневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook — мощного инструмента, который анализирует ваши прошлые письма, чтобы предлагать умные и точные ответы, улучшать содержание сообщений и помогать легко создавать и редактировать тексты.

Эта функция поддерживает:

Умные ответы: получайте персонализированные, точные и готовые к отправке ответы, созданные на основе вашей прошлой переписки.
Улучшенное содержание: автоматически повышайте ясность и выразительность текста письма.
Легкое составление: просто укажите ключевые слова, а ИИ сделает всё остальное — с несколькими стилями письма на выбор.
Интеллектуальные расширения: развивайте свои идеи с помощью контекстно-зависимых предложений.
Суммаризация: мгновенно получайте краткие обзоры длинных писем.
Глобальный охват: легко переводите свои письма на любой язык.

Эта функция поддерживает:

Умные ответы на письма
Оптимизированное содержание
Черновики по ключевым словам
Интеллектуальное расширение содержания
Суммаризация писем
Многоязыковой перевод

Не ждите —скачайте AI Mail Assistant прямо сейчас и наслаждайтесь!

a name="a2"> Удалить редактируемый черновик в новом окне

Если вы предпочитаете отвечать на письма в новом окне, приведённый ниже код VBA упростит удаление ответного письма вместе с черновиком в Outlook.

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

2. Щелкните Вставка > Модуль. Затем скопируйте приведённый ниже код VBA в окно модуля.

Sub DeleteDraftMessageWindow()
'Updated by Extendoffice 20220713
  Dim xInspector As Inspector
  Dim xMail As MailItem
  On Error Resume Next
  Set xInspector = Application.ActiveInspector
  If xInspector Is Nothing Then Exit Sub
  Set xMail = xInspector.CurrentItem
  If Not xMail.Sent Then
    xMail.UnRead = False
    xMail.Delete
  End If
End Sub

3. Нажмите клавиши Alt+F11, чтобы закрыть окно Microsoft Visual Basic для приложений.

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

4. Щелкните Главная > Новое письмо, чтобы создать новое письмо. В окне сообщения выберите Настроить панель быстрого доступа > Другие команды.

5. Затем повторите описанные выше действия с 5 по 7, чтобы создать кнопку для скрипта и добавить её на Панель быстрого доступаокна сообщения.

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

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для удобной работы с электронной почтой: ответы, составление резюме, оптимизация, расширение, перевод и создание писем.

📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отозвать письмо / Блокировка спама по теме и другим признакам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебство интерфейса: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных входящих письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

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

Используйте Kutools на вашем любимом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним щелчком! Не теряйте время — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook Скачать сейчас Перейти к покупке

🚀 Скачать одним щелчком — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним щелчком пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

✅Удобство одним щелчком: Скачайте все пять установочных пакетов за одно действие.
🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint

О пакете ⬇ Скачать пакет 💳 Приобрести пакет