Hallo zusammen,
habe ein kleines Problem mit einem WebQuerySave-Agenten...
Code
Dim s As New NotesSession
Dim db As NotesDatabase
Dim maildoc As NotesDocument
Dim body As NotesRichTextItem
Set db = s.CurrentDatabase
Set curDoc = s.DocumentContext
Set maildoc = db.CreateDocument
maildoc.form = "formTest"
Call curDoc.CopyAllItems(maildoc)
Call maildoc.ComputeWithForm (True,False)
maildoc.SendTo = "TestAccount"
Set body=maildoc.CreateRichTextItem("Body")
Call curDoc.RenderToRTItem(body)
maildoc.Form = "Memo"
Call maildoc.Send( False)
Alles anzeigen
Der Agent soll eigentlich nur eine Mail versenden....
Also das Problem ist, dass an der Stelle "Call curDoc.RenderToRTItem(body)" folgende Meldung im Log steht:
HTTP Web Server: Lotus Notes Exception - Entry not found in index.
Schonmal vielen Dank für die Hilfe vorab.
Gruß Stony