I inadvertently set my PDF-eXPLODE email connection configuration to go to the DRAFTS folder of MS Outlook (MAPI connection). I have tried dragging the emails from DRAFTS to OUTBOX folder and then clicking the SEND/RECEIVE button, but nothing happened. Now I believe I have to open each 'draft' email manually and then click SEND. I have more than 500 emails in the DRAFTS folder awaiting SEND. I need a way to send these automatically without having to open each one and click SEND thereby avoiding hours of work. Can this be done?
MS Outlook allows you to save many emails into the DRAFTS folder. However, there is no standard functionality that exists to be able to send those emails automatically in bulk, no ' SEND DRAFT EMAILS' button; however this can be achieved by copying and pasting the VBA program code below into a Outlook macro and assigning the macro to an Outlook ' Quick Access Toolbar ' button. Some of the following tip comes from https://www.datanumen.com/blogs/
Now copy all the code (beginning with Sub SendAllDraftEmails() to End Sub ) from the yellow window below. You can alternatively click the attachment to this article ( VBCode_SendFromDrafts.txt ) and download it to your Browser's download folder. Then open the downloaded attachment in Notepad; it may not show the line breaks, so you will have to adjust the code so it looks like the code in the "yellow" window below.
Dim objDrafts As Outlook.Items
Dim objDraft As Object
Dim strPrompt As String
Dim nResponse As Integer
Dim i As Long
Dim merror As Integer, Gcount As Integer
On Error GoTo err_handle
Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
Gcount = objDrafts.Count
If objDrafts.Count > o Then
strPrompt = "Are you sure you want to send out all the drafts?"
nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
If nResponse = vbYes Then
For i = objDrafts.Count To 1 Step -1
If merror > 0 And merror = Gcount Then
MsgBox "No Draft Emails Sent!", vbCritical, "Email Sending Errors!"
ElseIf merror > 0 And merror < Gcount Then
MsgBox "Some Draft Emails were sent - " & Trim(Str(merror)) & " emails were not sent", vbCritical, "Email Sending Errors!"
MsgBox "All Draft Emails Sent!", vbInformation, "Email Sending"
MsgBox "No Draft Emails Found!", vbExclamation, "No Draft Emails Found"
If Err = "-2147467259" Then
MsgBox "There must be at least one email address or contact group in the TO, CC or BCC fields" & vbCrLf & "Fix it and re-run your emails", vbExclamation, "Error in Email Address!"
merror = 1 + merror
The above screen shows you how your program code (white) window will look after you pasted a copy of the code from the yellow window. (The above is a MS Outlook 2010 window)
Highlight the project name at the top (in bold) in the left-hand pane and then change the name of the project in the Properties window below in the left hand pane - see image below
We now have to assign a button to this macro on to the Quick Access Toolbar in Outlook
If you want to exclude some of the emails in the Drafts folder from sending at this time, make a subfolder in Drafts like "On Hold". Then drag the emails you don't want to send into this subfolder. They will not get sent and when you are ready, just drag them back into the Drafts folder, then click your macro 'SendAllDraftEmails' run button.
As stated earlier in this KB article, if you have more than one email account set up in MS Outlook (see FILE/INFO/ACCOUNT SETTINGS) , then the 'SendAllDraftEmails' button will only send the emails from the Drafts folder of the account set as default.
If you have a paid PDF-eXPLODE Annual Support Plan, you can email us at firstname.lastname@example.org for help with any issue(s) you are having in getting this working.
Article ID: 79
Created On: Sun, Mar 19, 2017 at 3:45 AM
Last Updated On: Sat, Feb 17, 2018 at 6:23 PM
Online URL: http://kb.pdf-explode.com/article/how-can-i-automatically-send-all-my-emails-in-the-drafts-folder-of-ms-outlook-79.html