Hallo zusammen,
der folgende Agent (ist nicht von mir, da ich kein Lotus Script kann) hat bis jetzt immer funktioniert:
Sub Initialize
Dim session As New notessession
Dim db As notesDatabase
Dim nOrgDoc As notesdocument
Dim doc As notesdocument
Dim nRTI As NotesRichTextItem
Dim res As Boolean
Set db= session.currentdatabase
Set doc = New notesDocument (db)
Set nOrgDoc = session.DocumentContext
Set nRTI = New NotesRichTextItem( doc, "Body" )
doc.form = "Memo"
doc.SendTo="xxx"
doc.recipient="xxx"
doc.CopyTo="xxx"
doc.principal="xxx"
doc.subject = "Mailweiterleitung von xxx"
Call nRTI.AppendText("Bitte klicken Sie auf die Verknüpfung !")
Call nRTI.AppendDocLink(nOrgDoc,"Bitte klicken Sie auf die Verknüpfung !")
Call doc.send( False)
End Sub
Die Mails werden "Nach Eingang neuer Mail" zugestellt, jedoch seit neuestem ohne DocLink.
Geändert wurde meines wissens nichts am Agent.
Habe zum Test folgenden Agent erstellt (ebenfalls "Nach Eingang neuer Mail"):
@MailSend("xxx";"xxx";"";"Mailweiterleitung von xxx";"Bitte klicken Sie auf die Verknüpfung!";"";[IncludeDoclink]);
Damit funktionierts wieder:
Vielen Dank schon mal im voraus für Eure Hilfe.
Gruß Siggi