10.07.2015 Views

Lotus Instant Messaging/ Web Conferencing ... - IBM Redbooks

Lotus Instant Messaging/ Web Conferencing ... - IBM Redbooks

Lotus Instant Messaging/ Web Conferencing ... - IBM Redbooks

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

'Create the SOAP EnvelopestrEnvelope = _"" & _"" & _"" & _"" & _"" & SendTo & "" & _"" & MessageToSend &"" & _"" & _"" & _""'Set up the post to our <strong>Web</strong>Sphere ServerobjHTTP.Open "post","http://9.33.85.89:9080/AnnouncementSender/servlet/rpcrouter", False'Define the Header as a standard SOAP/ XML header for the content-typeobjHTTP.setRequestHeader "Content-Type", "text/xml"'Set the header for the method being calledobjHTTP.setRequestHeader "SOAPMethodName", "urn:AnnouncementSender"'Make the SOAP call using the strEnvelopeobjHTTP.send strEnvelope'Get the results that are passed back in an envelope from the SOAP callstrReturn = objHTTP.responseText'Put the Envelope that is returned into a cell on the spreadsheet'If you wish to see the returned envelope un comment the following line'Range("d3").Value = strReturn'Load the return envelope into a DOM so we can pull out specific valuesobjResults.loadXML strReturn'Pull out the return result state, -1 if the message failed, 0 if was sentsuccessfullyRange("C6").Value = objReturn.TextEnd SubChapter 6. Sametime and workflow 159

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!