Excel vba: Looping through all subfolders in Outlook email to find an email with certain subject

Viewed 15409

I have written the following code in Excel VBA that opens an email with the given subject if located in the default inbox folder in Outlook.

However, I would like to search for this email in all inbox subfolders.

Because the code will be used by several users, I do not know the number and the name of their outlook inbox subfolders. Any ideas on how I could search this email in all subfolders?

Sub GetEmail()

    Dim OutApp as Object
    Dim Namespace as Object
    Dim Folder as Object
    Dim myMail as Object

    Set OutApp = CreateObject("Outlook.Application")
    Set Namespace = OutApp.GetNamespace ("MAPI")
    Set Folder = Namespace.GetDefaultFolder(6)

    Set myMail = Folder.Items.Find ("[Subject] = ""Test""")

    myMail.Display


End Sub
1 Answers
Related