Google Calender Vr3-如何为活动添加提醒? [英] Google Calender Vr3 - How do I add a reminder to an event?

问题描述

到目前为止，我可以使用以下代码在日历中插入事件.

So far I am able to insert an event in a calendar using the following code.

    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

在最后一个块中，我试图将提醒添加到事件中(我无法理解是否必须在事件创建后执行此操作?).在最后一行，我得到以下错误:

In the last block I am trying to add the reminder to the event (I unserstand this must be done after the event has been created?) . On the last line I get the following error:

Object reference not set to an instance of an object

有人知道我在做什么错吗?

Does anyone know what I'm doing wrong here?

推荐答案

我最终通过创建添加所需提醒的List(of EventReminder)对象并将其绑定到event.reminders的Overrides属性来解决了这个问题.希望这段代码对其他人有帮助.

I solved this in the end by creating a List(of EventReminder) object adding the desired reminder and binding this to the Overrides property for event.reminders. Hopefully this code may be of help to others.

    Dim eventReminder As New List(Of EventReminder)()
    eventReminder.Add(New EventReminder() With { _
         .Minutes = 10, _
         .Method = "email" _
    })

    Dim de As New Data.Event.RemindersData()
    de.UseDefault = False
    de.[Overrides] = eventReminder

    calEventEntry.Reminders = de

    Dim er As New EventsResource(calService)
    Dim erResp As Data.Event = er.Insert(calEventEntry, txtactiveCal.Text.Trim).Execute()

    Response.Write("Event ID: " & erResp.Id & "<br/>")
    Response.Write("Link: <a href=""" & erResp.HtmlLink & """>" & erResp.HtmlLink & "</a><br/>")

这篇关于Google Calender Vr3-如何为活动添加提醒?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！