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

Popular posts from this blog

php - Why I am getting the Error "Commands out of sync; you can't run this command now" -

linux - Does gcc have any options to add version info in ELF binary file? -

java - Are there any classes that implement javax.persistence.Parameter<T>? -