我需要在日历中搜索约会。
以下内容来自即时窗口。
debug.Print strSearch
[Start] >= "11/19/2019"
Set objBackupCalendar = Outlook.Session.GetDefaultFolder(olFolderCalendar).Folders("BackupCal")
Set objBackupCalItems = objBackupCalendar.Items
objBackupCalItems.IncludeRecurrences = True
objBackupCalItems.Sort "[Start]", False
Set objBackupCalRestrictedItems = objBackupCalItems.Restrict(strSearch)
Debug.Print objBackupCalRestrictedItems.Count
2147483647
Set objBackupCalendar = Outlook.Session.GetDefaultFolder(olFolderCalendar).Folders("BackupCal")
Set objBackupCalItems = objBackupCalendar.Items
objBackupCalItems.IncludeRecurrences = True
objBackupCalItems.Sort "[Start]", True
Set objBackupCalRestrictedItems = objBackupCalItems.Restrict(strSearch)
Debug.Print objBackupCalRestrictedItems.Count
44
我确定我没有超过100条记录。
objBackupCalRestrictedItems.Count
显示2147483647的情况如何>>
我需要在日历中搜索约会。以下摘自立即窗口。 debug.Print strSearch [开始
该值表示对象不知道确切的编号,这很有意义-如果您的定期约会没有结束日期,则该编号将是无限的。您只需要遍历整个集合,定期约会将根据需要进行扩展。