While accessing Outlook SubFolder in Excel VBA Run time error -2147221233

Question

I am trying to access an Outlook folder with Excel VBA.
Some folders I am able to access but a few folders are not accessible.

I am able to read one subfolder with the below code.
When I try to change the folder it is giving the error.

Public Sub ReadOutlookEmails()
    Dim out_app As Outlook.Application
    Dim get_name As Outlook.Namespace
    Dim get_folder As Outlook.MAPIFolder
    Dim oAccount As Object
    Dim store_add As Object
    
    Dim monthKeyValuePair As New Scripting.Dictionary
    
    Dim email_list As New mscorlib.ArrayList
    Dim date_List As New mscorlib.ArrayList
    
    For Each c In Worksheets(ActiveSheet.Name).Range("D8:AH8")
        date_List.Add c
        'MsgBox c
    Next c
    
    Set out_app = New Outlook.Application
    
    Set get_name = out_app.GetNamespace("MAPI")
    
    For Each oAccount In out_app.Session.Accounts
     
     If oAccount.SmtpAddress = "[email protected]" Then
      
        Set store_add = oAccount.DeliveryStore
        
        'MsgBox store_add.GetDefaultFolder(olFolderInbox).Folders("New Joinees")
        
        'Set get_folder = store_add.GetDefaultFolder(olFolderInbox).Folders("On Bench Training")
        
        Set get_folder = store_add.GetDefaultFolder(olFolderInbox)
        Set get_folder = get_folder.Folders("On Bench Training")

Dmitry Streblechenko · Accepted Answer · 2022-06-13 07:31:06Z

1

The error is MAPI_E_NOT_FOUND, which means the folder with the given name does not exist.

Make sure the folder named "On Bench Training" is really a subfolder of the Inbox.

answered Jun 13, 2022 at 7:31

Dmitry Streblechenko

67.1k4 gold badges56 silver badges84 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Naveen Chhabra Over a year ago

Yes it is there

Dmitry Streblechenko Over a year ago

Can you see it in Outlook in the folder tree?

Eugene Astafiev · Accepted Answer · 2022-06-13 14:30:35Z

0

Instead of getting the folder by its name you may try iterating over all subfolders and checking their name. So, basically instead of the following line:

Set get_folder = get_folder.Folders("On Bench Training")

You may iterate over all subfolder:

For Each uFolder In get_folder.Folders
  If uFolder.Name = "On Bench Training" Then
        MsgBox "Found!"
  End If
Next uFolder

answered Jun 13, 2022 at 14:30

Eugene Astafiev

49.8k3 gold badges28 silver badges50 bronze badges

Collectives™ on Stack Overflow

While accessing Outlook SubFolder in Excel VBA Run time error -2147221233

2 Answers 2

2 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related