Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/email/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba MailItem.MarkAsTask之后的Outlook 2010强制更新UI_Vba_Email_Outlook_Outlook 2010 - Fatal编程技术网

Vba MailItem.MarkAsTask之后的Outlook 2010强制更新UI

Vba MailItem.MarkAsTask之后的Outlook 2010强制更新UI,vba,email,outlook,outlook-2010,Vba,Email,Outlook,Outlook 2010,我有一个脚本,当我收到某个主题的电子邮件时运行。 在脚本的末尾,我想将邮件项目标记为完成,并在邮件旁边显示复选标记 我调用MarkAsTask olMarkComplete,它执行它应该执行的操作,但是用户界面不会更新,并且复选标记不会出现,除非我通过用户界面选择/取消选择电子邮件 编辑:当我循环浏览文件夹中的所有电子邮件时,它只对最后一组邮件有效。我是不是遗漏了什么 到目前为止,我的代码是: Dim reviewFolder As Folder Dim item As Outlook.Mail

我有一个脚本,当我收到某个主题的电子邮件时运行。 在脚本的末尾,我想将邮件项目标记为完成,并在邮件旁边显示复选标记

我调用MarkAsTask olMarkComplete,它执行它应该执行的操作,但是用户界面不会更新,并且复选标记不会出现,除非我通过用户界面选择/取消选择电子邮件

编辑:当我循环浏览文件夹中的所有电子邮件时,它只对最后一组邮件有效。我是不是遗漏了什么

到目前为止,我的代码是:

Dim reviewFolder As Folder
Dim item As Outlook.MailItem

Set myFolder = ThisOutlookSession.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("My Folder")

For Each item In myFolder.Items
    {other code}
    item.MarkAsTask olMarkComplete
Next
您需要调用MailItem.Save