2 Quick Methods to Send the Copy of a Draft Email in Outlook

If you desire to send a copy of a specific draft email only, instead of the draft itself, such that you can reuse this draft, you can utilize the 2 methods introduced in this article.

Perhaps you think that creating and using message template is quite troublesome as every time you need to use it, you have to firstly find it in “Choose Form”. Thus, you may prefer to save a draft email as an email template. However, in general, when you need to send an email using the draft, if you straightly open the specific draft and click “Send” button, the draft will be sent out and disappear from Drafts folder at once. Hence, you’ll be unable to reuse this draft. In this case, you’ll hope that you can simply send a copy of the specific draft, instead of the draft itself. In response to this issue, here we will teach you 2 approaches.

Method 1: Forward a Specific Draft Email

1. At the very outset, start your Outlook application.
2. Then shift to the “Drafts” folder.
3. Next locate and pitch on the specific draft email.
4. Subsequently, click the “Forward” button in “Respond” group under “Home” tab.
5. At once, a new email with the same content as the specific draft will pop up.
6. Now you can compose it at will and finally hit “Send” button to send it.

This way is quite convenient if you only have a few drafts in the Drafts folder. But if you have a great amount of drafts, you will feel it difficult to locate the specific frequently-used one. At that point, you may prefer the following tip.

Method 2: Send a Copy of a Specific Draft Email

1. In the first place, press “Alt + F11” key buttons.
2. Subsequently, in the popup VBA editor window, open a new module.
3. Next copy and paste the following VBA codes into it.

Sub SendCopyofSpecificDraft()
    Dim objDrafts As Outlook.Items
    Dim objSpecificDraft As MailItem
    Dim strDraftSubject As String
    Dim strFilter As String
    Dim nPrompt As Integer
    Dim objMailCopy As MailItem
 
    Set objDrafts = Application.Session.GetDefaultFolder(olFolderDrafts).Items
   
    'Replace the following line with the subject of the specific frequently-used draft
    strDraftSubject = "DataNumen Outlook Repair" 
    strFilter = "[Subject] = " & Chr(34) & strDraftSubject & Chr(34)
    'Find the specific draft item
    Set objSpecificDraft = objDrafts.Find(strFilter)
 
    If objSpecificDraft Is Nothing Then
       'Prompt you if no such a draft
       nPrompt = MsgBox("No such a draft exists!", vbExclamation)
    Else
       'If there is such a draft, locate and copy it
       Set objMailCopy = objSpecificDraft.Copy
       If Not objMailCopy Is Nothing Then
          objMailCopy.Display
       End If
    End If
End Sub

4. After that, you ought to the new macro to Quick Access Toolbar.
5. Finally you can have a try.

• Firstly, click the macro button in Quick Access Toolbar.
• Next a copy of the specific draft email will display at once.
• But if there is no such a draft in Drafts folder, you will receive a message like the following screenshot:

Dispose of Frequent Outlook Issues

Maybe you’ve encountered a certain amount of Outlook troubles. How do you cope with them as usual? In general, if the issues are small, the inbox repair tool is enough for them. But if the problems are involved with corrupted PST file, you had better utilize a much more remarkable tool, like DataNumen Outlook Repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server corruption and outlook repair software products. For more information visit www.datanumen.com