vba - outlook shared calendar recurring item between the date specified range -
following code can print number of recurring items in shared calendar folder. want take date range user sdate , edate , want check recurring normal aapointment item between specified date range , print it. recurring item start on 1/1/2010 , has no enddate recurs every friday. want check specific item recur in between date range or not, if yes want print details.
sub item() dim objexpcal outlook.explorer dim objnavmod outlook.calendarmodule dim objnavgroup outlook.navigationgroup dim objnavfolder outlook.navigationfolder dim objfolder outlook.folder set objol = application set objns = objol.session set colexpl = objol.explorers set objexpcal = _ objns.getdefaultfolder(olfoldercalendar).getexplorer set objnavmod = objexpcal.navigationpane.modules. _ getnavigationmodule(olmodulecalendar) set objnavgroup = objnavmod.navigationgroups. _ getdefaultnavigationgroup(olpeoplefoldersgroup) each objnavfolder in objnavgroup.navigationfolders set objfolder = objnavfolder.folder set oitems = objfolder.items set colfiltereditems = oitems.restrict("[isrecurring] = true") each objitem in colfiltereditems debug.print objitem set objpattern = objitem.getrecurrencepattern next next end sub
use items.includerecurrences property: http://msdn.microsoft.com/en-us/library/office/aa171434(v=office.11).aspx
Comments
Post a Comment