Excel VBA and Macros

VBA Code to Read Outlook Emails

Reading emails from Outlook and capture them in Excel file is very common activity being performed in office environment. Doing this activity manually every time is quite boring and time consuming. Here is a VBA code that can help you in this, you can use this code to select an Outlook folder and read all emails from selected folder.

Read Outlook Emails Code:

Public Sub ReadOutlookEmails()
    'Microsoft Outlook XX.X Object Library is required to run this code
    'Variable declaration
    Dim objFolder As Outlook.Folder
    Dim objNS As Outlook.Namespace
    Dim objMail As Outlook.MailItem
    Dim lCounter As Long
    'Set objects
    Set objNS = Outlook.GetNamespace("MAPI")
    Set objFolder = objNS.PickFolder
    'Validation if no folder picked by the user
    If TypeName(objFolder) = "Nothing" Then
        Exit Sub
    End If
    'Read emails from Outlook folder and update details in Sheet1
    For lCounter = 1 To objFolder.Items.Count
        Set objMail = objFolder.Items.Item(lCounter)
        Sheet1.Range("A" & lCounter + 5).Value = objMail.SenderName 'Sender name
        Sheet1.Range("B" & lCounter + 5).Value = objMail.To 'To
        Sheet1.Range("C" & lCounter + 5).Value = objMail.CC 'Cc
        Sheet1.Range("D" & lCounter + 5).Value = objMail.Subject 'Subject
        Sheet1.Range("E" & lCounter + 5).Value = objMail.ReceivedTime 'Email Received Time
        Sheet1.Range("F" & lCounter + 5).Value = objMail.Attachments.Count 'Attachment Count
    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:

1. From the Menu Bar, click on Tools > References…

2. Select ‘Microsoft Outlook XX.X Object Library’ and click on ‘OK’ button

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 ‘Read Outlook Emails’
7. Right click on the shape and select ‘Assign Macro…’

8. Select ‘ReadOutlookEmails’ from the list and click on ‘Ok’ button

9. Done

Download Practice File

You can also practice this through our practice files. Click on the below link to download the practice file.

Recommended Articles

Excel VBA and Macros

VBA Code to Delete File

Byexcelsirji

In this article we are going to show you how you can delete file or files using a single line of VBA code. 1. Delete a specific file from the folder, 2. Delete specific type of files from the folder, 3. Delete all files from the folder

Excel VBA and Macros | Productivity and Automation

VBA Code to Add New Sheet at Beginning or End of Excel File

Byexcelsirji

VBA Code To Add New Sheet In VBA, it is sometime important to add a worksheet at the right place in the Excel. Here is a simple an effective code that adds a new worksheet…

Excel VBA and Macros

VBA Code to Add Items in ListBox Control in Userform

Byexcelsirji

VBA Code To Add Items In Listbox Control Using ListBox in Userform is very common. You can use ListBox.AddItem function to add items in the listbox.; however, it is little difficult to add items in…

Excel VBA and Macros

VBA Code to Browse a Folder

ByKailash Sharma

VBA Code to Browse a Folder Quite often a VBA developer requires code to browse a folder. This is mainly for saving the output file or reading the input file(s). Below is the VBA code…

Productivity and Automation

VBA Code to Check if File Exist in Folder

Byexcelsirji

To ensure that your VBA project works smoothly without any error, you need to put lot of error handlers and validations. Here is one of them, below code can be used to check if the given path is valid or not. You just need to provide the path of the file to the function and it will check if the file exist at the location. If it returns True that means the file is available at the path, if it returns False that means it is invalid path or the file does not exist at the location.

Excel VBA and Macros | Productivity and Automation

How to Add Outlook Reference in Excel VBA

ByKailash Sharma

How to Add Outlook Reference in Excel VBA? To automate Outlook based tasks from Excel you need to add Outlook Object Library (Microsoft Outlook XX.X Object Library) in Excel References. You can follow below steps…

5 Comments

Marion Smith says:

at

Excellent!!! a few minor modifications, and it worked perfectly!

Reply
sunny says:

at

Is Outlook that come with Windows 10 applicable? or is Microsoft Outlook required for VBA? Thanks!

Reply
1. excelsirji says:
  
  at
  
  You should have installed and configured Outlook available where you are running the VBA Code.
  
  Reply
Rebecca says:

at

Can you do this to where you use a specified folder in the code instead of choosing each time?

Reply
1. excelsirji says:
  
  at
  
  Yes Rebecca, it is possible to specify the folder in the code. I suggest you to have a look at Outlook Email Management Tool. Once downloaded, we can customize your tool copy for free with remember feature, means the tool will remember last browsed folder to avoid browsing the folder again and again.
  
  Regards,
  ExcelSirJi Team
  
  Reply