How to Batch Send All Open and Composed Emails in Your Outlook

After you finish composing some emails in Outlook, you may hope to send them out in one go. Now, in this article, we will teach you how to get it with the help of VBA code.

For instance, you’ve completed some new emails but not sent them, just keeping them open. And afterwards, you want to send them out. In general, you have to click the “Send” button in the every email one by one. Under this circumstance, you must long for a method which can support you to send all the open and composed emails in bulk.

In the followings, we will expose such an effective way to you. It is using VBA. if you don’t how to use VBA, you can refer to the article – “How to Run VBA Code in Your Outlook” meanwhile.

Batch Send All Open and Composed Emails

1. To begin with, you can compose your emails as usual and keep them open.
2. Then, press “Alt + F11” to access VBA editor.
3. Next, in the new window, copy the following VBA code into a module.

Sub BatchSendOutAllOpenEmails()
    Dim objInspectors As Outlook.Inspectors
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim lMailCount As Long
 
    'Get all open items in your Outlook
    Set objInspectors = Outlook.Application.Inspectors
 
    lMailCount = 0
    For i = objInspectors.Count To 1 Step -1
        If objInspectors.Item(i).CurrentItem.Class = olMail Then
           'Get all open emails
           Set objMail = objInspectors.Item(i).CurrentItem
 
           'Send out open emails that contain subject & recipients
           If objMail.Subject <> "" Then
              If objMail.Recipients.Count > 0 Then
                 objMail.Send
                 lMailCount = lMailCount + 1
              End If
           End If
        End If
    Next
 
    'Prompt you of the results
    MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub

4. After that, trigger this macro either by pressing “F5” key button directly.
5. Finally, when the macro completes, you will get prompted of the number of emails to be sent.
6. Now, open Outbox, in which you can see that all previously opened emails are being sent.

Restore Outlook from Unexpected Damage

Have you ever encountered Outlook corruption before? Many users have been subject to this issue and have complained about it. In general, if you make timely and effective solutions, you can readily retrieve Outlook data from damaged PST file. For instance, if you have an updated Outlook data, you can easily revert to the backup. Of course, you could take aid of an excellent and reliable repair tool, like DataNumen Outlook Repair, which can scan the corrupt Outlook file and recover maximum data.

Author Introduction:

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