2014-11-04 65 views
0

設置屬性我已經建立了規則,與「Test1的」東西爲主題的運行yuno(我設置此功能後重新開始): enter image description here不能上的MailItem

我的代碼如下所示:

Sub yuno(ByRef mymail As MailItem) 
    mymail.MarkAsTask olMarkToday 
    mymail.TaskDueDate = Now 
    mymail.ReminderSet = True 
    Debug.Print "Y U NO?" 
End Sub 

「YU NO」在收到以「Test1」爲主題的電子郵件時打印,但它不會收到Outlook中的小紅旗。 Degustaf表示此代碼將正確標記此處的項目:https://stackoverflow.com/q/26722857/2642059但似乎問題在於將其作爲規則運行。

回答

1

我建議有一個缺失

mymail.Save 
+0

好極了,那解決它。所以我有其他宏代碼將'MailItem'標記爲已讀,並將其移至另一個文件夾,並且永遠不會執行'mymail.Save'。有沒有原因,這有效,而這不是? – 2014-11-04 15:46:17

+0

MailItem.Move創建並**保存**目標文件夾中的項目。 – 2015-12-04 16:50:19