excel - 根据日期和时间导入电子邮件数据

Question

我正在尝试从给定日期和时间的 Outlook 收件箱中导入数据。
我的问题是宏从它多次看到的第一封电子邮件中提取数据。
它对后续的电子邮件效果很好。如何只从每封电子邮件中提取一次数据？
代码基本上是我在网上找到的一个模板。
我尝试让循环检查重复项并在发现重复项时清除内容，但出现类型不匹配错误。

Dim OUTAPPLICATION As Outlook.Application
Dim OUTNAMESPACE As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Dim Time As Date

Set OUTAPPLICATION = New Outlook.Application
Set OUTNAMESPACE = OUTAPPLICATION.GetNamespace("MAPI")
Set Folder = OUTNAMESPACE.GetDefaultFolder(olFolderInbox)

i = 1

For Each OutlookMail In Folder.Items
    If OutlookMail.ReceivedTime >= range("Date").Value Then
        range("Footprints").Offset(i, 0).Value = OutlookMail.Subject
        range("Type").Offset(i, 0).Value = OutlookMail.SenderName
        range("ETA").Offset(i, 0).Value = OutlookMail.ReceivedTime
        range("SH").Offset(i, 0).Value = OutlookMail.Body
        range("Status").Offset(i, 0).Value = OutlookMail.CC
    
        i = i + 1
    
    End If
Next OutlookMail

该程序需要很长时间才能运行。有没有办法让它跑得更快？

Answer 1

在结束代码之前添加此代码

Set Folder = Nothing
Set OUTNAMESPACE = Nothing
Set  OUTAPPLICATION= Nothing