/VBA/For each item in folder outlook vba

For each item in folder outlook vba

Sub ListMailsInFolder()

    Dim objNS As Outlook.NameSpace
    Dim objFolder As Outlook.MAPIFolder

    Set objNS = GetNamespace("MAPI")
    Set objFolder = objNS.Folders.GetFirst ' folders of your current account
    Set objFolder = objFolder.Folders("Foldername").Folders("Subfoldername")

    For Each Item In objFolder.Items
        If TypeName(Item) = "MailItem" Then
            ' ... do stuff here ...
            Debug.Print Item.ConversationTopic
        End If
    Next

End Sub

Source: stackoverflow.com

Similar codes

0 vote168 views1 answer
How to call gcd in vba
VBA
2 votes131 views1 answer
Excel vba check if string entirely numeric
VBA
0 vote130 views1 answer
Excel vba unlock sheet without password
VBA
0 vote136 views4 answers
How to continue formula in below line in vba code
VBA
0 vote117 views1 answer
How to get the value of optionbutton in vba
VBA
0 vote119 views1 answer
Vba border weight
VBA
0 vote128 views1 answer
Vba extract filename from path
VBA
0 vote129 views1 answer
Average vba
VBA
0 vote128 views1 answer
Excel vba Column Name to Column Number
VBA
0 vote135 views1 answer
Vba file chooser
VBA