SelectSingleNode ( "//urn:result/urn:sessionId" ).Text SalesforceLogin = SessionId Set Request = Nothing End Function ![]() responseText XMLResponse.LoadXML Response tProperty "SelectionNamespaces", "xmlns:soapenv="""" xmlns:urn=""urn:""" Dim SessionId As String SessionId = XMLResponse. setRequestHeader "SOAPAction", "login" Request. ![]() ![]() Function SalesforceLogin ( Username As String, _ Password As String, _ SecurityToken As String ) As String Dim Request As Object Set Request = CreateObject ( "MSXML2.XMLHTTP.6.0" ) Dim XMLBody As Object Dim XMLResponse As Object Set XMLBody = CreateObject ( "MSXML2.DOMDocument.6.0" ) Set XMLResponse = CreateObject ( "MSXML2.DOMDocument.6.0" ) Dim Url As String Dim Body As String Dim Response As String Url = "" Body = "" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & Username & "" & vbNewLine & _ " " & Password & SecurityToken & "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "" XMLBody.LoadXML Body Request.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |