/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

1 vote219 views1 answer
Excel vba hide zero values
VBA
0 vote283 views1 answer
Visual basic cmd
VBA
0 vote257 views1 answer
Vba timestamp -- milliseconds
VBA
0 vote242 views1 answer
Vb.net change cursor to wait
VBA
8 votes376 views1 answer
Excel vba determine number of elements in a 1D array
VBA
5 votes246 views1 answer
Excel-vba get integer high byte
VBA
0 vote226 views1 answer
Vbscript remove spaces from string
VBA
0 vote247 views1 answer
Delete all controls in an area vb
VBA
1 vote230 views1 answer
Excel vba unload userform
VBA
0 vote282 views2 answers
Checking and changing system volume vb.net
VBA