Public Sub DraftOutlookEmails()
'Microsoft Outlook XX.X Object Library is required to run this code
'Variable declaration
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim lCounter As Long
'Set objects
Set objOutlook = Outlook.Application
'Read details from Excel sheet and draft emails
For lCounter = 6 To 8 'You can change the counter as per requirement
'Create a new email item
Set objMail = objOutlook.CreateItem(olMailItem)
'To
objMail.To = Sheet1.Range("A" & lCounter).Value
'Cc
objMail.CC = Sheet1.Range("B" & lCounter).Value
'Subject
objMail.Subject = Sheet1.Range("C" & lCounter).Value
'Email Body
objMail.Body = Sheet1.Range("D" & lCounter).Value
'Add Attachment
objMail.Attachments.Add (Sheet1.Range("E" & lCounter).Value)
'Draft email
objMail.Close (olSave)
'Close the object
Set objMail = Nothing
Next
'Show confirmation message to user
MsgBox "Done", vbInformation
End Sub
It is worth to mention that you must have MS Outlook installed in your system to use this code and you also need to add Office reference (Microsoft Outlook XX.X Object Library) in Excel VBA from Menu Bar (Tools>References…). Below are the steps to add Office reference in Excel VBA:
To use this code in your Excel file, follow below steps:
1. Open an Excel file
2. Press Alt+F11
3. Insert a Module (Insert>Module) from menu bar
4. Paste the code in the module
5. Now add a shape in Excel sheet
6. Give a name to the shape like ‘Draft Outlook Emails’
7. Right click on the shape and select ‘Assign Macro…’
8. Select ‘DraftOutlookEmails’ from the list and click on ‘Ok’ button
9. Done
To help you practice this code, we have made this code available through practice file. Click on the below link to download the practice file.
We are currently offering our Excel VBA Course at discounted prices. This courses includes On Demand Videos, Practice Assignments, Q&A Support from our Experts. Also after successfully completion of the certification, will share the success with Certificate of Completion
This course is going to help you to excel your skills in Excel VBA with our real time case studies.
Lets get connected and start learning now. Click here to Enroll.
Here is another best rated Excel Charts and Graph Course from excelsirji. This courses also includes On Demand Videos, Practice Assignments, Q&A Support from our Experts.
This Course will enable you to become Excel Data Visualization Expert as it consists many charts preparation method which you will not find over the internet.
So Enroll now to become expert in Excel Data Visualization. Click here to Enroll.
Hope you are enjoying learning Excel with us, if you want any support related to this article, please do comment else you can ask questions in Excel Community
What is the Usage of sheet color in Excel? When we prepare a report or a dashboard it is easy to identify or analyze reports with a change of color sheet tabs. Analysts generally give…
Here we are coming with one more exciting post which can help you to solve very basic but very important problems while writing VBA codes.
Have you ever got into situation in office where you need to count the cells in Excel sheet with specific color? If yes then you can use following code which counts the number of cells…
Random Rows Selector is an MS Excel based tool which can be used to pick random or stratified samples from a set of records available in the Excel. The tool is fully dynamic, it can support any data format in Excel.
VBA Code to Filter Data in Excel Here is an easy reference code which filters data in the sheet. In the code, we have filtered the data in three steps. Step 1: Remove existing filter from…
How to use VBA to open Workbook in Excel? There are few VBA codes which are commonly used by every developer. One of them is giving an option to user to browse a file. Below is a…
How can I reference a table I want to add in email body? Lets say for example I want a table (with matched formatting) in between this is a test email 1 and thanks?
Also how would you go about including a signature?
Thanks!
Thanks Sam for highlighting your challenge. This seems a customized requirement. We are currently working on VBA Utilities which will be available under Tools and Templates Section soon. Hope that will help your needs.
If you are looking to hire a VBA expert to complete your project, you may submit your project details at https://excelsirji.com/hire-us/ and we will get back to you in 48 hours with details.
Happy Reading 🙂
Your Excel mate
Great News Sam,
We have created a utility tool as you asked. You may get the same from below link:
https://products.excelsirji.com/downloads/outlook-bulk-email-tool/
Please let us know your valuable feedback.
Regards
Excel Mate
Thank you for publishing this example. Everything works great in my environment, with one exception. When I send the draft e-mail, the e-mail is bounced because my company domain was attached to the e-mail address pulled from the spreadsheet. For example, from my spreadsheet the email address [email protected] is being sent to [email protected]@mycompany.com. If I manually type the email address or even copy/paste from Excel into Outlook, it displays exactly the same in Outlook as the one populated from Excel but those are sent correctly. Any idea why? Thanks again!
Hi Marty,
Please accept our apologies for delayed response.
The issue explained by you seems to be caused due to mailto tag available in To (Column A) and Cc (Column B) in the sheet. Please ensure that email id mentioned in the Excel sheet is plain text and no hyperlink or mailto tag is attached to it.
Regards,
Your Excel Mate
Hi,
Thanks for the code.
I need to attach multiple files based on partial filename within the same folder.
Can you please kindly how can I achieve that using above draft email outlook code.
Thanks in advance.
Hi Shiva,
You can try below code where new variable named strBaseFolderPath has been added to define base folder path where attachments are saved:
Note that this code does not attach multiple files in one email instead only one attachment can be added per email.
You can also have a look at https://products.excelsirji.com/downloads/outlook-bulk-email-tool/. Though it also does not support multiple attachments per email but we can customize it for you.
Regards
ExcelSirJi Team
It runs and says “done” but there is no draft email popping up or in the outlook email box. I have Microsoft Outlook 16.0 Object Library added in reference.
Could you please check “Draft” folder in your outlook. It should show there. Thanks
Hi Sir,
Thnks a lot for the above. Works well.
However, lets say the word “test” in email body should be Bold, i have it as bold in the excel sheet but when the mails are drafted it does not appear as bold. Is there a way to solve this?
Best,
Hi Domah,
It may not be simple but let me suggest you have way out.
First replace the code
objMail.Body = Sheet1.Range("D" & lCounter).Value
withobjMail.HTMLBody = Sheet1.Range("D" & lCounter).Value
Then write email body in Excel in HTML format, something like below:
Hi,
This is a <b>test</b> email 1.
Thanks
Note that there is a bold tag added for test word.
Then run the code, it should work.
Thanks & Regards,
ExcelSirJi Team
Hello,
I copied this code tried to Run but I didnt find this Excel sheet to fill details For To,cc etc. Can u plz guide on this.
If possible please share Macro to if not possible then pl guide here how can I do this?
Hi Prakash,
You can have a look at Outlook Bulk Email Tool.
https://products.excelsirji.com/downloads/outlook-bulk-email-tool/
Regards,
ExcelSirJi
Hi I tried using the above VBA code to automatically create draft mail, but all the time only blank mails are formed please help
There could be 2 reasons for this:
Hope this would solve your problem.
HI,
I tried what you have written, but event though, all mail attributes are right, then also my emails, to , cc , subject, body,, still everything is empty
please help
I will share a video this week on the same on my YouTube channel. Hope that may help.
Nice post. I learn something totally new and challenging on websites
Great. Keep Learning 🙂
Hi! Thank you for the code. May I have an additional code to the existing that includes a table on the body? Thank you.
Hi Cles,
You may refer to Outlook Bulk Email Tool for the ready made solution. If you are just looking for a code to add table on the email body then you can refer VBA Code to Convert Excel Range into HTML Table post.
Regards,
ExcelSirJi Team