将事件添加到google日历时出错-权限不足

Question

我正在尝试使用将事件添加到谷歌日历中。Net控制台应用程序作为客户端。我收到以下错误。

谷歌。API。请求。RequestError权限不足[403]错误[消息[权限不足]位置[-]原因[权限不足]域[全局]]

在线上

    service.Events.Insert(newEvent, "primary").Execute()

这是我的代码

    Dim Scopes As String() = {CalendarService.Scope.CalendarReadonly}
    Dim ApplicationName As String = "Google Calendar API .NET Quickstart"
    Dim credential As UserCredential
    Using stream = New FileStream("client_secret.json", FileMode.Open, FileAccess.Read)
        Dim clientSecrets = GoogleClientSecrets.Load(stream).Secrets
        Dim credPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Personal)
        credPath = Path.Combine(credPath, "D:/calendar-dotnet-quickstart.json")
        Dim dataStore = New FileDataStore(credPath, True)
        credential = GoogleWebAuthorizationBroker.AuthorizeAsync(clientSecrets, Scopes, "admin", CancellationToken.None, dataStore).Result
        Console.WriteLine("Credential file saved to: " & credPath)
    End Using

    Dim service = New CalendarService(New BaseClientService.Initializer() With {.HttpClientInitializer = credential, .ApplicationName = ApplicationName})

    Dim newEvent As New Google.Apis.Calendar.v3.Data.Event()
    Dim startDate As New EventDateTime
    Dim endtDate As New EventDateTime
    Dim scope =
    startDate.DateTime = DateTime.Now.AddHours(2)
    endtDate.DateTime = DateTime.Now.AddHours(5)

    newEvent.Summary = "XYZ reminder"
    newEvent.Description = "Please contact [e-mail]"
    newEvent.Start = startDate
    newEvent.End = endtDate
    newEvent.Id = "1122"


    Try
        service.Events.Insert(newEvent, "primary").Execute() 'Error here
    Catch ex As Exception
        Console.WriteLine(ex.Message & Environment.NewLine & ex.StackTrace)
    End Try

但是，我能够读取使用手动创建的事件

Dim request As EventsResource.ListRequest = service.Events.List("primary")

也尝试过

1. 在AuthorizeAsync中设置“用户”。
2. 在服务中将电子邮件地址设置为日历ID。事件。插入
3. 将范围设置为Dim Scopes As String（）={CalendarService。范围。日历}




Answer 1

问题是你的范围。

Dim Scopes As String（）={CalendarService.Scope.CalendarReadonly}

您可以读取，因为您的作用域是CalendarReadonly。

但是，要执行诸如插入事件之类的写入操作，需要使用读/写：

批准

此请求需要以下范围的授权（请阅读有关身份验证和授权的更多信息）。

范围

https://www.googleapis.com/auth/calendar

如果更改范围时它不起作用，请记住。NET Quickstart评论说：

//如果修改这些范围，请删除您以前保存的凭据//at~/。凭据/calendar-dotnet-quickstart.json

您修改了范围，您需要删除以前保存的凭据才能使新范围生效。