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

Author: Siluvia Last Modified: 2025-08-06

Microsoft Outlook 2013 und spätere Versionen öffnen E-Mail-Antworten standardmäßig im Lesebereich. Angenommen, Sie antworten auf eine E-Mail und nach 3 Minuten speichert Outlook die Antwort automatisch als Entwurf. Dann entscheiden Sie sich jedoch, diese Antwort nicht zu senden, und löschen den Entwurf. Einige Outlook-Benutzer neigen dazu, auf die Schaltfläche Löschen unter der Registerkarte Start zu klicken, um den Entwurf aus dem Lesebereich zu löschen (siehe Screenshot unten). Diese Aktion löscht jedoch auch die ursprüngliche E-Mail.

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

In diesem Tutorial bieten wir zwei VBA-Codes an, um Ihnen zu helfen, zwei Befehle auf der Schnellzugriffsleiste hinzuzufügen, um den aktuell bearbeiteten Entwurf schnell zu löschen, ohne die ursprüngliche E-Mail in Outlook zu löschen.

Den aktuell bearbeiteten Entwurf im Lesebereich löschen
Den aktuell bearbeiteten Entwurf in einem neuen Fenster löschen

Den aktuell bearbeiteten Entwurf im Lesebereich löschen

Wenn Sie 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 Ihr Outlook, drücken Sie die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Doppelklicken Sie im Microsoft Visual Basic for Applications-Fenster auf Projekt1 > Microsoft Outlook Objekte > ThisOutlookSession, um das Fenster ThisOutlookSession (Code) zu öffnen. Kopieren Sie dann den folgenden VBA-Code in das Codefenster.

VBA-Code: Den aktuell bearbeiteten Entwurf im Lesebereich löschen

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 Tasten Alt + Q, um das Microsoft Visual Basic for Applications-Fenster zu schließen.

Jetzt benötigen Sie eine Schaltfläche, um das Makro auszuführen.

4. Klicken Sie auf Symbolleiste für den Schnellzugriff anpassen > Weitere Befehle.

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

5.1) Wählen Sie im Dropdown-Menü Befehle auswählen die Option Makros;

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

5.3) Klicken Sie auf die Schaltfläche Hinzufügen, um dieses Makro zur Symbolleiste für den Schnellzugriff hinzuzufügen.

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

7. Klicken Sie im Dialogfeld Outlook-Optionen auf OK, um die Änderungen zu speichern.

Die Schaltfläche, die Sie in Schritt 6 angegeben haben, wird dann zur Symbolleiste für den Schnellzugriff hinzugefügt.

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

Ab sofort 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 E-Mail-Liste auswählen, um die Mailansicht im aktuellen Ordner zu aktualisieren.

AI-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (per Klick-Zauberei!) KOSTENLOS

Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem AI-Mail-Assistenten von Kutools für Outlook. Dieses leistungsstarke Tool lernt aus Ihren früheren E-Mails, um intelligente und genaue Antworten anzubieten, Ihren E-Mail-Inhalt zu optimieren und Ihnen das Verfassen und Überarbeiten von Nachrichten mühelos zu ermöglichen.

Diese Funktion unterstützt:

Intelligente Antworten: Erhalten Sie Antworten, die aus Ihren früheren Gesprächen erstellt wurden – maßgeschneidert, präzise und sofort einsatzbereit.
Verbesserter Inhalt: Optimieren Sie Ihren E-Mail-Text automatisch für Klarheit und Wirkung.
Müheloses Verfassen: Geben Sie einfach Schlüsselwörter ein und lassen Sie die KI den Rest erledigen, mit mehreren Schreibstilen.
Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
Zusammenfassung: Erhalten Sie prägnante Übersichten über lange E-Mails auf Knopfdruck.
Weltweite Reichweite: Übersetzen Sie Ihre E-Mails ganz einfach in jede Sprache.

Diese Funktion unterstützt:

Intelligente E-Mail-Antworten
Optimierter Inhalt
Schlüsselwortbasierte Entwürfe
Intelligente Inhaltserweiterung
E-Mail-Zusammenfassung
Mehrsprachige Übersetzung

Das Beste daran ist, dass diese Funktion für immer komplett kostenlos ist! Zögern Sie nicht – laden Sie den AI-Mail-Assistenten noch heute herunter und genießen Sie!

Den aktuell bearbeiteten Entwurf in einem neuen Fenster löschen

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

1. Starten Sie Ihr Outlook, drücken Sie die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > 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 Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu schließen.

Jetzt benötigen Sie eine Schaltfläche, um das Makro auszuführen.

4. Klicken Sie auf Start > Neue E-Mail, um eine neue E-Mail zu erstellen. Klicken Sie im Nachrichtenfenster auf Symbolleiste für den Schnellzugriff anpassen > Weitere Befehle.

5. Wiederholen Sie dann die obigen Schritte von 5 bis 7, um eine Schaltfläche für das Skript zu erstellen und es zur Symbolleiste für den Schnellzugriff des Nachrichtenfensters hinzuzufügen.

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