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