Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: nyen am 14.07.04 - 16:28:53

Titel: Dokument schließen
Beitrag von: nyen am 14.07.04 - 16:28:53

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

Titel: Re:Dokument schließen
Beitrag von: TMC am 14.07.04 - 22:57:30

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.

Titel: Re:Dokument schließen
Beitrag von: nyen am 15.07.04 - 09:09:20

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

Titel: Re:Dokument schließen
Beitrag von: TMC am 15.07.04 - 22:33:14

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