不能上的MailItem

设置属性我已经建立了规则，与“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但似乎问题在于将其作为规则运行。

来源

2014-11-04 Jonathan Mee

我建议有一个缺失

mymail.Save

来源

2014-11-04 13:27:58 niton

好极了，那解决它。所以我有其他宏代码将'MailItem'标记为已读，并将其移至另一个文件夹，并且永远不会执行'mymail.Save'。有没有原因，这有效，而这不是？ – 2014-11-04 15:46:17

MailItem.Move创建并**保存**目标文件夹中的项目。 – 2015-12-04 16:50:19

不能上的MailItem

回答

相关问题