![]() 'Loop through the items in the collection. Set ResItems = calItems.Restrict(sFilter) 'create the filter - this copies appointments today to 3 days from now ' to use category named for account & calendar name ![]() ' Sort all of the appointments based on the start time Set CalFolder = NS.GetSharedDefaultFolder(objOwner, olFolderCalendar) Set objOwner = NS.CreateRecipient(nameFolder) Set objModule = (olModuleCalendar)įor i = 1 To Set printCal = objCalendar.Folders("Print") Set objCalendar = Session.GetDefaultFolder(olFolderCalendar) Set newCalFolder = NS.GetSharedDefaultFolder(objOwner, olFolderCalendar)ĭim objNavFolder As Outlook.NavigationFolder Set objOwner = NS.CreateRecipient("maryc") Set NS = Application.GetNamespace("MAPI") I can't seem to figure out how to specify the folder that I'm copying the events from especially since the "owner" of each of the shared calendars is the same. We use Office 365 Exchange Online as our server. Then I can use a mail merge to print the results. I need to be able to create a print out of all of the events on a particular day filtered by location.įrom your articles it looks as though my best bet might be to copy all of the entries for the day from each calendar to a calendar designed for exporting to a CSV file. We have about 30 shared conference room calendars. I've been reading your articles for the past few days and I find you to be brilliant.
0 Comments
Leave a Reply. |