How to copy outlook 2010 shared calendar appointment or meeting to personal calendar by vba?

Not open for further replies.

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
You'll use the method here : and change the path used by the original calendar (Set curCal = NS.GetDefaultFolder(olFolderCalendar).Items) and the copy (Set newCalFolder = GetFolderPath("display name in folder list\Calendar\Test"))

If copying from shared to local, you'd basically switch the two lines -

Set curCal = GetFolderPath("display name in folder list\Calendar\Test").Items
Set newCalFolder = NS.GetDefaultFolder(olFolderCalendar)
Not open for further replies.