/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 vote271 views2 answers
How close excel through visual basic
VBA
0 vote293 views1 answer
VB get external IP address
VBA
0 vote295 views1 answer
VBA Loop to range
VBA
0 vote292 views1 answer
String contins in vba
VBA
0 vote280 views1 answer
Refresh token em vb net
VBA
0 vote277 views1 answer
Vb streamreader
VBA
0 vote289 views2 answers
Excel vba protect cells with formula
VBA
2 votes291 views1 answer
Vba split string
VBA
0 vote325 views1 answer
Excel vba convert cells address
VBA
1 vote294 views1 answer
Extract the second word in a text in excel
VBA