使用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 

出於某種原因，我不斷收到跟進算作即使有至少一個電子郵件標記爲後續。

爲了測試我曾嘗試以下：

For Each Msg In itms 
MsgBox Msg.FlagStatus 
Next 

而且電子郵件之一Flagstatus是和同樣顯示了MSGBOX在測試過程中。

當計算UnFlagged電子郵件或標記爲Completed的電子郵件時，該代碼可正常工作。

這對我來說絕對沒有意義。有什麼想法嗎？

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'") 

你可以找到 http://msdn.microsoft.com/en-us/library/office/ff861323(v=office.14).aspx在MSDN上的MailItem.FlagRequest酒店信息。