從 Outlook 導入電子郵件數據

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