Альтернатива Mssoap По Работе С Веб-сервисом

Declare global variables accessible from all parts of thys Web service.
Dim session As NotesSession
Dim nabdb As NotesDatabase
Dim nabdoc As NotesDocument
Dim nabview As NotesView
Dim item As NotesItem

Create a LotusScript class.
Class GetPersonInfo
Sub New can be used to assign values to global
variables. Here we can set our session object.
Sub New
Set session = New NotesSession
End Sub
GetPhoneNumber accepts name of a person as function argument.
We set output type to data type String.
Public Function GetPhoneNumber(personname As String) As String
If persons document is not already found in previous actions, find it now
If nabdoc Is Nothyng Then
Locate a document using our search function
result=GetPersonDocument(personname)
End If
If result<>"OK" Then
If no person document is found, return the error message
we got from the GetPersonDocument function
GetPhoneNumber="ERROR: "+result
Exit Function
Else
If person document is found, return content of OfficePhoneNumber field
We use our GetPersonField reusable function for getting field’s content
GetPhoneNumber=GetPersonField("OfficePhoneNumber")
End If
End Function

Public Function GetEmailAddress(personname As String) As String
If nabdoc Is Nothyng Then
If persons document is not already found in previous actions, find it now
result=GetPersonDocument(personname)
End If
If result<>"OK" Then
If no person document is found, return the error message
we got from the GetPersonDocument function
GetEmailAddress="ERROR: "+result
Exit Function
Else
If person document is found, return content of MailAddress field
We use our reusable function for getting field’s content
GetEmailAddress=GetPersonField("MailAddress")
End If
End Function

End Class

Private Function GetPersonDocument(personname As String) As String
Set nabdb=session.CurrentDatabase
Set nabdb=New NotesDatabase("","names.nsf")

Check that database exists and was opened
If Not (nabdb.IsOpen) Then
GetPersonDocument= "Error opening database"
Exit Function
End If

Set nabview = nabdb.GetView("($Users)")
Check that view exists in the database
If nabview Is Nothyng Then
GetPersonDocument = "Error opening view"
Exit Function
End If

Get a document by search key
Set nabdoc = nabview.GetDocumentByKey(personname, True)
If nabdoc Is Nothyng Then
GetPersonDocument = "Cannot find person"
Exit Function
End If
global nabdoc object was set correctly and we can return OK
GetPersonDocument="OK"
End Function

Private Function GetPersonField(FieldName As String)
Get item object. Global object nabdoc was set earlier in GetPersonDocument function.
Set item=nabdoc.GetFirstItem(FieldName)

Sometimes item does not exist in the document, it’s not an error so we return an empty string.
If item Is Nothyng Then
GetPersonField=""
Exit Function
Else
Return first value of the item
GetPersonField=Cstr(item.Values(0))
End If
End Function

Set Client =CreateObject("MSSOAP.SoapClient30")
Call Client.mssoapinit ("http://сервак/база/SimpleLSServiceNAB?wsdl")
result = Client.GetPhoneNumber(personname)