WinHTTP5.1＆Delete Google Calendar Event？

Question

我无法理解我在这里做错了什么。我可以成功添加带有“ POST”和json数据的日历事件。但是我不明白删除它时我在做什么错。我收到错误401，但实际上我知道我已通过正确的范围进行了100％身份验证。

感谢您的帮助。

If TokenExpired = False Then

Dim objhttp As New WinHttp.WinHttpRequest
Set objhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
EID = TheDatabase(InProgramPos).GCalEID
DelUrl = "https://www.googleapis.com/calendar/v3/calendars/primary/events/" & EID

objhttp.open "DELETE", DelUrl
objhttp.send

If objhttp.Status = 401 Then
    MsgBox objhttp.responseText
    TokenExpired = True
    Call GenerateOAuth2Token
End If

生成一个新的有效令牌后，我重新运行上面的代码，它继续对我产生错误401。EID是正确的。 Google API声明要在正文中发送任何内容，也不设置任何标头。

Helppppp！

Answer 1

解决问题的方法。

Google API在json响应中生成唯一的EID。我误认为EID在htmlLink URK部分中，却说EID =这不是EID。

代码正在工作！