仅在任务处于活动状态时处理 Outlook 任务答案

【问题标题】：process outlook task only if task is active仅在任务处于活动状态时处理 Outlook 任务
【发布时间】：2020-06-25 16:07:29
【问题描述】：

我有一个宏，它使用“For Each”处理默认文件夹中的所有现有任务，如下面的代码所示。但是问题是，这也会处理已经不活动（完成）的任务。就我而言，我有 10,000 个任务异常处理。知道如何改进以执行诸如“对于每个人，这是活跃的......”之类的事情吗？

Set olkApp = CreateObject("Outlook.Application")  
Set olkNS = olkApp.GetNamespace("MAPI")
olkNS.Logon "Outlook"    
Set olkTaskFolder = olkNS.GetDefaultFolder(6)  
For Each objItem In olkTaskFolder.Items

类似于
Outlook Script to process task updates

【问题讨论】：

标签： vba outlook

【解决方案1】：

if not objItem.Complete Then

或

您可以使用 Restrict 完全避免完成的任务：

Set olkTaskFolder = olkNS.GetDefaultFolder(6)  
set objItems = olkTaskFolder.Items.Restrict("[Complete] = 'false' ")
For Each objItem In objItems

【讨论】：