到目前为止,我可以使用以下代码在日历中插入事件。
Dim calService As CalendarService = calendarFunctions.getCalendarService(txtrefreshToken.Text.Trim)
Dim calEventEntry As New Data.Event
calEventEntry.Summary = "Invoice #123456 Due on dd/mm/yyyy"
calEventEntry.Description = "Client: Acme Printing Ltd."
calEventEntry.Id = "inv5670010"
Dim eventStartDT As New Data.EventDateTime()
eventStartDT.DateTime = DateTime.Now.AddHours(24)
Dim eventStartEndDT As New Data.EventDateTime()
eventStartEndDT.DateTime = DateTime.Now.AddHours(25)
calEventEntry.Start = eventStartDT
calEventEntry.End = eventStartEndDT
Dim er As New EventsResource(calService)
Dim erResp As Data.Event = er.Insert(calEventEntry, txtactiveCal.Text.Trim).Execute()
'SO FAR SO GOOD!
'Add email reminder to event
Dim remR As New EventReminder()
remR.Method = "email"
remR.Minutes = 10
erResp.Reminders.Overrides.Add(remR) ' <<< ERROR: Object reference not set to an instance of an object
在最后一个块中,我试图将提醒添加到事件中(我知道这必须在事件创建后完成吗?)。在最后一行,我收到以下错误:
Object reference not set to an instance of an object
有谁知道我在这里做错了什么?
答案 0 :(得分:0)
我怀疑Overrides默认为null,因此除非你初始化它们,否则你不能在那里添加任何东西。
答案 1 :(得分:0)
我最后通过创建一个List(of EventReminder)
对象来添加所需的提醒并将其绑定到Overrides
的{{1}}属性,从而解决了这个问题。希望这段代码对其他人有帮助。
event.reminders