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

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

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

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

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

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

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

2. в Microsoft Visual Basic для приложений окно, дважды щелкните Project1 > Объекты Microsoft Outlook > Эта сессия Outlook для открытия 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. Сохраните код и нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.

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

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

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

5.1). Выберите команды из выпадающий список, выберите Макросы;

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

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

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

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

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

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

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

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

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

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

1. Запустите Outlook, нажмите другой + 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. нажмите другой + F11 закрыть Microsoft Visual Basic для приложений окно.

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

4. Нажмите Главная > Новый E-mail для создания нового электронного письма. В окне сообщения нажмите Настройка панели быстрого доступа > Дополнительные команды.

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

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