/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 vote293 views1 answer
Vba vbcrlf chr
VBA
0 vote252 views1 answer
Excel vba urlmon
VBA
6 votes241 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote257 views1 answer
Vbscript remove spaces from string
VBA
1 vote233 views1 answer
Excel vba make cell visible
VBA
0 vote239 views1 answer
Vba word pdf table to excel
VBA
0 vote253 views1 answer
Vba foreach 2d array
VBA
1 vote231 views1 answer
Sort using vba
VBA
0 vote220 views1 answer
Excel vba extract year
VBA
0 vote232 views1 answer
Excel vba hide gridlines
VBA