/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 vote179 views1 answer
Random number generator vb.net
VBA
0 vote183 views1 answer
Vba format currency
VBA
0 vote185 views1 answer
Putting marquee in vb.net
VBA
0 vote176 views1 answer
Vba boolean to string
VBA
0 vote185 views1 answer
Vba loop through textboxes
VBA
32 votes345 views2 answers
Excel vba column letter
VBA
1 vote179 views1 answer
Excel vba to lower case
VBA
0 vote185 views1 answer
Dynamically change drop down list visual basic
VBA
3 votes194 views1 answer
Vba continue for each loop
VBA
2 votes169 views1 answer
Vba uppercase first letter of each word
VBA