Как да изтрия текущо редактираната чернова, без да изтривам оригиналния имейл в Outlook?

Автор: Силувия Последна промяна: 2022-07-20

Microsoft Outlook 2013 и по-нови версии отварят отговорите на имейли в панела за четене по подразбиране. Да предположим, че отговаряте на имейл и след 3 минути Outlook автоматично запазва отговора като чернова. Но след това решавате да не изпращате този отговор и изтривате черновата заедно с него. Някои потребители на Outlook са склонни да кликнат върху бутона Изтриване под раздела Начало, за да изтрият черновата от панела за четене (вижте екранната снимка по-долу). Но това действие изтрива и оригиналния имейл.

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

Изтрийте текущо редактираната чернова в прозореца за четене
Изтрийте текущо редактираната чернова в нов прозорец

Изтрийте текущата редактирана чернова в прозореца за четене

Ако сте свикнали да отговаряте на имейли в панела за четене, можете да приложите следния VBA код, за да изтриете текущо редактираната чернова, без да изтривате оригиналния имейл в Outlook.

1. Стартирайте вашия Outlook, натиснете Друг + 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. Запазете кода и натиснете Друг + Q ключове за затваряне на Microsoft Visual Basic за приложения прозорец.

Сега имате нужда от бутон, за да стартирате макроса.

4. кликване Персонализирайте лентата с инструменти за бърз достъп > Още команди.

5. В Outlook Options диалогов прозорец, трябва да конфигурирате както следва.

5.1) В Изберете команди от падащ списък, изберете макроси;

5.2) Изберете макроса, който сте добавили в предишната стъпка;

5.3) Щракнете върху Добави бутон, за да добавите този макрос към Персонализирайте лентата с инструменти за бърз достъп кутия.

6. Задръжте избрания скрипт в дясното поле и след това щракнете върху Промяна бутон. В Бутон за промяна диалоговия прозорец, задайте нов бутон на скрипта и щракнете OK.

7. кликване OK в Outlook Options диалогов прозорец, за да запазите промените.

След това бутонът, който посочихте в стъпка 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. кликване Начало > нов имейл за създаване на нов имейл. В прозореца на съобщението щракнете Персонализирайте лентата с инструменти за бърз достъп > Още команди.

5. След това повторете стъпките по-горе от 5 до 7, за да създадете бутон за скрипта и го добавете към Лента с инструменти за бърз достъп на прозореца на съобщението.

Отсега нататък, когато отговаряте на имейл в прозорец за ново съобщение, можете да изтриете този отговор заедно с черновата, като щракнете върху бутона в лентата с инструменти за бърз достъп.