WinHTTP5.1 и удалить событие календаря Google?

Я не могу понять, что я делаю неправильно здесь. Я могу успешно добавить событие календаря с данными «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 заявляет, что нужно отправлять что-либо в теле и не устанавливать никаких заголовков.

Хелпппп !


person Stavros Pehlivanidis    schedule 04.06.2020    source источник


Ответы (1)


Решение проблемы.

Google API генерирует уникальный EID в ответе json. Я ошибся, потому что EID был в разделе htmlLink URK, где написано EID = это не EID.

Код работает!

person Stavros Pehlivanidis    schedule 11.06.2020