[datatable-help] RCurl_SOAP Request with Attachment

KarthikDG dgkarthik.mf at gmail.com
Mon Nov 27 16:18:20 CET 2017


I am trying for a SOAP request with an attachment but without success. Could
you please suggest on the below code. Thanks in advance.

library(RCurl)
library(XML)

body = '<?xml version="1.0" encoding="utf-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:inc="http://www.XXXXXXX.com/XXX/soap/incomingcommunicationservice"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:type="http://www.XXXXXXX.com/XXX/soap/incomingcommunicationservice/type">
   <soapenv:Header/>
    <soapenv:Body>
      <inc:storeIncomingCommunication>
         <type:storeIncomingCommunicationRequest>
            <type:incomingCommunication>
               <type:claimRef>
                  <type:externalIdentifier>1111111</type:externalIdentifier>
               </type:claimRef>
                <type:isFinished>false</type:isFinished>
               <type:userTaskTypeRef>
                 
<type:externalIdentifier>CAESCorrespondentie</type:externalIdentifier>
               </type:userTaskTypeRef>
               <type:documentList>
                
                  <type:document>
                    
<type:documentIdentifierInExtSys>100</type:documentIdentifierInExtSys>
                     <type:documentTypeRef></type:documentTypeRef>
                   
<type:areContentsStoredInExtSys>false</type:areContentsStoredInExtSys>
                     <type:isSigned>false</type:isSigned>
                       <type:filename>image001.pdf</type:filename>
                     <type:inboundReturnDocumentIdentifier/>
                  </type:document>
                 
               </type:documentList>
               <type:origin>
                  <type:initials>X.X.</type:initials>
                  <type:name>XXX XXXXX</type:name>
                  <type:city>XXXXXXXX</type:city>
                  <type:postalCode>1111XX</type:postalCode>
                  <type:houseNumber>11</type:houseNumber>
                  <type:houseNumberExtension>?</type:houseNumberExtension>
                  
                 
<type:unstructuredHouseNumber>?</type:unstructuredHouseNumber>
                  <type:streetName>XXXXXXXX XXXXXX</type:streetName>
                  <type:claimRoleRef>
                     <type:externalIdentifier>XXX</type:externalIdentifier>
                  </type:claimRoleRef>
               </type:origin>
               <type:dateReceived>2017-11-06</type:dateReceived>
               <type:emailSubject>XXXXXX XXXXX XXXX</type:emailSubject>
               <type:emailBody>XXXXXXXXXXX</type:emailBody>
               <type:description>XXXXXXXXXXXXX</type:description>
               <type:emailAddress>XXXXXXXXXXXX</type:emailAddress>
               <type:isComplaint>false</type:isComplaint>
              
<type:containsMedicalInformation>false</type:containsMedicalInformation>
              
<type:containsConfidentialInformation>false</type:containsConfidentialInformation>
               <type:isMatterOfFraud>false</type:isMatterOfFraud>
               <type:communicationTypeRef>Email</type:communicationTypeRef>
               <type:hasPriority>false</type:hasPriority>
              
<type:containsDocumentsInExtSystem>false</type:containsDocumentsInExtSystem>
              
            </type:incomingCommunication>
         </type:storeIncomingCommunicationRequest>
         <type:document1 href="image001.pdf"/>
      </inc:storeIncomingCommunication>
   </soapenv:Body>
</soapenv:Envelope>
'
reader = basicTextGatherer()

options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem",
package = "RCurl"), followlocation = TRUE,                                                   
httpheader = c(Accept = "text/xml",Accept = "multipart/*",'Content-Type' =
"text/xml; charset=utf-8",                                                  
SOAPAction="INTRANET URL"), userpwd = "USERID:PASSWORD", netrc =
TRUE,timeout = 100,    postfields = body, writefunction = reader$update,
verbose=TRUE,httpauth=AUTH_BASIC))

response_IncomingCommunicationService <- getForm("INTRANET URL",
                                                        file =
fileUpload(filename = "C:\\Users\\USERNAME\\Desktop\\image001.pdf",
contentType = "application/pdf"),upload=TRUE)

response_IncomingCommunicationService_html <-
htmlTreeParse(response_IncomingCommunicationService)$children$html

response_IncomingCommunicationService_html
closeAllConnections()

For the above code, I am getting the status as HTTP 1.1 200 OK but with the
response as no attachment.

Could you please check and let me know whether I am missing anything.




--
Sent from: http://r.789695.n4.nabble.com/datatable-help-f2315188.html


More information about the datatable-help mailing list