/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 vote307 views1 answer
Vba array of integers
VBA
0 vote224 views1 answer
Refer to resource using string variable vb.net
VBA
22 votes297 views1 answer
Xlvba check for folder
VBA
0 vote218 views1 answer
Vb.net change cursor to wait
VBA
1 vote212 views1 answer
Close form vba
VBA
0 vote218 views1 answer
Vbnet check if sting contians symbols
VBA
0 vote235 views1 answer
Set datetimepicker value to null vb
VBA
-1 vote238 views1 answer
How save excel through visual basic
VBA
5 votes219 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote222 views1 answer
Vb net dgv doesn't keep currency format
VBA