/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 vote220 views1 answer
Vbscript for loop
VBA
0 vote204 views1 answer
Vba argument is set
VBA
6 votes250 views1 answer
Excel vba isalpha
VBA
1 vote221 views1 answer
Excel vba saveas force overwrite
VBA
8 votes304 views1 answer
Vba make integer
VBA
0 vote238 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote237 views1 answer
Vbnet click on dgv cells
VBA
0 vote214 views1 answer
Excel vba remove formatting from cell
VBA
5 votes251 views1 answer
Excel vba get user selected range
VBA
1 vote226 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA