Извлечь почты из писем в outlook - VBA

Формулировка задачи:

Всем привет, подскажите пожалуйста, есть ли возможность извлечь все почты из писем в определенной папке в outlook. если есть, по подскажите мне, как можно это реализовать. Спасибо.

Решение задачи: «Извлечь почты из писем в outlook»

textual
                            Листинг программы 
                        

                            On Error Resume Next
    Dim objOutlook As Object, objNameSpace As Object
    Dim objFolder As Object, objMail As Object, iRow&
    Set objOutlook = CreateObject("Outlook.Application")
    Set objNameSpace = objOutlook.GetNamespace("MAPI")
    Set objFolder = objNameSpace.GetDefaultFolder(6)
    Set objFolder = objFolder.Folders("возвраты")
   Application.ScreenUpdating = False
   Sheets(1).Select
    For Each objMail In objFolder.Items
        If objMail.UnRead = True Then
                  iRow = iRow + 1: Cells(iRow, 1) = objMail.Body
'           objMail.UnRead = False ' изменяем статус на прочитано
        End If
    Next
         MsgBox "Письма загружены", vbInformation
                        