Dokument schließen

[nyen]

Hallo,

ich habe einen Agent definiert, der nach bestimmter Option ein Dokument schließt.

Meine Frage, wo kann ich diesen Agent einfügen, in Postopen @Command([ToolsRunMacro]; "Dokument_beenden") klappt nicht.

Danke für jede Hilfe

Nyen

[TMC]

Sag doch mal Details an was Du genau machen willst und poste Code.

Ein @Command([ToolsRunMacro]; "irgendwas") im Postopen und dann ein Agent in dem steht "@Command([Fileclosewindow]) geht afaik nicht.

Es gibt aber mehrere andere Möglichkeiten, um das Öffnen von Dokumenten nicht zuzulassen.

[nyen]

Hi,

ich habe in Postopen folgenden Code geschrieben: Er soll den Anhang automatisch starten, wenn ich ein Dokument öffne. Soweit klappt es:

@If(Anhangstart!="1";@Return(Form); "");
@If( @Attachments = 0 ;
@Do( @Prompt( [OK] ; "Anhang!" ; "Es gibt keinen Anhang!" ) ;@Return( "" ) );
"" );
@Command([EditDocument];"1");
@Command([EditGotoField];"Body");
@Command([ToolsRunMacro]; "Dokument_beenden");
@Command([EditSelectAll]);
@Command([AttachmentLaunch])

Nun, möchte das öffnete Dokument sofort wieder schließen, nach dem der Anhang geöffnet wurde.

Dann habe ich folgenden Agent definiert:

@If(Anhangstart!="1";@Return(Form); "");
@Command([FileCloseWindow])

Die Frage, wo soll dieser Agen gestartet werden, bzw. gibs es eine andere Lösung?

Vielen Dank

Nyen

[TMC]

Ich würde das per Script lösen.

Importiere dazu die angehängte lss in eine neue Scriptlibrary und nenn diese z.B. "LaunchAttachment".

In den Global Options der Maske musst Du die ScriptLib mit

Code

Use "LaunchAttachment"

einbinden.

Dann z.B. folgenden Code im Postopen der Maske:

Code

Sub Postopen(Source As Notesuidocument)
   Dim iLaunched As Integer   
   
   iLaunched = LaunchAtt("Body")
   
   If iLaunched = False Then
      Msgbox "Es ist kein Anhang vorhanden", 64, "Kein Anhang"
   End If
   Call Source.Close
   
End Sub