Как вернуть статус задачи из почтового сообщения? - PullRequest
Новая
       39

Как вернуть статус задачи из почтового сообщения?

0 голосов
/ 17 октября 2018

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

Я получаю ошибку во время выполнения «438» «Объект не поддерживает это свойство или метод».Я пытаюсь выяснить, завершен ли маленький флаг в Outlook (он же отмечен).

Вот что у меня есть до сих пор: 

        For Each currentTask In currentItem.Tasks
            Debug.Print currentTask.Status
            Report = Report & currentTask.Status
        Next

Это часть этой большой подпрограммы:

Private Sub GetAllEmailsInFolder(CurrentFolder As Outlook.Folder, Report As String)
    Dim currentItem
    Dim attachment As attachment
    Dim currentMail As MailItem
    Dim currenTask As TaskItem

    Report = Report & "Folder Name: " & CurrentFolder.Name & " (Store: " & CurrentFolder.Store.DisplayName & ")" & " (Date of report: " _
        & Date & ")" & vbCrLf & "Subject Name|Categories|Attachment Count|Task Status|Attachment Name(s)" & vbCrLf
    For Each currentItem In CurrentFolder.Items
        Report = Report & currentItem.Subject & "|"
        Report = Report & currentItem.Categories & "|"
        Report = Report & currentItem.Attachments.Count & "|"
        'need help here
        For Each currentTask In currentItem.Tasks
            Debug.Print currentTask.Status
            Report = Report & currentTask.Status
        Next
        '
        For Each attachment In currentItem.Attachments
            Debug.Print attachment.FileName
            Report = Report & attachment.FileName & ","
        Next

        Report = Report & vbCrLf
    Next

End Sub

1 Ответ

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

Использовать MailItem.FlagDueBy / FlagIcon / FlagRequest / FlagStatus / IsMarkedAsTask / TaskCompletedDate / TaskDueDate / TaskStartDate / TaskSubject / ToDoTaskOrdinal свойства.

...