/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 vote342 views1 answer
Vba collection contains
VBA
1 vote322 views1 answer
Vba declare api 64 bit 32 bit
VBA
1 vote340 views1 answer
Excel vba compare 2 rows
VBA
0 vote371 views1 answer
Sort dictionary by key vba
VBA
0 vote335 views1 answer
Vba horizontalalignment
VBA
0 vote344 views4 answers
How to continue formula in below line in vba code
VBA
0 vote339 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote292 views1 answer
Vba set vs dim
VBA
0 vote352 views1 answer
Loop through each cell in dgv vbnet
VBA
0 vote320 views1 answer
Vba format currency
VBA