/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 vote390 views1 answer
Vba excel parser xml
VBA
1 vote344 views1 answer
Close form vba
VBA
0 vote368 views1 answer
Vba declare 64-bit ptrsafe
VBA
0 vote366 views1 answer
Default host vbox address
VBA
0 vote324 views1 answer
Excel vba concatenate range
VBA
0 vote374 views1 answer
Vbnet check if sting contians symbols
VBA
0 vote391 views1 answer
Delete all controls in an area vb
VBA
1 vote366 views1 answer
VBA Loop through recordset
VBA
20 votes510 views1 answer
Excel vba factorial
VBA
18 votes523 views3 answers
Excel-vba make integer
VBA