/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

-1 vote262 views1 answer
For i in range vba
VBA
0 vote266 views1 answer
Vbnet check if number is even or odd
VBA
0 vote283 views1 answer
Vbnet cycle through charaters in string
VBA
0 vote306 views1 answer
Vba userform textbox wrap text
VBA
0 vote270 views2 answers
Excel vba protect cells with formula
VBA
31 votes370 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote264 views1 answer
How to make a a msgbpx in vbs
VBA
5 votes329 views1 answer
Excel vba last byte from INTEGER
VBA
1 vote244 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote284 views1 answer
Vba add spaces
VBA