Sub Initialize
Dim wsdl As String
Dim client As Variant
Dim result As Variant
Dim result2 As Variant
Dim startTime As Single
Dim endTime As Single
'** create the MSSOAP object, based on our WSDL file
startTime = Timer
wsdl = "http://test.server/WSBookstore.nsf/BookDownloadUpload?WSDL"
'** try to use MSSOAP 3.0, if available
On Error Resume Next
Set client = CreateObject("MSSOAP.SoapClient30")
On Error Goto processError
'** if not, use whatever version is on the workstation
If (Err > 0) Then
Err = 0
Set client = CreateObject("MSSOAP.SoapClient")
End If
Call client.MSSoapInit(wsdl)
'** call the GetFirstTitleMatch method (note that MSSOAP is
'** NOT case-sensitive with the method names)
Set result = client.getFirstTitleMatch("T")
endTime = Timer
Print "Total elapsed time: " & Fix((endTime - startTime) * 1000) & " milliseconds"
'================================
Dim session As New NotesSession
Dim fileIN As NotesStream
Set fileIN = session.CreateStream
If Not fileIN.Open("c:\teete.txt","Binary") Then
Msgbox "Cannot open teete.txt", , "Error"
Exit Sub
End If
If fileIN.Bytes = 0 Then
Msgbox "File did not exist or was empty", , "teete.txt"
Exit Sub
End If
Set result2 = client.addNewFile("test","Test","description one sdfasf", "Reference", "teete.txt",fileIN)
'==========================================з