Как удалить текущий редактируемый черновик, не удаляя исходное письмо в Outlook?
Microsoft Outlook 2013 и более поздние версии по умолчанию открывают ответы на электронные письма в области чтения. Предположим, вы отвечаете на письмо, и через 3 минуты Outlook автоматически сохраняет ответ как черновик. Но затем вы решаете не отправлять этот ответ и удаляете черновик вместе с ним. Некоторые пользователи Outlook склонны нажимать кнопку Удалить на вкладке Главная, чтобы удалить черновик из области чтения (см. скриншот ниже). Но это действие также удаляет исходное письмо.

В этом руководстве мы предоставляем два кода VBA, которые помогут вам добавить две команды на панель быстрого доступа для быстрого удаления текущего редактируемого черновика без удаления исходного письма в Outlook.
Удалить текущий редактируемый черновик в области чтения
Удалить текущий редактируемый черновик в новом окне
Удалить текущий редактируемый черновик в области чтения
Если вы привыкли отвечать на письма в области чтения, вы можете применить следующий код VBA для удаления текущего редактируемого черновика без удаления исходного письма в Outlook.
1. Запустите ваш Outlook, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications дважды щелкните Project1 > Microsoft Outlook Objects > ThisOutlookSession, чтобы открыть окно ThisOutlookSession (Code). Затем скопируйте следующий код VBA в окно Code.

Код 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 for Applications.
Теперь вам нужна кнопка для запуска макроса.
4. Нажмите Настроить панель быстрого доступа > Дополнительные команды.

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

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

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

8. Перезапустите Outlook, чтобы активировать код.
С этого момента, когда вы отвечаете на письмо в области чтения, вы можете удалить ответ вместе с черновиком, нажав кнопку на панели быстрого доступа.
Примечание: После выполнения скрипта вам нужно выбрать другое письмо в списке рассылки, чтобы обновить вид почты в текущей папке.
AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО
Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.

Эта функция поддерживает:
- Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
- Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
- Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
- Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
- Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
- Глобальный охват: Легко переводите ваши письма на любой язык.
Эта функция поддерживает:
- Умные ответы на письма
- Оптимизированное содержание
- Черновики на основе ключевых слов
- Интеллектуальное расширение содержания
- Краткое изложение писем
- Перевод на несколько языков
Лучше всего то, что эта функция будет полностью бесплатной навсегда! Не ждите — скачайте AI Mail Assistant прямо сейчас и наслаждайтесь
Удалить текущий редактируемый черновик в новом окне
Если вам нравится отвечать на письма в новом окне. Следующий код VBA может помочь легко удалить ответ вместе с черновиком в Outlook.
1. Запустите ваш Outlook, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
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 for Applications.
Теперь вам нужна кнопка для запуска макроса.
4. Нажмите Главная > Новое письмо, чтобы создать новое письмо. В окне сообщения нажмите Настроить панель быстрого доступа > Дополнительные команды.
5. Затем повторите шаги выше с 5 по 7, чтобы создать кнопку для скрипта и добавить её на панель быстрого доступа окна сообщения.
С этого момента, когда вы отвечаете на письмо в новом окне сообщения, вы можете удалить этот ответ вместе с черновиком, нажав кнопку на панели быстрого доступа.

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


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