also du stehst auf dokument A, erstellst ein dokument B (Mail) und willst ein Doclink auf dokument C.
Nun wenn ich deiner formel richtig folgen kann, kennt diese dokument b nicht und fügt den doklink in dokument A ein.
Außerdem ist der Parameter "MailBetreff" kein RTF sondern nur Text der da weitergegeben werden kann, also würde es mit doclink nicht funktionieren.
Die einzige möglichkeit wäre per Script im Backend, da geht das.
Hier mal ein rudimentäres script.
Leider konnte ich es nicht ganz ausfeilschen, da ich jetzt weg muß:
Zumindest sendet es eine Mail aus einem über Picklist gewähltem Dokument. Du mußt lediglich die Parameter abändern. Somit kannst Du auch mehrere Doklinks verschicken.
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim s As New notessession
Dim db As NotesDatabase
Dim picklist As Variant
Dim messagelist As String
Dim docForLink As NotesDocument
Dim newDoc As NotesDocument
Set db = s.CurrentDatabase
picklist = workspace.PickListStrings( _
PICKLIST_CUSTOM, _
False, _
db.Server, _
db.FilePath, _
"$LookupMedienByUnid", _
"Titel in der Picklist", _
"Please select some documents.", _
Spaltennummer mit der ID )
Forall plist In picklist
id$ = plist
If id$<>"" Then
Set docForLink = db.GetDocumentByUNID(id$)
If Not docForLink Is Nothing Then
'maile doclink
Set newDoc = New NotesDocument( db )
newDoc.Form = "Memo"
newDoc.SendTo = "mail@domände.de"
newDoc.Subject = "Here's the document you wanted"
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendDocLink _
( docForLink, docForLink.Subject( 0 ))
Call newDoc.Send( False )
End If
End If
End Forall
End Sub
