Solved!! I managed to fix this by changing instead of params As String, I use params As Variant instead.
On Tue, Mar 24, 2009 at 4:40 PM, psyntium <[email protected]> wrote: > > 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 -~----------~----~----~----~------~----~------~--~---
