eigentlich was ganz einfaches.
%INCLUDE "lsxsd.lss"
Class CLSEMAIL As XSD_ANYTYPE
Public FROM As String
Public SUBJECT As String
Public WHEN As String
Public DIRECTION As String
Public TO As String
Public ID As String
Sub NEW
End Sub
End Class
Class CLSADDRESSHOLDER As XSD_ANYTYPE
Public HOLDER() As CLSADDRESS
Sub NEW
End Sub
End Class
Class CLSEMAILBODY As XSD_ANYTYPE
Public EMAILBODY As String
Sub NEW
End Sub
End Class
Class CLSADDRESS As XSD_ANYTYPE
Public COMPANY As String
Public STREET As String
Public ZIP As String
Public CITY As String
Public COUNTRY As String
Public PHONE As String
Public CELLPHONE As String
Public FAX As String
Public EMAIL As String
Public FIRSTNAME As String
Public LASTNAME As String
Public TITLE As String
Public FULLNAME As String
Public DIVISION As String
Public JOBTITLE As String
Public CUSTNO As String
Public UNID As String
Public FORM As String
Sub NEW
End Sub
End Class
Class CLSDETAILS As XSD_ANYTYPE
Public EMAILHOLDER As CLSEMAILHOLDER
Sub NEW
End Sub
End Class
Class CLSEMAILHOLDER As XSD_ANYTYPE
Public EMAIL() As CLSEMAIL
Sub NEW
End Sub
End Class
Class DHWebService As PortTypeBase
Sub NEW
Call Service.Initialize ("UrnDefaultNamespaceDHWebService", _
"DHWebService.DHWebService", "
http://mlotest:81/dhdemo/dhwebservices.nsf/wsDH?OpenWebService", _
"DHWebService")
End Sub
Function SEARCH(SEARCHSTRING As String, PIN As String) As CLSADDRESSHOLDER
Set SEARCH = Service.Invoke("SEARCH", SEARCHSTRING, PIN)
End Function
Function GETDETAILS(ADRID As String, PIN As String) As CLSDETAILS
Set GETDETAILS = Service.Invoke("GETDETAILS", ADRID, PIN)
End Function
Function GETEMAILBODY(EMAILID As String, PIN As String) As CLSEMAILBODY
Set GETEMAILBODY = Service.Invoke("GETEMAILBODY", EMAILID, PIN)
End Function
End Class
