Retrieve Email Info From Subfolder.vb

Sub Retrieve_SubFolder_Emails()

    Dim ns As NameSpace
    Dim olInboxFolder As MAPIFolder, olSubFolder As MAPIFolder
    Dim msg As MailItem

    Set ns = GetNamespace("MAPI")
    Set olInboxFolder = ns.GetDefaultFolder(olFolderInbox)
    Set olSubFolder = olInboxFolder.Folders("Sub Folder")
    
    For Each msg In olSubFolder.Items
        
        Debug.Print "Subject: " & msg.Subject
        Debug.Print "Email Body: " & msg.Body
        Debug.Print "Sender Email: " & msg.SenderEmailAddress
        
    Next msg
    
    '// Release memories
    Set olSubFolder = Nothing
    Set olInboxFolder = Nothing
    Set ns = Nothing
    
End Sub