我已设置规则,以“Test1”作为主题运行yuno
(我在设置之后重新启动):
我的代码如下所示:
Sub yuno(ByRef mymail As MailItem)
mymail.MarkAsTask olMarkToday
mymail.TaskDueDate = Now
mymail.ReminderSet = True
Debug.Print "Y U NO?"
End Sub
“Y U NO”在收到以“Test1”为主题的电子邮件时打印,但在Outlook中没有收到小红旗。 Degustaf表示此代码会在此处正确标记该项:https://stackoverflow.com/q/26722857/2642059但问题似乎是将其作为规则运行。
答案 0 :(得分:1)
我建议缺少
mymail.Save