Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.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 限制（“TaskDueDate]”条件无效_Vba_Restrict_Contactitem - Fatal编程技术网
Fatal编程技术网
  • vba/
  • Vba 限制（“TaskDueDate]”条件无效

Vba 限制（“TaskDueDate]”条件无效

vba

Vba 限制（“TaskDueDate]”条件无效,vba,restrict,contactitem,Vba,Restrict,Contactitem,我试图使用TaskDueDate属性限制一组olcontactItems 从周日开始，我一直在尝试这个方法，但我不断地出错。最近的一个错误是 “条件无效” 我检查了一下，以确保组中的每个联系人都被标记为markedastask，结果都是真的。我不知道如何继续 If MassEmail.TimeFrame.Value <> "" Then Select Case MassEmail.TimeFrame Case "Due Today" subjFlag

我试图使用
TaskDueDate属性限制一组
olcontactItems

从周日开始，我一直在尝试这个方法，但我不断地出错。最近的一个错误是

“条件无效”

我检查了一下，以确保组中的每个联系人都被标记为
markedastask
，结果都是真的。我不知道如何继续


If MassEmail.TimeFrame.Value <> "" Then
   Select Case MassEmail.TimeFrame
     Case "Due Today"
        subjFlag = Date

    Case "This Week"
        subjFlag = Date + 7
    Case "Next Week"
        subjFlag = Date + 14
    Case ""
        subjFlag = Date
    Case Else
        subjFlag = Date
End Select
End If
Set supercontacts = allContacts.Restrict("[Categories]=" & myCat & "")
MsgBox supercontacts.Count

If subjFlag <> "" Then
   Set supercontacts = supercontacts.Restrict("[TaskDueDate]<=" & subjFlag &    "")
   MsgBox supercontacts.Count

End If



如果MassEmail.TimeFrame.Value为“”，则
选择Case MassEmail.TimeFrame
案件“今天到期”
subflag=日期
案例“本周”
SUBSKFLAG=日期+7
案例“下周”
SUBSKFLAG=日期+14
案例“”
subflag=日期
其他情况
subflag=日期
结束选择
如果结束
设置超级联系人=所有联系人。限制（“[Categories]=”&myCat&”）
MsgBox超级连接数
如果标记为“”，则
Set supercontacts=supercontacts.Restrict（“[TaskDueDate]