Sub initialize
Dim xmlhttp
Dim userid As String, pw As String
Dim params As String
WebServer = "https://www.google.com/accounts/ClientLogin";
userid = Inputbox("Please enter your email:")
pw = Inputbox("Please enter your
password:")
params = "Email=" + userid + "&Passwd=" + pw +
"&source=IBM-
LotusApp-1.0&service=cl"
Msgbox params
Set xmlhttp = createobject("MSXML2.ServerXMLHTTP")
Call xmlhttp.open ("POST", WebServer, False)
Call xmlhttp.setRequestHeader("Content-Type","application/x-www-form-
urlencoded")
Call xmlhttp.setRequestHeader ("Content-length", Len(params))
Call xmlhttp.setRequestHeader ("Connection", "close")
Call xmlhttp.send (params)
strxml = xmlhttp.responseText
Msgbox strxml
End Sub
Referring to my code above, it seems that I'm receiving a
"Error=BadAuthentication" message as a response text. Anything that
I'm missing here?
Appreciate your help. ^_^
Best regards,
psyntium
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Google Calendar Data 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-calendar-help-dataapi?hl=en
-~----------~----~----~----~------~----~------~--~---
