Chilkat Online Tools

VB6 / Salesforce Platform APIs / Publish multiple events with SOAP call

Back to Collection Items

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As New ChilkatHttp
Dim success As Long

' Use this online tool to generate code from sample XML: Generate Code to Create XML

' The following XML is sent in the request body.

' <?xml version="1.0" encoding="UTF-8"?>
' <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns1="urn:sobject.partner.soap.sforce.com" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:ns2="urn:partner.soap.sforce.com">
'     <SOAP-ENV:Header>
'         <ns2:SessionHeader>
'             <ns2:sessionId>{{_accessToken}}</ns2:sessionId>
'         </ns2:SessionHeader>
'     </SOAP-ENV:Header>
'     <SOAP-ENV:Body>
'         <ns2:create>
'             <ns2:sObjects>
'                 <ns1:type>Carbon_Comparison__e</ns1:type>
'                 <Annual_Mileage__c>12000</Annual_Mileage__c>
'                 <Current_Vehicle__c>Fast car 1</Current_Vehicle__c>
'                 <Model_Year__c>2019</Model_Year__c>
'             </ns2:sObjects>
'             <ns2:sObjects>
'                 <ns1:type>Carbon_Comparison__e</ns1:type>
'                 <Annual_Mileage__c>12000</Annual_Mileage__c>
'                 <Current_Vehicle__c>Fast car 2</Current_Vehicle__c>
'                 <Model_Year__c>2019</Model_Year__c>
'             </ns2:sObjects>
'         </ns2:create>
'     </SOAP-ENV:Body>
' </SOAP-ENV:Envelope>
' 

Dim xml As New ChilkatXml
xml.Tag = "SOAP-ENV:Envelope"
success = xml.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/")
success = xml.AddAttribute("xmlns:ns1","urn:sobject.partner.soap.sforce.com")
success = xml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
success = xml.AddAttribute("xmlns:ns2","urn:partner.soap.sforce.com")
xml.UpdateChildContent "SOAP-ENV:Header|ns2:SessionHeader|ns2:sessionId","{{_accessToken}}"
xml.UpdateChildContent "SOAP-ENV:Body|ns2:create|ns2:sObjects|ns1:type","Carbon_Comparison__e"
xml.UpdateChildContentInt "SOAP-ENV:Body|ns2:create|ns2:sObjects|Annual_Mileage__c",12000
xml.UpdateChildContent "SOAP-ENV:Body|ns2:create|ns2:sObjects|Current_Vehicle__c","Fast car 1"
xml.UpdateChildContentInt "SOAP-ENV:Body|ns2:create|ns2:sObjects|Model_Year__c",2019
xml.UpdateChildContent "SOAP-ENV:Body|ns2:create|ns2:sObjects[1]|ns1:type","Carbon_Comparison__e"
xml.UpdateChildContentInt "SOAP-ENV:Body|ns2:create|ns2:sObjects[1]|Annual_Mileage__c",12000
xml.UpdateChildContent "SOAP-ENV:Body|ns2:create|ns2:sObjects[1]|Current_Vehicle__c","Fast car 2"
xml.UpdateChildContentInt "SOAP-ENV:Body|ns2:create|ns2:sObjects[1]|Model_Year__c",2019

http.SetRequestHeader "SOAPAction","create"
http.SetRequestHeader "Content-Type","text/xml"
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
http.SetRequestHeader "Accept","text/xml"
http.SetRequestHeader "charset","UTF-8"

Dim sbRequestBody As New ChilkatStringBuilder
success = xml.GetXmlSb(sbRequestBody)

Dim resp As ChilkatHttpResponse
Set resp = http.PTextSb("POST","https://domain.com/services/Soap/u/{{version}}",sbRequestBody,"utf-8","text/xml",0,0)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print resp.StatusCode
Debug.Print resp.BodyStr

Curl Command

curl -X POST
	-H "Authorization: Bearer <access_token>"
	-H "Content-Type: text/xml"
	-H "charset: UTF-8"
	-H "SOAPAction: create"
	-H "Accept: text/xml"
	-d '<?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns1="urn:sobject.partner.soap.sforce.com" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:ns2="urn:partner.soap.sforce.com">
    <SOAP-ENV:Header>
        <ns2:SessionHeader>
            <ns2:sessionId>{{_accessToken}}</ns2:sessionId>
        </ns2:SessionHeader>
    </SOAP-ENV:Header>
    <SOAP-ENV:Body>
        <ns2:create>
            <ns2:sObjects>
                <ns1:type>Carbon_Comparison__e</ns1:type>
                <Annual_Mileage__c>12000</Annual_Mileage__c>
                <Current_Vehicle__c>Fast car 1</Current_Vehicle__c>
                <Model_Year__c>2019</Model_Year__c>
            </ns2:sObjects>
            <ns2:sObjects>
                <ns1:type>Carbon_Comparison__e</ns1:type>
                <Annual_Mileage__c>12000</Annual_Mileage__c>
                <Current_Vehicle__c>Fast car 2</Current_Vehicle__c>
                <Model_Year__c>2019</Model_Year__c>
            </ns2:sObjects>
        </ns2:create>
    </SOAP-ENV:Body>
</SOAP-ENV:Envelope>'
https://domain.com/services/Soap/u/{{version}}

Postman Collection Item JSON

{
  "name": "Publish multiple events with SOAP call",
  "request": {
    "method": "POST",
    "header": [
      {
        "key": "Content-Type",
        "value": "text/xml"
      },
      {
        "key": "charset",
        "value": "UTF-8"
      },
      {
        "key": "SOAPAction",
        "value": "create"
      },
      {
        "key": "Accept",
        "value": "text/xml"
      }
    ],
    "body": {
      "mode": "raw",
      "raw": "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<SOAP-ENV:Envelope xmlns:SOAP-ENV=\"http://schemas.xmlsoap.org/soap/envelope/\" xmlns:ns1=\"urn:sobject.partner.soap.sforce.com\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xmlns:ns2=\"urn:partner.soap.sforce.com\">\n    <SOAP-ENV:Header>\n        <ns2:SessionHeader>\n            <ns2:sessionId>{{_accessToken}}</ns2:sessionId>\n        </ns2:SessionHeader>\n    </SOAP-ENV:Header>\n    <SOAP-ENV:Body>\n        <ns2:create>\n            <ns2:sObjects>\n                <ns1:type>Carbon_Comparison__e</ns1:type>\n                <Annual_Mileage__c>12000</Annual_Mileage__c>\n                <Current_Vehicle__c>Fast car 1</Current_Vehicle__c>\n                <Model_Year__c>2019</Model_Year__c>\n            </ns2:sObjects>\n            <ns2:sObjects>\n                <ns1:type>Carbon_Comparison__e</ns1:type>\n                <Annual_Mileage__c>12000</Annual_Mileage__c>\n                <Current_Vehicle__c>Fast car 2</Current_Vehicle__c>\n                <Model_Year__c>2019</Model_Year__c>\n            </ns2:sObjects>\n        </ns2:create>\n    </SOAP-ENV:Body>\n</SOAP-ENV:Envelope>",
      "options": {
        "raw": {
          "language": "xml"
        }
      }
    },
    "url": {
      "raw": "{{_endpoint}}/services/Soap/u/{{version}}",
      "host": [
        "{{_endpoint}}"
      ],
      "path": [
        "services",
        "Soap",
        "u",
        "{{version}}"
      ]
    }
  },
  "response": [
  ]
}