如何使用Excel VBA计算所有Outlook收件箱邮件的响应时间？

Question

用于邮件监控的VBA代码，该代码计算了Outlook收件箱中所有邮件的回复时间。

我能够将收件箱中的子文件夹中的数据提取到excel工作表中，但是我无法定义用于计算邮件回复时间的逻辑，我的代码也可以从子文件夹中成功提取数据，但是当我尝试对我的收件箱执行此操作，遇到运行时错误。

Sub GetFromOutlook()

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

    Set OutlookApp = New Outlook.Application
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox)
                 .Folders("impMail")

    i = 1

    For Each OutlookMail In Folder.Items
    If OutlookMail.ReceivedTime >= Range("From_date").Value Then
           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.Sender
           Range("eMail_text").Offset(i, 0).Value = OutlookMail.Body

           i = i + 1
    End If
    Next OutlookMail

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

End Sub

必填输出

具有以下各列的表：

主题行，发件人，邮件正文，到达时间，回复时间，邮件交换数量