/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 vote129 views1 answer
Programmatically copy data from one workshet to another excel
VBA
1 vote123 views1 answer
Vba date to unix timestamp
VBA
0 vote112 views1 answer
Style percent not found vba
VBA
0 vote133 views2 answers
Do until loop vba
VBA
0 vote128 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
1 vote118 views2 answers
Get all column names from excel vba
VBA
0 vote128 views1 answer
Excel vba urlmon
VBA
3 votes131 views1 answer
Vba http request json
VBA
0 vote121 views1 answer
Vlookup columns not next to each other
VBA
2 votes128 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA