Hi Axel,
tja ich musste doch immerwieder die Erfahrung machen, dass das einfach eben doch genügt....
und man muss nicht wirklich alles gleich mit Script platt hauen.... (hat aber ja bekanntlich auch seine grenzen)
Zum Problem mit dem "Edit" und der Berechtigung (muss ich mal wieder ein layer 8-Chache Problem gehabt haben)
würde ich eben noch Vorschlagen eine "angepasste Maske" für die Vorlagen bereitszustellen
in denen eben nur der Body drin ist, womit der EditGotoField nicht notwendig ist und der EditSelectAll auf das ganze Vorlagen-Dokument wirken darf.
also ungefähr so:
@Command([SwitchForm] ; "VorlageNurBody" );
@Command([EditSelectAll]);
@Command([EditCopy]);
Grüsse, Pete(r)
Ich würde das Ganze mit ein paar Zeilen Script machen. Dann hast du eine saubere Lösung.
Ich habe mir vor einiger Zeit mal eine quick-and-dirty - Funktion erstellt die ein neues Mail erstellt, die als Parameter übergebenen Werte als Empänger einträgt und als neues Memo in der Mail-DB zum Bearbeiten öffnet. Das Kopieren von Einträgen aus deinen Vorlagen dürfte problemlos integrierbar sein.
Function CreateMailMemo(varSendTo As Variant) As Integer
Dim workspace As New NotesUIWorkspace
Dim maildb As NotesDatabase
Dim maildoc As NotesDocument
Dim profile As NotesDocument
Dim varProc As Variant
On Error Goto ErrorHandler
CreateMailMemo = 0
Set maildb = New NotesDatabase("","")
maildb.OpenMail
Set profile = maildb.GetProfileDocument("CalendarProfile")
'Anlegen neues Mail
Set maildoc = New NotesDocument(maildb)
maildoc.Form = "Memo"
maildoc.Logo = profile.DefaultLogo(0)
maildoc.Principal = profile.Owner(0)
maildoc.SendTo = varSendTo
Call maildoc.ComputeWithForm(False, False)
'Anzeigen zur weiteren Bearbeitung
Call workspace.EditDocument(True, maildoc)
Ende:
Exit Function
ErrorHandler:
varProc = Getthreadinfo(LSI_THREAD_PROC)
Messagebox varProc & ": Es ist ein Fehler aufgetreten. Die Ausführung wird abgebrochen." & Chr$(13) & "Fehler: " & Str$(Err) & " -> '" & Error$ & _
" in Zeile " & Str$(Erl) , 16, "Adressen"
CreateMailMemo = 1
Resume Ende
End Function
Axel