Wuschel:
ich habe das folgendermaßen gelöst. Die Vorlagen werden zentral in einer DB gespeichert. In der MailDB habe ich eine zusätzliche Aktion "Vorlage verwenden ( extern)" mit folgendem Code:
Sub Click(Source As Button)
Dim session As New notessession
Dim uiws As New notesuiworkspace
Dim collection As notesdocumentcollection
Dim noteUIEditDocument As notesuidocument
Dim database As New NotesDatabase( "", "" )
Call database.Open( "COMM1", "Global/Vorlagen.nsf" )
Set noteCursorDoc = session.currentdatabase.createdocument
'Set database = session.currentdatabase
Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage wählen", "Wählen Sie bitte eine Vorlage für das neue Memo.")
Set noteCursorDoc = collection.getfirstdocument
If Not noteCursorDoc Is Nothing Then
Set noteUIEditDocument = uiws.Editdocument(False, noteCursorDoc)
End If
End Sub
Um jetzt noch einzelne Vorlagen nur bestimmten Personen zugänglich zu machen, kann man noch mit Leser- und Autorenfeldern arbeiten.
(dazu:
http://www.eknori.de/cms/downloads/detail.php?nr=136&kategorie=downloads)
Ulrich