How to Extract Data from Attachments in Outlook

[Photomofo]

Good Morning,

I'm trying to write a sub that downloads attachments from Outlook. I'm building off the code I found here. My only real problem is that this code is pointed at my Primary inbox and I need to be able to customize which folder to target.

VBA to extract Excel attachments from Outlook inbox

Greetings - I'm looking for some Excel vba that will extract excel attachments (.xls, .xlsm & .xlsx) from my Outlook inbox and save to a specified directory. Someone showed me some Outlook vba code that did this - it actually worked but was very querky and unreliable. I'm running office '07...

www.mrexcel.com

I found this tool here that does exactly what I want but he's got it password protected. In his spreadsheet he's got a box marked Retrieve From and it's got a dropdown so you can select which specific folder to get attachments from. I don't need a drop down but I need some way to control which Folder is targeted.

Can someone point me in the right direction? I've never done any interfacing with Outlook so I'm not familiar with how to do this.

Download

Extract Outlook Emails. Contribute to deepaklohia/ExtractOutlookEmail development by creating an account on GitHub.

github.com

 

[QuietRiot]

Is it a sub folder of inbox? I played around and got the below working if that's helpful.

Public Sub OutlookFolderTest()

    Dim OlApp As New Outlook.Application
    Dim OlFolder As Outlook.MAPIFolder
    Dim OlSubFolder As Outlook.MAPIFolder
        
    Set OlApp = GetObject(, "Outlook.Application")
    
    If Err.Number = 429 Then
        Set OlApp = CreateObject("Outlook.application")
    End If
    
    ' Inbox
    Set OlFolder = OlApp.Session.GetDefaultFolder(olFolderInbox)

    ' Example of getting a specific sub folder
    Set OlSubFolder = OlFolder.Folders.Item("NameOfFolder")
    MsgBox OlSubFolder.Name & " : " & OlSubFolder.Items.Count
    
    ' Example of getting all sub folders
    If (OlFolder.Folders.Count > 0) Then
        For Each OlFolder In OlFolder.Folders
            MsgBox OlFolder.Name & " : " & OlFolder.Items.Count
        Next
    End If


'clean up
Set OlFolder = Nothing
Set OlSubFolder = Nothing
Set OlApp = Nothing

End Sub

 

[Photomofo]

Nice name QR. Thank you for your time and effort. I only come here after hitting a brick wall after a couple of hours of trying. I solved the problem using a very similar approach to what you've listed here.

We've got multiple inboxes depending on job qualification. The inbox I was trying to identify wasn't my personal account but a shared account so I had to figure out a way to move though the folders until I found the right Sub Folder to interrogate.