- MS Soap ist auf dem Server installiert
- rufe ich auf dem Server mit dem Notes Client den Agent auf funktionierts.
- Stelle ich den agent auf periodisch alle 5 Minuten klappt es
nicht Fehler tritt auf bei:
Set Client =CreateObject("MSSOAP.SoapClient30")
Fehlermeldung: "No Resume"
kann der Server überhaupt auf ms soap zugreifen?
habe ich irgenwas vergessen?
hier das script des agents:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Dim unpDoc As NotesDocument
Dim vc As NotesViewEntryCollection
Dim wsUrl As String
Dim Aufruf As String
Dim ergebnis As String
Dim status As String
Set db = session.CurrentDatabase
Set view = db.GetView("(UnprocessedDocs)")
Set vc = view.AllEntries
Set entry = vc.GetFirstEntry()
Do While Not entry Is Nothing
Set unpDoc = entry.Document
Aufruf = unpDoc.Aufruf(0)
wsUrl = unpDoc.wsURL(0)
'Create a new MSSOAP client object
Dim client As Variant
Set Client =CreateObject("MSSOAP.SoapClient30")
Print "Soap"
If Not Client Is Nothing Then
Call Client.mssoapinit (wsUrl)
Else
Print "Fehler mit Soap"
End If
' calling the SOAP function
ergebnis = Client.GETHAUPTSTADT (Aufruf)
If ergebnis <> "" Then
Call unpDoc.ReplaceItemValue("ergebnis",ergebnis)
status = "2"
Else
status = "3" ' 3 = Fehler
End If
Call unpDoc.ReplaceItemValue("status", status)
Set entry = vc.GetNextEntry(entry)
Loop
ich bin ratlos
tobi