/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 vote233 views1 answer
Vbs
VBA
0 vote242 views1 answer
Convert number to minutes in vba
VBA
0 vote255 views1 answer
Weekday vba
VBA
0 vote185 views1 answer
How to make a if statement with vbs
VBA
0 vote234 views1 answer
Vb net show lines for all axis labels in chart
VBA
0 vote234 views1 answer
Remove first character from string vb
VBA
0 vote244 views1 answer
Vbnet add axis labels to chart
VBA
25 votes301 views2 answers
Excel vba folder exist
VBA
0 vote259 views2 answers
Vb.net include quotes in string
VBA
0 vote251 views1 answer
Ribbon show/hide
VBA