Разбираюсь с outlook. что не так? код не мой но по сути должен делать что мне надо, но он ничего не делает

Function ListOLInbox()
'спиcок писем в папке "входящие"
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderMail As Outlook.MAPIFolder
Dim OL_ItemMail As Outlook.MailItem
Dim OL_Attachment As Outlook.Attachment
' получаем объект Outlook
Set OL_App = CreateObject("Outlook.Application")
'получаем Namespace
Set OL_NameSpace = OL_App.GetNamespace("MAPI")
' получаем ссылку на папку Входящие
Set OL_FolderMail = OL_NameSpace.GetDefaultFolder(olFolderInbox)
' перебираем все письма в папке
For Each OL_ItemMail In OL_FolderMail.Items
With OL_ItemMail
'выводим тему, время получения, имя и адрес отправителя и текст письма
  Debug.Print .BodyFormat
  Debug.Print "Tema: " & .Subject
  Debug.Print "Получено: " & .ReceivedTime
  Debug.Print "Имя и адрес отправителя: " & .SenderName & " (" & .SenderEmailAddress & ")"
  Debug.Print "Текст письма: " & .Body
'если есть вложения выводим название вложенного файла
  If .Attachments.Count > 0 Then
   Debug.Print "Вложения: "
     For Each OL_Attachment In .Attachments
        Debug.Print OL_Attachment.FileName
     Next
  End If
End With 
Debug.Print "_______________________________________________"
Next
End Function