收件箱搜索仅显示在特定日期之前收到的电子邮件

Question

以下MS Office 2010 VBA摘录循环通过Outlook收件箱中的电子邮件仅显示在特定日期（超过一周前）之前收到的电子邮件。

For Each obj In olFolder.Items
If TypeName(obj) = "MailItem" Then
    Debug.Print obj.Subject & Chr(10) & obj.SenderEmailAddress & Chr(10) & obj.ReceivedTime
End If
Next

在Outlook本身的同一个帐户和同一个文件夹中显示更多电子邮件。

这个问题到底是什么？

Answer 1

您确定脚本不会引发错误吗？如果您有一个MailItem以外的项目（例如ReportItem或MeetingRequest）并且您尝试访问该对象未公开的属性，则会发生这种情况。