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
- To begin with, you can compose your emails as usual and keep them open.
- Then, press “Alt + F11” to access VBA editor.
- 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
- After that, trigger this macro either by pressing “F5” key button directly.
- Finally, when the macro completes, you will get prompted of the number of emails to be sent.
- 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.
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