Импорт категоризирует электронные письма из Outlook в Excel

Question

У меня работает следующий макрос из Excel.

Sub GetFromOutlook()

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Dim objMail As Outlook.MailItem
Dim objFlaggedMail As Outlook.MailItem

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set olShareName = OutlookNamespace.CreateRecipient("email_address@address.com")
Set Folder = OutlookNamespace.GetSharedDefaultFolder(olShareName, olFolderInbox)

i = 1


For Each OutlookMail In Folder.Items
    Range("eMail_subject").Offset(i, 0).Value = OutlookMail.Subject
    Range("eMail_date").Offset(i, 0).Value = OutlookMail.ReceivedTime
    Range("eMail_sender").Offset(i, 0).Value = OutlookMail.SenderName
    Range("D" & i).Value = MailItem.Categories

    i = i + 1
Next OutlookMail

Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing

End Sub

Однако в этой строке Range("D" & i).Value = MailItem.Categories Я всегда получаю сообщение об ошибке. Я хотел бы, чтобы в этой ячейке были показаны категории. Одно электронное письмо может иметь несколько категорий, а некоторые будут иметь одну, но все назначенные категории должны быть показаны там.

Я получаю ошибку:

Ошибка времени выполнения '424': требуется объект.