/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 vote295 views1 answer
Excel vba disable screen update
VBA
3 votes322 views1 answer
Vba post request json
VBA
0 vote282 views1 answer
Get current url vb.net
VBA
0 vote282 views1 answer
Search in richtextbox vb.net
VBA
0 vote292 views1 answer
VBA is form loaded
VBA
0 vote282 views1 answer
Excel vba automatic calculation
VBA
1 vote283 views1 answer
Add rows to datagridview vb.net
VBA
0 vote278 views1 answer
Vb.net change cursor to wait
VBA
20 votes397 views1 answer
Excel vba factorial
VBA
0 vote298 views1 answer
Vba range clear formatting
VBA