2014-10-14 1 views
0

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.

Я не могу понять, почему я получаю событие не найдена ошибка.

ответ

1

Вы не должны использовать вход клиента или использовать/feeds/url, поскольку оба они устарели, а последние будут закрыты в ноябре этого года. Перейдите на API v3 и отправьте свой вопрос, если у вас все еще есть проблемы. Документация находится по адресу: https://developers.google.com/google-apps/calendar

+0

Можно ли использовать API календаря Google v3 в Access VBA? Кажется, что нет возможности использовать это в VBA. Нужно ли нам развивать его в .net? –

+0

Вот пример кода для VB с использованием клиентской библиотеки: http://samples.google-api-dotnet-client.googlecode.com/hg/Calendar.VB.ConsoleApp/README.html – luc

+0

Спасибо, но это в vb. net, я ищу образец кода Visual Basic для приложений (VBA), который можно сделать в Microsoft Access. –