Jak usunąć aktualnie edytowaną wersję roboczą bez usuwania oryginalnej wiadomości e-mail w Outlooku?

Autor: Silvia Ostatnia modyfikacja: 2022-07-20

Microsoft Outlook 2013 i nowsze wersje domyślnie otwierają odpowiedzi e-mail w okienku odczytu. Załóżmy, że odpowiadasz na wiadomość e-mail i po 3 minutach program Outlook automatycznie zapisuje odpowiedź jako wersję roboczą. Ale potem decydujesz się nie wysyłać tej odpowiedzi i usuwasz wersję roboczą wraz z nią. Niektórzy użytkownicy programu Outlook mają tendencję do klikania przycisku Usuń pod zakładką Strona główna, aby usunąć wersję roboczą z okienka odczytu (patrz zrzut ekranu poniżej). Ale ta czynność powoduje również usunięcie oryginalnego e-maila.

W tym samouczku udostępniamy dwa kody VBA, które pomogą Ci dodać dwa polecenia na pasku narzędzi szybkiego dostępu, aby szybko usunąć aktualnie edytowaną wersję roboczą bez usuwania oryginalnej wiadomości e-mail w programie Outlook.

Usuń aktualnie edytowaną wersję roboczą w okienku odczytu
Usuń aktualnie edytowaną wersję roboczą w nowym oknie

Usuń aktualnie edytowaną wersję roboczą w okienku odczytu

Jeśli jesteś przyzwyczajony do odpowiadania na wiadomości e-mail w okienku odczytu, możesz zastosować następujący kod VBA, aby usunąć aktualnie edytowaną wersję roboczą bez usuwania oryginalnej wiadomości e-mail w programie Outlook.

1. Uruchom program Outlook, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications kliknij dwukrotnie Project1 > Obiekty programu Microsoft Outlook > Ta sesja programu Outlook otworzyć ThisOutlookSession (kod) okno. Następnie skopiuj następujący kod VBA do okna Kod.

Kod VBA: Usuń aktualnie edytowaną wersję roboczą w okienku odczytu

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. Zapisz kod i naciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.

Teraz potrzebujesz przycisku, aby uruchomić makro.

4. kliknij Dostosuj pasek narzędzi Szybki dostęp > Więcej poleceń.

5. w Opcje programu Outlook W oknie dialogowym należy skonfigurować w następujący sposób.

5.1) W Wybierz polecenia z listę rozwijaną wybierz Makra;

5.2) Wybierz makro dodane w poprzednim kroku;

5.3) Kliknij Dodaj przycisk, aby dodać to makro do pliku Dostosuj pasek narzędzi Szybki dostęp pudełko.

6. Pozostaw wybrany skrypt w prawym polu, a następnie kliknij modyfikować przycisk. w Przycisk Modyfikuj w oknie dialogowym, przypisz nowy przycisk do skryptu i kliknij OK.

7. kliknij OK Opcje programu Outlook okno dialogowe, aby zapisać zmiany.

Przycisk określony w kroku 6 zostanie następnie dodany do Pasek narzędzi szybkiego dostępu.

8. Uruchom ponownie Outlooka, aby aktywować kod.

Od teraz, odpowiadając na wiadomość e-mail w okienku odczytu, możesz usunąć odpowiedź wraz z wersją roboczą, klikając przycisk na pasku narzędzi Szybki dostęp.

Uwaga: Po uruchomieniu skryptu musisz wybrać inny e-mail z listy mailingowej, aby odświeżyć widok poczty w bieżącym folderze.

Usuń aktualnie edytowaną wersję roboczą w nowym oknie

Jeśli chcesz odpowiadać na e-maile w nowym oknie. Poniższy kod VBA może pomóc w łatwym usunięciu wiadomości e-mail z odpowiedzią wraz z wersją roboczą w programie Outlook.

1. Uruchom program Outlook, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł. Następnie skopiuj następujący kod VBA do okna Module.

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. wciśnij inny + F11 zamknąć Microsoft Visual Basic for Applications okno.

Teraz potrzebujesz przycisku, aby uruchomić makro.

4. kliknij Strona główna > nowy e-mail aby utworzyć nową wiadomość e-mail. W oknie wiadomości kliknij Dostosuj pasek narzędzi Szybki dostęp > Więcej poleceń.

5. Następnie powtórz powyższe kroki od 5 do 7, aby utworzyć przycisk do skryptu i dodaj to do Pasek narzędzi szybkiego dostępu okna wiadomości.

Od teraz, odpowiadając na wiadomość e-mail w oknie nowej wiadomości, możesz usunąć tę odpowiedź wraz z wersją roboczą, klikając przycisk na pasku narzędzi szybkiego dostępu.