/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 vote136 views1 answer
Vba variable number of arguments
VBA
0 vote138 views1 answer
Vbscript Trim
VBA
0 vote83 views1 answer
Excel vba arrondir
VBA
0 vote133 views1 answer
Get month number from month name vbnet
VBA
0 vote131 views1 answer
Excel vba cell on change
VBA
0 vote127 views1 answer
Vlookup columns not next to each other
VBA
0 vote124 views1 answer
Vba first cell in range
VBA
0 vote131 views1 answer
Excel vba automatic calculation
VBA
0 vote137 views2 answers
How to update date and time automatically once id is entered in excel vba
VBA
0 vote88 views1 answer
Vba code to remove leading and trailing spaces
VBA