excel - 使用 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 枚举:

... is deprecated and is not intended to be used in your code.

(详情请参阅 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 .