/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 vote167 views1 answer
Vba is integer
VBA
5 votes138 views1 answer
Vba array worksheet.index
VBA
0 vote161 views1 answer
Make your computer talk vbscript
VBA
0 vote170 views1 answer
Priavte sub with multiple handels find sneder
VBA
0 vote222 views1 answer
Excel vba add reference programmatically
VBA
0 vote144 views1 answer
Vba argument is set
VBA
0 vote155 views1 answer
Excel vba join variant array
VBA
0 vote164 views1 answer
Worksheet.pastespecial textbox
VBA
0 vote159 views1 answer
Vba string start with
VBA
0 vote164 views1 answer
Vbscript check if string is empty
VBA