Ich habe jetzt folgenden VBA-Code in Word:
Dim s As Object
Dim db As Object
Dim agent As Object
Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize
Set db = s.GetDatabase(Server, DB)
Set agent = db.getAgent("test")
if agent.Run() = 0 then
MsgBox ("hat geklappt")
else
MsgBox ("hat nicht geklappt")
end if
Leider hängt sich beim Ausführen Word auf, und zwar genau beim Ausführen des Agenten. Starte ich selbigen von Hand, klappt alles einwandfrei. Am Agenten selbst sollte es also IMHO nicht liegen...
Achso, bevor die Frage kommt:
SERVER und DB stehen hier nur stellvertretend für die entsprechenden Daten. Die Korrektheit habe ich schon überprüft, indem ich mir die Anzahl der Dokumente in der DB angezeigt habe. Da liegt der Fehler also auch nicht.
Per Debugger läuft alles auch gut durch, bis die Zeile mit agent.run kommt.
Bisher macht der Agent nichts anderes, als ein neues Dokument in die Datenbank einzufügen. Sieht dann so aus:
Dim db As Notesdatabase
Dim doc as NotesDocument
Set db = New NotesDatabase(SERVER, DB)
Set doc = db.CreateDocument
Call doc.ReplaceItemValue("Form","Kundendaten")
doc.Kundennummer = 10
Call doc.save(True,False)