Hello, I am trying to get my contacts from the Google Contacts API:
The first lines of code works fine, I recieve the token from Google
and extract it correctly.
When I after that use my token to get my contacts feed I get "Token
Invalid" and a 401 error.
Anyone know what is wrong in my code
== Working Code ==
Dim objHttp As Variant,token as string
Set objHttp = CreateObject("Microsoft.XMLHTTP")
objHttp.open "POST", "https://www.google.com/accounts/ClientLogin";,
False
objHttp.setRequestHeader "Content-Type", "application/x-www-form-
urlencoded"
objHttp.send "[email protected]&Passwd=mypw&Service=cl"
token = Strrightback(objHttp.responseText,"Auth=")
== NOT WORKING CODE ==
objHttp.open "GET", "http://www.google.com/m8/feeds/contacts/defult/
full", False
objHTTP.setRequestHeader "Authorization", "GoogleLogin auth=" + token
objHTTP.setRequestHeader "Content-Type", "application/atom+xml"
objHttp.send Null
print objHttp.responseText
=======================
Thank you
Thomas Adrian
http://www.notessidan.se
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Google Contacts API" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/google-contacts-api?hl=en
-~----------~----~----~----~------~----~------~--~---
