Domino 9 und frühere Versionen > Entwicklung

Geht sowas auch in Formel ?

(1/2) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite