/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 vote149 views1 answer
Vba file chooser
VBA
0 vote103 views1 answer
Excel vba arrondir
VBA
0 vote148 views1 answer
Vba compare strings
VBA
0 vote159 views1 answer
VBA Sort RossetaCode
VBA
5 votes164 views1 answer
Excel vba tool to help with refactoring code
VBA
4 votes146 views1 answer
Vba create directory
VBA
6 votes146 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote154 views1 answer
Vbnet round to nearnest thousand
VBA
1 vote138 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA
20 votes280 views1 answer
Excel vba recursive example factorial function
VBA