hi @all,
stehe vor einem kleinen Problem und sehe den Fehler nicht. Habe einen Agenten, der in Notes Läuft und im Web nicht. Er soll ein Email versenden. Nachdem @Command([Filesave]) wird der Agent mit @Command([Agentrun];" Agent ") gestartet. Dann bekomme ich die Meldung:"Kann kein Pfad zum Server finden"
Der Agent läuft auf set db = s.currentdatabase.
code
Dim s As New NotesSession
Dim db As NotesDatabse
Set db = s.CurrentDatabase
Dim doc As NotesDocument
Dim maildoc As NotesDocument
Dim mdoc As NotesDocument
Dim v As NotesView
Set v = db.GetView("dbkonf")
Set maildoc = db.CreateDocument
Set doc = s.DocumentContext
Set mdoc = v.GetFirstDocument
Dim bodyheader As Variant
bodyheader = "Author: " + doc.request_author(0) + Chr(13) + _
"Date: " + Cstr(doc.request_date(0)) + Chr(13) + _
"Notify by: " + doc.request_notify(0) + Chr(13) + Chr(13) + doc.request_content
maildoc.Form = "Memo"
maildoc.SendTo = mdoc.konfig_email(0)
maildoc.Subject = "[Request]: " ' + doc.request_subject(0)
maildoc.Body = bodyheader
Call maildoc.Send( True )