/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 vote186 views3 answers
Write to text file vb.net
VBA
5 votes198 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote184 views1 answer
Vba check if class implements interface
VBA
0 vote172 views1 answer
Excel vba hide gridlines
VBA
0 vote184 views1 answer
Vb run command
VBA
0 vote177 views1 answer
Vbnet round to nearnest thousand
VBA
1 vote170 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
1 vote188 views1 answer
Vba refresh pivot table
VBA
2 votes174 views1 answer
Vba round number
VBA
0 vote172 views1 answer
Vbscript check if string contains
VBA