Thread: Update non default calendar
View Single Post
 
Old 10-13-2020, 09:41 PM
Sharky12345 Sharky12345 is offline Windows 10 Office 2013
Novice
  
Join Date: Oct 2020
Posts: 2
Sharky12345 is on a distinguished road
Default Update non default calendar
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
Reply With Quote