Wie lösche ich den aktuell bearbeiteten Entwurf, ohne die ursprüngliche E-Mail in Outlook zu löschen?

Microsoft Outlook 2013 und höhere Versionen öffnen E-Mail-Antworten standardmäßig im Lesebereich. Angenommen, Sie antworten auf eine E-Mail und Outlook speichert die Antwort nach 3 Minuten automatisch als Entwurf. Aber dann entscheidest du dich, diese Antwort nicht zu senden und löschst den Entwurf zusammen mit ihr. Einige Outlook-Benutzer neigen dazu, auf die Schaltfläche „Löschen“ unter der Registerkarte „Startseite“ zu klicken, um den Entwurf aus dem Lesebereich zu löschen (siehe Abbildung unten). Aber diese Aktion löscht auch die ursprüngliche E-Mail.

In diesem Lernprogramm stellen wir zwei VBA-Codes bereit, die Ihnen helfen, zwei Befehle zur Symbolleiste für den Schnellzugriff hinzuzufügen, um den aktuell bearbeiteten Entwurf schnell zu löschen, ohne die ursprüngliche E-Mail in Outlook zu löschen.

Löschen Sie den aktuell bearbeiteten Entwurf im Lesebereich
Löschen Sie den aktuell bearbeiteten Entwurf in einem neuen Fenster

Löschen Sie den aktuell bearbeiteten Entwurf im Lesebereich

Wenn Sie es gewohnt sind, E-Mails im Lesebereich zu beantworten, können Sie den folgenden VBA-Code anwenden, um den aktuell bearbeiteten Entwurf zu löschen, ohne die ursprüngliche E-Mail in Outlook zu löschen.

1. Starten Sie Outlook und drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick Project1 > Microsoft Outlook-Objekte > DieseOutlookSession öffnen Diese Outlook-Sitzung (Code) Fenster. Kopieren Sie dann den folgenden VBA-Code in das Codefenster.

VBA-Code: Löschen Sie den aktuell bearbeiteten Entwurf im Lesebereich

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. Speichern Sie den Code und drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

Jetzt brauchen Sie eine Schaltfläche, um das Makro auszuführen.

4 Klicken Anpassen der Symbolleiste für den Schnellzugriff > Mehr Befehle.

5. In dem Outlook-Optionen Dialogfeld müssen Sie wie folgt konfigurieren.

5.1) In der Wählen Sie Befehle aus Dropdown-Liste, wählen Sie Makros;

5.2) Wählen Sie das Makro aus, das Sie im vorherigen Schritt hinzugefügt haben;

5.3) Klicken Sie auf Speichern Schaltfläche, um dieses Makro zum hinzuzufügen Anpassen der Symbolleiste für den Schnellzugriff Box.

6. Lassen Sie das Skript im rechten Feld ausgewählt und klicken Sie dann auf Ändern Taste. In dem Schaltfläche Ändern Weisen Sie dem Skript im Dialogfeld eine neue Schaltfläche zu und klicken Sie auf OK.

7 Klicken OK der Outlook-Optionen Dialogfeld zum Speichern der Änderungen.

Die Schaltfläche, die Sie in Schritt 6 angegeben haben, wird dann zu hinzugefügt Quick Access Toolbar.

8. Starten Sie Outlook neu, um den Code zu aktivieren.

Von nun an können Sie beim Antworten auf eine E-Mail im Lesebereich die Antwort zusammen mit dem Entwurf löschen, indem Sie auf die Schaltfläche in der Symbolleiste für den Schnellzugriff klicken.

Hinweis: Nachdem Sie das Skript ausgeführt haben, müssen Sie eine andere E-Mail in der Mailingliste auswählen, um die E-Mail-Ansicht im aktuellen Ordner zu aktualisieren.

Löschen Sie den aktuell bearbeiteten Entwurf in einem neuen Fenster

Wenn Sie E-Mails in einem neuen Fenster beantworten möchten. Der folgende VBA-Code kann helfen, die Antwort-E-Mail zusammen mit dem Entwurf einfach in Outlook zu löschen.

1. Starten Sie Outlook und drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.

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. Drücken Sie die Taste Andere + F11 schließen Microsoft Visual Basic für Applikationen Fenster.

Jetzt brauchen Sie eine Schaltfläche, um das Makro auszuführen.

4 Klicken Home > Neue e-mail um eine neue E-Mail zu erstellen. Klicken Sie im Nachrichtenfenster auf Anpassen der Symbolleiste für den Schnellzugriff > Mehr Befehle.

5. Wiederholen Sie dann die obigen Schritte von 5 bis 7, um eine Schaltfläche für das Skript zu erstellen und füge es hinzu Quick Access Toolbar des Nachrichtenfensters.

Wenn Sie in einem neuen Nachrichtenfenster auf eine E-Mail antworten, können Sie von nun an diese Antwort zusammen mit dem Entwurf löschen, indem Sie auf die Schaltfläche in der Symbolleiste für den Schnellzugriff klicken.