Wie kann man den aktuell bearbeiteten Entwurf löschen, ohne die ursprüngliche E-Mail in Outlook zu löschen?
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.
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 Sub3. 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.
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 Sub3. 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.
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
