/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 vote298 views1 answer
Hello world vb.net
VBA
2 votes318 views2 answers
Excel vba copy values range to another range
VBA
5 votes369 views1 answer
Vba low byte from INTEGER
VBA
0 vote338 views1 answer
Vba ternary
VBA
4 votes311 views2 answers
Excel vba last column with data
VBA
0 vote299 views1 answer
Excel vba copy entire sheet paste values
VBA
1 vote334 views1 answer
How to put a gridpain in a vbox
VBA
1 vote299 views1 answer
Excel vba last row of range
VBA
0 vote301 views1 answer
Combobox dropdown search visual basic -excel -C#
VBA
1 vote294 views2 answers
Vba remove first 2 characters from string
VBA