Как удалить текущий редактируемый черновик, не удаляя исходное письмо в 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 с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилу при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические письма по теме и другим параметрам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...
👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...

