Update non default calendar

Sharky12345 · #1 10-13-2020, 09:41 PM

I'm using this to add a new appointment to a non-default calendar in a shared mailbox but I am struggling to find a way to update the appointment once it's been added, if someone can assist please?

Code:

CalendarFolder = "SHARED MAILBOX NAME HERE"

'Create today
Dateofcheck = Format(Now, "dd/mm/yy")
With CreateObject("outlook.Application").GetNamespace("MAPI").Folders(CalendarFolder).Folders("SPECIFIC CALENDAR NAME HERE").Items.Add(olAppointmentItem)
.Start = Date    '"06/10/2020 22:00"
.Subject = "CHECKS IN PROGRESS"
.Categories = "CHECKS IN PROGRESS"
.AllDayEvent = True
.ReminderSet = False
.Save
End With

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Room calendar in Outlook 2016 copying default calendar	Leonard Hatred	Outlook	0	07-28-2016 09:10 AM
Update to calendar invite not showing on organizer's calendar	jnchin	Outlook	1	08-09-2014 10:55 AM
Calendar default view	ReviTULize	Outlook	0	02-29-2012 03:22 PM
Make Exchange calendar the default calendar	the-ninth	Outlook	2	11-03-2010 10:41 PM
Can't get to my calendar since it's not the default user	TraderViccc	Outlook	1	08-06-2010 05:08 AM