Получить ярлыки категорий Outlook через Excel VBA для общего почтового ящика - PullRequest
Новая
       20

Получить ярлыки категорий Outlook через Excel VBA для общего почтового ящика

0 голосов
/ 13 ноября 2018

У меня есть рабочий код, который извлекает письма из общего почтового ящика в Outlook. Я также пытаюсь указать, в какую "категорию" было назначено данное письмо.

Например: электронные письма приходят и относятся к красной категории, которая может быть помечена как «Завершено», к синей категории - «Требуется внимание» и т. Д.

Я хочу создать имя метки категории, но постоянно получаю сообщение об ошибке:

Ошибка времени выполнения '1004' Ошибка приложения или объекта`. 

Sub GetfromOutlook2() 

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Outlook.Namespace
Dim targetFolder As Outlook.MAPIFolder
Dim firstFolder As Outlook.MAPIFolder
Dim olMail As Outlook.MailItem

Dim objCategory As Category

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set firstFolder = OutlookNamespace.Folders("Mailbox Name")
Set targetFolder = firstFolder.Folders("Inbox")
Set HiperosFolder = targetFolder.Folders("00 - Production")

i = 1

For Each OutlookMail In HiperosFolder.Items

    If OutlookMail.ReceivedTime >= Range("From_date").Value Then
        Range("eMail_sender").Offset(i, 0).Value = OutlookMail.SenderName
        Range("eMail_date").Offset(i, 0).Value = OutlookMail.ReceivedTime
        Range("eMail_subject").Offset(i, 0).Value = OutlookMail.Subject
        Range("eMail_text").Offset(i, 0).Value = OutlookMail.Body

        'Range("eMail_category").Offset(i, 0).Value = Outlook.Category 'failed

        ' The line with the error: Application-define or object-defined error
        Range("eMail_category").Offset(i, 0).Value = objCategory 'another attempt 

        i = i + 1
    End If
Next OutlookMail

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

End Sub
...