/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 vote198 views1 answer
Excel vba address not absolute
VBA
0 vote224 views1 answer
Group controls programmatically vb
VBA
0 vote208 views1 answer
Vba file chooser
VBA
3 votes207 views1 answer
Vba not equal
VBA
0 vote252 views1 answer
Excel vba protect content
VBA
0 vote200 views1 answer
Excel vba clear filter
VBA
0 vote212 views2 answers
Vba remove line breaks
VBA
0 vote245 views1 answer
Wpf dark title bar
VBA
-1 vote194 views1 answer
For i in range vba
VBA
1 vote242 views1 answer
Excel vba convert text YYYYMMDD to date
VBA