我想在 VBA 中编写一个宏,它将为我提供上述类别中的所有项目。我可以找到所有的约会项目。我怎样才能找到其他人?任何想法?
设置 objExpCal=objNS.GetDefaultFolder(olFolderCalendar).GetExplorer
设置 objNavMod=objExpCal.NavigationPane.Modules.GetNavigationModule(olModuleCalendar)
设置 objNavGroup =objNavMod.NavigationGroups.GetDefaultNavigationGroup(olPeopleFoldersGroup)
对于 objNavGroup.NavigationFolders 中的每个 objNavFolder
设置 objFolder = objNavFolder.Folder
设置 oItems = objFolder.Items
对于 oItems 中的每个 MyItem
If (MyItem.Start >= dateintxtbox1 and MyItem.Start <= dateintxtbox2) 那么
'写入excel表格代码
万一
下一个
下一个