使用 Excel VBA 计算后续电子邮件

Question

我正在使用 Office 2013，我正在尝试获取我的一个电子邮件文件夹中的后续项目的计数，此值将写入一个单元格。

所以我在添加 Outlook 对象库引用后使用以下代码：

Dim Folder As Outlook.MAPIFolder

Dim objOL As Outlook.Application
Set objOL = New Outlook.Application

MailboxName = "mymailboxhere"
Main_Folder_Name = "Inbox"
Sub_Folder_Name = "Test"

Set Folder = Outlook.Session.Folders(MailBoxName).Folders(Main_Folder_Name).Folders(Sub_Folder_Name)

Dim itms As Outlook.Items
Set itms = Folder.Items

Dim FollowupItms As Outlook.Items
Set FollowupItms = itms.Restrict("[FlagStatus] = 2")

Followup = FollowupItms.Count
Worksheets("Sheet1").Range("A1").Value = Followup

出于某种原因，即使至少有一封电子邮件被标记为跟进，我的跟进计数仍为 0。

为了测试，我尝试了以下方法：

For Each Msg In itms
MsgBox Msg.FlagStatus
Next

其中一封邮件的 Flagstatus 为 2，测试期间在 Msgbox 中显示相同。

在计算未标记的电子邮件或标记为已完成的电子邮件时，该代码可以正常工作。

这对我来说完全没有意义。有什么想法吗？

Answer 1

MSDN 说 OlFlagStatus 枚举：

... 已弃用，不打算在您的代码中使用。

（详见http://msdn.microsoft.com/en-us/library/microsoft.office.interop.outlook.olflagstatus(v=office.14).aspx）

请尝试使用MailItem.FlagRequest 属性。例如

Set FollowupItms = itms.Restrict("[FlagRequest] = 'Follow up'")

您可以在 MSDN 上找到有关 MailItem.FlagRequest 属性的信息，网址为 http://msdn.microsoft.com/en-us/library/office/ff861323(v=office.14).aspx.