EditInsertFileAttachment in Lotus Script?

[Alexander 28]

Gibt es eine Möglichkeit die gleiche Funktionalität wie @Command( [EditInsertFileAttachment] ; file ; compress ; append ; deleteexisting ; deletefile ) mit Lotus Script zu erreichen? Ich möchte eine Datei in ein RT Feld des UIdocs als Dateianhang per Schaltfläche einfügen. Die Datei soll sofort sichtbar werden noch bevor das Doc gespeichert wird. Es muss eine separate Schaltfläche sein, weil noch ein paar andere Dinge dort erledigt werden.


Trete irgendwie auf der Stelle.

[Peter Klett]

Direkt in Script ist das wohl recht umständlich. Datei an temporäres Dokument anhängen, Dokument speichern, Dokument öffnen, markieren, in die Zwischenablage kopieren, Dokument schließen, zum Richtextfeld gehen, Zwischenablage einfügen.

Wenn Du in einem Button Formel und Script mischen willst, kannst Du einen Formelagenten schreiben, der die gewünschte Formel ausführt, und den in dem Scriptbutton ausführen oder umgekehrt (Formelbutton, der einen Script-Agenten aufruft). Alternativ kannst Du natürlich auch Events des Dokuments dazu verbiegen. Z.B. das Postrecalc, wenn Du es sonst nicht benötigst. Das umstellen auf Formel und die Formel sinngemäß so eintragen:

@If (Aktion = ""; @Return (""); "");
@Formel

Im Scriptbutton:

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document

doc.Aktion = "xy"
Call uidoc.Refresh
doc.Aktion = ""

EDIT: Wenn man das Postrecalc für andere Zwecke schon mit Script gefüllt hat, kann man auch eine separate Teilmaske einfügen, die nur den Zweck hat, Formeln im Postrecalc auszuführen.

[Alexander 28]

Danke Peter. Hab's jetzt anders gelöst. War auch ein Tipp von Dir. Mit eingebundener Teilmaske und dem PostRecalc Event. Klappt prima!