Geht sowas auch in Formel ?

[Don Pasquale]

Ich habe folgenden Code, den ich gerne in @Formel abgebildet haben möchte.
Geht das ?

   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim session As New NotesSession
   Dim doc As NotesDocument
   Set uidoc = uiws.CurrentDocument
   Set doc = uidoc.Document
   Dim obj As NotesEmbeddedObject
   Dim rti As NotesRichTextItem
   
   OCXREG$ = "C:\TEMP\001.txt"
   
   If uidoc.IsNewDoc Then
      If DoesFileExists ( OCXREG$ ) > 0 Then
         Set rti = New NotesRichTextItem( doc, "Body" )
         Set obj = rti.EmbedObject(EMBED_ATTACHMENT, "TEST", OCXREG$)
         Call doc.save (True,True)
      End If
   End If

[Till_21]

mit der DoesFileExists-Function solltest Du Probleme bekommen...
mir ist keine @formel bekannt, das abzubilden...

der rest waere kein thema

gruss

[Glombi]

Till hat Recht, mit der Formelsprache kann man nicht checken, ob eine Datei da ist.
Warum muss es denn Formelsprache sein? Evtl. kann man den Scriptteil irgendwie antriggern?

Andreas

[Don Pasquale]

@Glombi,

ich will das antriggern über einen Agenten eben vermeiden.

Wie sähe dass den in Formel aus, wenn man den DOESFILEEXTSTS weglässt ?


Ciao
Don Pasquale

[Glombi]

Hi,
in Formelsprache

OCXREG = "C:\\TEMP\\001.txt";
@Command([EditGotoField];"Body");
@Command([EditInsertFileAttachment];OCXREG);
@Command([FileSave])

Die Maske muss im Bearbeitenmodus sein. Evtl. noch ein
@Command([EditDocument];"1") voranstellen

Andreas

[Glombi]

Nochwas:
Der Befehl @Command([EditInsertFileAttachment] liefert 0 (Fehler) oder 1 (Erfolg) zurück, eine Meldung "Datei nicht vorhanden" im Fehlerfall kommt aber immer.
Du könntest den weiteren Ablauf aber vom Ergebnis abhängig machen, z.B. das Speichern.


OCXREG := "C:\\TEMP\\001.txt";
@Command([EditGotoField];"Body");
ret := @Command([EditInsertFileAttachment];OCXREG);
@If(@Text(ret) = "0";@Return("");""");
@Command([FileSave])

Andreas

[koehlerbv]

Was willst Du eigentlich erreichen ? Warum willst Du kein LS verwenden ?
Die Lösung mit @Command wäre ja pur auf's Frontend beschränkt, und ob dann dann LS oder - mit den Einschränkungen - Formeln verwendest ...

Sagst Du mal an?

Bernhard