Vb.net Google calendar ExtendedProperty由用户填写

简短问题： 我有一个谷歌日历，里面的约会是通过vb.net程序输入的。我正在使用

ExtendedProperty

为变量填充一个值。但是，如果谷歌用户能够填写这个值，那就容易多了

长问题：我需要知道这项任命是否需要在会计软件中采取进一步行动。因此，如果用户能够在谷歌的预约中告知：“是的，如果订单完成，给客户打电话。”。然后我就能找到这个约会并采取行动。 我正在为此使用

newEvent.Content

Content

变量，但这很容易出错，因为用户需要填写： 是#如果订单准备好，给客户打电话#

我想知道用户是否可以更改Google日历中“Unit4Actives”的值

提前感谢,，

---

Brian

不，扩展属性只能使用API写入。

您有代码吗？目前，仅凭您提供的细节，任何人都很难/不可能准确回答这个问题。请记住，我们看不到您尝试了什么，我们只能看到您在上面发布的详细信息！谢谢，我已经添加了这个功能。谢谢。我很害怕。（对不起，我没有15个声誉，无法点击向上投票）

    Private Function GoogleAgendaAanmaken(ByVal GoogleEmail As String, ByVal GooglePassword As String, _
                         ByVal Titel As String, ByVal Omschr As String, ByVal Locatie As String, _
                         ByVal StartTijd As DateTime) As String

    GoogleAgendaAanmaken = ""
    Dim Id As String = Guid.NewGuid().ToString()

    Try

        Dim serv As CalendarService = GAuthenticate(GoogleEmail, GooglePassword)

        Dim newEvent As New Google.GData.Calendar.EventEntry
        newEvent.Title.Text = Titel
        newEvent.Content.Content = Omschr

        Dim Waar As New Google.GData.Extensions.Where()
        Waar.ValueString = Locatie
        newEvent.Locations.Add(Waar)

        Dim newTime As New Google.GData.Extensions.When()
        newTime.StartTime = StartTijd
        newTime.EndTime = DateAdd(DateInterval.Minute, 30, StartTijd)
        newEvent.Times.Add(newTime)

        Dim oExtendedProperty As New ExtendedProperty()
        oExtendedProperty.Name = "SynchronizationID"
        oExtendedProperty.Value = Id
        newEvent.ExtensionElements.Add(oExtendedProperty)

        Dim oExtendedProperty2 As New ExtendedProperty()
        oExtendedProperty2.Name = "Unit4Acties"
        oExtendedProperty2.Value = "JA"
        newEvent.ExtensionElements.Add(oExtendedProperty2)


        Dim newatom As AtomEntry
        Dim uri As New Uri("https://www.google.com/calendar/feeds/" & GoogleEmail & "/private/full")
        newatom = serv.Insert(uri, newEvent)
        GoogleAgendaAanmaken = Id

    Catch ex As Exception
        Call MessageBox.Show(ex.Message)
    End Try

    Return GoogleAgendaAanmaken

End Function