How to delete the currently edited draft without deleting the original email in Outlook?
Microsoft Outlook 2013 and later versions open email replies in the reading pane by default. Suppose you are replying to an email and after 3 minutes Outlook automatically saves the response as a draft. But then you decide not to send this reply and delete the draft along with it. Some Outlook users tend to click the Delete button under the Home tab to delete the draft from the Reading Pane (see screenshot below). But this action also deletes the original email.
In this tutorial, we provide two VBA codes to help you add two commands on the Quick Access Toolbar to quickly delete the currently edited draft without deleting the original email in Outlook.
Delete the currently edited draft in reading pane
Delete the currently edited draft in a new window
Delete the currently edit draft in reading pane
If you are used to replying to emails in the reading pane, you can apply the following VBA code to delete the currently edited draft without deleting the original email in Outlook.
1. Launch your Outlook, press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.
2. In the Microsoft Visual Basic for Applications window, double click Project1 > Microsoft Outlook Objects > ThisOutlookSession to open the ThisOutlookSession (Code) window. Then copy the following VBA code to the Code window.
VBA code: Delete the currently edited draft in reading pane
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. Save the code and press the Alt + Q keys to close the Microsoft Visual Basic for Applications window.
Now you need a button to run the macro.
4. Click Customize Quick Access Toolbar > More Commands.
5. In the Outlook Options dialog box, you need to configure as follows.
6. Keep the script selected in the right box, and then click the Modify button. In the Modify Button dialog box, assign a new button to the script and click OK.
7. Click OK in the Outlook Options dialog box to save the changes.
The button you specified in step 6 is then added to the Quick Access Toolbar.
8. Restart Outlook to activate the code.
From now on, when replying to an email in the reading pane, you can delete the reply along with the draft by clicking the button on the Quick Access Toolbar.
Note: After running the script, you need to select another email in the mailing list to refresh the mail view in the current folder.
AI Mail Assistant in Outlook: Smarter Replies, Clearer Communication (one-click magic!) FREE
Streamline your daily Outlook tasks with the AI Mail Assistant from Kutools for Outlook. This powerful tool learns from your past emails to offer intelligent and accurate responses, optimize your email content, and help you draft and refine messages effortlessly.
This feature supports:
- Smart Replies: Get responses crafted from your past conversations—tailored, precise, and ready to go.
- Enhanced Content: Automatically refine your email text for clarity and impact.
- Effortless Composition: Just provide keywords, and let AI handle the rest, with multiple writing styles.
- Intelligent Extensions: Expand your thoughts with context-aware suggestions.
- Summarization: Get concise overviews of long emails instantly.
- Global Reach: Translate your emails into any language with ease.
This feature supports:
- Smart email replies
- Optimized content
- Keyword-based drafts
- Intelligent content extension
- Email summarization
- Multi-language translation
Best of all, this feature is completely free forever! Don’t wait—download AI Mail Assistant now and enjoy!
a name="a2"> Delete the currently edited draft in a new window
If you like to reply to emails in a new window. The following VBA code can help to delete the reply email along with the draft easily in Outlook.
1. Launch your Outlook, press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.
2. Click Insert > Module. Then copy the following VBA code to the Module window.
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. Press the Alt + F11 to close the Microsoft Visual Basic for Applications window.
Now you need a button to run the macro.
4. Click Home > New Email to create a new email. In the message window, click Customize Quick Access Toolbar > More Commands.
5. Then repeat the steps above from 5 to 7 to create a button for the script and add it to the Quick Access Toolbar of the message window.
From now on, when replying to an email in a new message window, you can delete this reply along with the draft by clicking the button on the Quick Access Toolbar.
Best Office Productivity Tools
Breaking News: Kutools for Outlook Launches Free Version!
Experience the all-new Kutools for Outlook with 100+ incredible features! Click to download now!
📧 Email Automation: Auto Reply (Available for POP and IMAP) / Schedule Send Emails / Auto CC/BCC by Rules When Sending Email / Auto Forward (Advanced Rules) / Auto Add Greeting / Automatically Split Multi-Recipient Emails into Individual Messages ...
📨 Email Management: Recall Emails / Block Scam Emails by Subjects and Others / Delete Duplicate Emails / Advanced Search / Consolidate Folders ...
📁 Attachments Pro: Batch Save / Batch Detach / Batch Compress / Auto Save / Auto Detach / Auto Compress ...
🌟 Interface Magic: 😊More Pretty and Cool Emojis / Remind you when important emails come / Minimize Outlook Instead of Closing ...
👍 One-click Wonders: Reply All with Attachments / Anti-Phishing Emails / 🕘Show Sender's Time Zone ...
👩🏼🤝👩🏻 Contacts & Calendar: Batch Add Contacts From Selected Emails / Split a Contact Group to Individual Groups / Remove Birthday Reminders ...
Use Kutools in your preferred language – supports English, Spanish, German, French, Chinese, and 40+ others!
