Web service in Lotus script

Simply we can provide and consume the Web Service using Lotus Script.

Step 1:
Create the web service provider as firstWebservice.

Step 2:
Write the following class in it.

class first

Function messgae
message="Hai..."
End Function

End class

Step 3:
Web service provider property, Do the following...

Step 4:
Create a button at which you want to consume this web service.
Write the following code in it.

Code:

Dim v As Variant
Set Client =CreateObject("MSSOAP.SoapClient")
Call Client.mssoapinit ("URL OF DATBASE/Web Service Provider Name?WSDL")
Msgbox Client.message