/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 vote136 views1 answer
Enable macros on opening workbook vba
VBA
0 vote136 views1 answer
Openfiledialog specific folder
VBA
0 vote125 views2 answers
Excel vba copy paste after last row
VBA
1 vote147 views1 answer
Add rows to datagridview vb.net
VBA
0 vote133 views1 answer
Excel vba send HTTP POST to server
VBA
2 votes134 views1 answer
Vba split string
VBA
1 vote135 views1 answer
Vba refresh pivot table
VBA
0 vote138 views1 answer
Selecttoken em vbnet e json
VBA
0 vote125 views1 answer
Docker vboxmanage not found
VBA
-1 vote135 views1 answer
VBA check if a cell contains a letter or string
VBA