WriteEventToCalendar