/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 vote176 views1 answer
WGET FTP
VBA
3 votes171 views1 answer
Excel vba get the workbook full file name with path
VBA
0 vote162 views1 answer
Vba text to general
VBA
0 vote191 views1 answer
Vba round to 2 decimals
VBA
0 vote165 views1 answer
How to set location and size of new from vb
VBA
0 vote173 views1 answer
Vbs
VBA
2 votes176 views1 answer
Excel vba check if string entirely numeric
VBA
1 vote178 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
0 vote185 views1 answer
VBA is form loaded
VBA
6 votes175 views1 answer
Excel vba check if a string only contains alpha characters
VBA