Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 16.07.03 - 13:33:33
-
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
-
mit der DoesFileExists-Function solltest Du Probleme bekommen...
mir ist keine @formel bekannt, das abzubilden...
der rest waere kein thema
gruss
-
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
-
@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
-
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
-
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
-
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