/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 vote150 views1 answer
Vba get workbook name
VBA
0 vote140 views1 answer
Excel protect cells with formulas
VBA
8 votes174 views1 answer
Run command pormpt in background windows
VBA
0 vote160 views1 answer
Supprimer la valeur de celule vba
VBA
0 vote164 views1 answer
Vba keep command window open
VBA
1 vote155 views1 answer
Set font for ms chart vb.net
VBA
0 vote171 views1 answer
Vba multiple optional arguments
VBA
0 vote159 views1 answer
Vba sort multiple columns
VBA
-1 vote155 views1 answer
Vba code to add new column in table
VBA
0 vote201 views1 answer
Excel vba protect content
VBA