/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 vote365 views1 answer
Vba listbox remove all items
VBA
0 vote347 views1 answer
Excel vba scroll to cell
VBA
1 vote351 views1 answer
How to check is the value enterd is a number or text in vba
VBA
0 vote345 views1 answer
Vba like with wildcard
VBA
0 vote334 views1 answer
Excel vba disable alerts
VBA
1 vote355 views1 answer
Add rows to datagridview vb.net
VBA
0 vote355 views1 answer
Internet explorer reference vba
VBA
0 vote406 views1 answer
Vba search string position
VBA
0 vote379 views1 answer
Loop through lines in text file vb net
VBA
0 vote356 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA