/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

1 vote213 views1 answer
Vba refresh pivot table
VBA
0 vote228 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote203 views1 answer
Excel vba address not absolute
VBA
0 vote215 views1 answer
Vba pass named range to function
VBA
0 vote218 views1 answer
Vba loop through textboxes
VBA
0 vote211 views1 answer
Excel named range sum
VBA
0 vote219 views1 answer
Excel last used row
VBA
1 vote227 views1 answer
Sort using vba
VBA
0 vote227 views1 answer
Excel vba ternary
VBA
0 vote210 views1 answer
Refresh token em vb net
VBA