/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 vote190 views1 answer
Excel vba automatic calculation
VBA
0 vote196 views4 answers
Jwt token vb.net validation
VBA
0 vote129 views1 answer
Vba select file in folder
VBA
0 vote183 views1 answer
How to format a textbox as date vb net
VBA
0 vote211 views2 answers
Get unique random number in vb.net
VBA
0 vote215 views1 answer
Excel vba round to whole number
VBA
0 vote145 views1 answer
Vba set vs dim
VBA
1 vote193 views1 answer
Vb.net get name by Selection Changed
VBA
0 vote186 views1 answer
Switch pictures with buttons vb.net
VBA
0 vote177 views1 answer
Vb net dgv doesn't keep currency format
VBA