/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 vote226 views1 answer
Excel delete ever other vba
VBA
0 vote219 views1 answer
Date as number vb
VBA
0 vote201 views1 answer
Vba loop through textboxes
VBA
0 vote219 views1 answer
Vba remove numbers from string
VBA
0 vote223 views1 answer
Vba sort the data Z to A
VBA
8 votes221 views1 answer
Run command pormpt in background windows
VBA
0 vote197 views1 answer
Find the name of the last excel sheet vb
VBA
2 votes240 views2 answers
Excel vba if sunday or staurday
VBA
6 votes218 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote205 views1 answer
Excel vba disable mouse click
VBA