Brauche Hilfe für Button mit LotusScript

[manboo8000]

Hallo zusammen,

leider kann ich in Notes nur Formelsprache und kein Script. Ich habe hier eine Funktion gefunden, ein komplettes Dokument mittels Button zu signieren, was ich als sehr nützlich und sinnvoll erachte. Per Formelsprache scheint es so etwas nicht zu geben. Ich würde das gerne in einen Button von mir mit einbauen, dieser ist aber per Formelsprache geschrieben.

Könnt ihr mir helfen, beides in einen Button zu bekommen?

Mein Formel-Button:

@Environment("SperreDoppelklick";"1");
@Command([EditDocument]);
@SetField("DocStatus";"genehmigt");
@SetField("genehmigt_am";@Now);
@SetField("genehmigt_von";@UserName);
@MailSend(@GetProfileField("(Konfiguration)";"P_VerantwortlicherKompetenz");"";"";"AKTION: Kompetenzantrag wurde genehmigt";"Bitte die notwendigen Eingaben vornehmen =>";"";[IncludeDoclink]);
@Command(Filesave);
@PostedCommand([FileSave]);
@Prompt([Ok];"Antrag genehmigt";"Der Antrag wurde genehmigt und die IT-Orga informiert");
@Command([FileCloseWindow]);
@Environment("SperreDoppelklick";"")

Die Signatur mittels Script...
Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Set db = session.CurrentDatabase
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Call doc.Sign
   Call doc.Save( False, True )
End Sub