Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Siluvia Last modified

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

delete the currently edited draft without deleting the original email in 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.

delete the currently edited draft without deleting the original email in Outlook

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

delete the currently edited draft without deleting the original email in Outlook

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

5.1) В раскрывающемся списке Выбрать команды из выберите Макросы;
5.2) Выберите макрос, который вы добавили на предыдущем шаге;
5.3) Нажмите кнопку Добавить, чтобы добавить этот макрос в поле Настроить панель быстрого доступа.
delete the currently edited draft without deleting the original email in Outlook

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

delete the currently edited draft without deleting the original email in Outlook

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

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

delete the currently edited draft without deleting the original email in Outlook

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

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

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


AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО

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

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

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

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

  • Умные ответы на письма
  • Оптимизированное содержание
  • Черновики на основе ключевых слов
  • Интеллектуальное расширение содержания
  • Краткое изложение писем
  • Перевод на несколько языков

Лучше всего то, что эта функция будет полностью бесплатной навсегда! Не ждите — скачайте AI Mail Assistant прямо сейчас и наслаждайтесь


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

Если вам нравится отвечать на письма в новом окне. Следующий код VBA может помочь легко удалить ответ вместе с черновиком в Outlook.

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

2. Нажмите Вставить > Модуль. Затем скопируйте следующий код VBA в окно Модуль.

delete the currently edited draft without deleting the original email in Outlook
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, чтобы создать кнопку для скрипта и добавить её на панель быстрого доступа окна сообщения.

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

delete the currently edited draft without deleting the original email in Outlook

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

Срочные новости: бесплатная версия Kutools для Outlook уже доступна!

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

🤖 Kutools AI : Использует передовые технологии искусственного интеллекта для легкой работы с Email — включая Ответ, Резюме, Оптимизацию, Расширение, Перевод и Составление писем.

📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...

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

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

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

👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...

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

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

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

kutools for outlook features1 kutools for outlook features2

🚀 Скачайте все дополнения 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