Wie löscht man den aktuell bearbeiteten Entwurf, ohne die Original-E-Mail in Outlook zu löschen?

AutorSiluvia Änderungsdatum2024-09-13

Microsoft Outlook 2013 und neuere Versionen öffnen E-Mail-Antworten standardmäßig im Lesebereich. Angenommen, Sie beantworten eine E-Mail, und Outlook speichert Ihre Antwort nach drei Minuten automatisch als Entwurf. Anschließend entscheiden Sie sich jedoch dagegen, die Nachricht zu versenden, und möchten den Entwurf löschen. Einige Outlook-Benutzer klicken dazu auf die Schaltfläche „Löschen“ unter der Registerkarte „Start“, um den Entwurf aus dem Lesebereich zu entfernen (siehe Screenshot unten). Dabei wird jedoch nicht nur der Entwurf gelöscht, sondern auch die ursprüngliche E-Mail.

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

In diesem Tutorial stellen wir Ihnen zwei VBA-Codes zur Verfügung, mit denen Sie zwei Befehle zur Schnellzugriffsleiste hinzufügen können, um den aktuell bearbeiteten Entwurf schnell zu löschen – ohne die Original-E-Mail in Outlook zu beeinträchtigen.

Löschen des aktuell bearbeiteten Entwurfs im Lesebereich
Löschen des aktuell bearbeiteten Entwurfs in einem neuen Fenster

Löschen des aktuell bearbeiteten Entwurfs im Lesebereich

Wenn Sie es gewohnt sind, E-Mails direkt im Lesebereich zu beantworten, können Sie den folgenden VBA-Code nutzen, um den aktuell bearbeiteten Entwurf zu löschen – ohne die Original-E-Mail in Outlook zu entfernen.

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

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

VBA-Code: Löschen des aktuell bearbeiteten Entwurfs 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 Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

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

4. Klicken Sie auf Schnellzugriffsleiste anpassen > Weitere Befehle.

5. Konfigurieren Sie Folgendes im Dialogfeld Outlook-Optionen.

5,1) Wählen Sie im Feld Befehle auswählen ausDropdown-Liste 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 dem Feld Schnellzugriffsleiste anpassenhinzuzufügen.

6. Behalten Sie das Skript im rechten Feld ausgewählt und klicken Sie anschließend auf die Schaltfläche Ändern. Weisen Sie im Dialogfeld Schaltfläche ändern dem Skript eine neue Schaltfläche zu und bestätigen Sie mit OK.

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

Die Schaltfläche, die Sie in Schritt 6 festgelegt haben, wird nun zur Schnellzugriffsleiste hinzugefügt.

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

Ab sofort können Sie beim Beantworten einer E-Mail im Lesebereich die Antwort zusammen mit dem Entwurf löschen, indem Sie auf die Schaltfläche in der Schnellzugriffsleiste klicken.

Hinweis: Nach Ausführung des Skripts müssen Sie eine andere E-Mail in der E-Mail-Liste auswählen, um die E-Mail-Ansicht im aktuellen Ordner zu aktualisieren.

KI-E-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (Ein-Klick-Zauber!)

Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem KI-E-Mail-Assistenten von Kutools für Outlook – einem leistungsstarken Tool, das aus Ihren bisherigen E-Mails lernt, um intelligente und präzise Antworten vorzuschlagen, Ihren E-Mail-Inhalt zu optimieren und Ihnen das mühelose Verfassen und Überarbeiten von Nachrichten zu ermöglichen.

Diese Funktion unterstützt:

Intelligente Antworten: Erhalten Sie maßgeschneiderte, präzise und sofort einsatzbereite Antworten, die auf Ihren bisherigen Gesprächen basieren.
Verbesserter Inhalt: Verbessern Sie Ihren E-Mail-Text automatisch – für mehr Klarheit und Wirkung.
Müheloses Verfassen: Geben Sie einfach Stichwörter ein und überlassen Sie den Rest der KI – mit mehreren Schreibstilen.
Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
Zusammenfassung: Erhalten Sie sofort prägnante Übersichten über lange E-Mails.
Globale Reichweite: Übersetzen Sie Ihre E-Mails mühelos in jede gewünschte Sprache.

Diese Funktion unterstützt:

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

Warten Sie nicht –laden Sie jetzt den KI-E-Mail-Assistenten herunter und genießen Sie!

a name="a2"> Löschen des aktuell bearbeiteten Entwurfs in einem neuen Fenster

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

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

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

Nun 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 Schnellzugriffsleiste anpassen > Weitere Befehle.

5. Wiederholen Sie anschließend die obigen Schritte von 5 bis 7, um eine Schaltfläche für das Skript zu erstellen und fügen Sie sie der Schnellzugriffsleiste des Nachrichtenfensters hinzu.

Ab sofort können Sie beim Beantworten einer E-Mail in einem neuen Nachrichtenfenster diese Antwort zusammen mit dem Entwurf löschen, indem Sie auf die Schaltfläche in der Schnellzugriffsleiste klicken.

Beste Office-Produktivitätswerkzeuge

Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!

🤖KUTOOLS AI:Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – einschließlich Beantworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …

📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …

📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …

🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...

👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...

👩🏼‍🤝‍👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...

Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!

Kutools für Outlook mit nur einem Klick sofort freischalten! Warten Sie nicht – laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

Funktionsliste von Kutools für Outlook Jetzt herunterladen Zum Kauf gehen

🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins

Stark empfohlen: Kutools for Office (5-in-1)

Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!

✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint

Über das Paket ⬇ Das Paket herunterladen 💳 Das Paket kaufen