Lotus Instant Messaging/Web Conferencing (Sametime): Building Sametime Enabled Applications

160 Lotus Instant Messaging/Web Conferencing (Sametime): Building Sametime-Enabled Applications

With this code, a SOAP envelope is created that is sent to the

AnnouncementSender Web service. The lines:

SendTo = Range("C3").Value

MessageToSend = Range("C4").Value

read the values that are in cells C3 and C4 into the variables SendTo and

MessageToSend. The lines:

"<User xsi:type=""xsd:string"">" & SendTo & "</User>" & _

"<Announcement xsi:type=""xsd:string"">" & MessageToSend & "</Announcement>" &

_

are where the SendTo and MessageToSend variables are substituted into the

SOAP message.

The remaining lines handle the interaction with the Microsoft XML Services, and

handling the response. The last lines:

'Pull out the return result state, -1 if the mess ...