URL - https://developers.google.com/google-apps/calendar/Google Calender Чет VBA, выяснить, почему я получаю событие не найдена ошибка
Я использую Microsfot управления Internet Transfer и я пытаюсь отправить запрос удалять события в календаре Google, используя EVENTID вместо идентификатора entryID.
Это код, который я использовал,
strURL = "https://www.google.com/accounts/ClientLogin"
strFormData = "Email=" & myEmail & "&Passwd=" & myPassword & "&source=" & mySource &
"&service=cl"
strHeaders = "Content-Type:application/x-www-form-urlencoded"
Inet1.Execute strURL, "POST", strFormData, strHeaders
'Wait for the server response must include the authentication mode
Responded = False
Do Until Responded = True
DoEvents
Loop
'Ensure that the password is correct for Google
If InStr(response, "BadAuthentication") Then 'If the password is not Correct
MsgBox "Google has rejected the password. Confirm the e-mail and password and try
again.", vbCritical, "Error"
Exit Sub
End If
'Delete Event
AuthCode = Right(response, Len(response) - InStrRev(response, "Auth=") - 4)
strURL = "https://www.google.com/calendar/feeds/default/private
/full/NXZmcjNqM3ZpMnJuaW5hMnVocGM3bWgwbDAgaW50ZWxsaXNvZnR0ZWFtQG0"
strHeaders = "Authorization: GoogleLogin auth=" & AuthCode & _
"Content-Type:application/atom+xml"
Responded = False
Inet1.Execute strURL, "Delete", "", strHeaders
Do Until Responded = True
DoEvents
Loop
Но, я получаю ответ, как «события не найдено» (HTTP/1.1 404 Not Found), но у меня есть событие в календаре с eventID, который я предоставил в url.
Я не могу понять, почему я получаю событие не найдена ошибка.
Можно ли использовать API календаря Google v3 в Access VBA? Кажется, что нет возможности использовать это в VBA. Нужно ли нам развивать его в .net? –
Вот пример кода для VB с использованием клиентской библиотеки: http://samples.google-api-dotnet-client.googlecode.com/hg/Calendar.VB.ConsoleApp/README.html – luc
Спасибо, но это в vb. net, я ищу образец кода Visual Basic для приложений (VBA), который можно сделать в Microsoft Access. –