/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 vote341 views4 answers
How to continue formula in below line in vba code
VBA
0 vote337 views1 answer
Get current year vb
VBA
1 vote351 views1 answer
Find and replace textbox
VBA
0 vote330 views1 answer
Vba code for cutoff time
VBA
4 votes310 views1 answer
Excel vba how to reset usedrange
VBA
0 vote316 views1 answer
How to use VBA to add new record in MS Access?
VBA
0 vote352 views1 answer
Vbnet check if string is only letters
VBA
0 vote312 views1 answer
Excel autofilter vba
VBA
8 votes423 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote353 views1 answer
Vba random number
VBA