Domino 9 und frühere Versionen > ND6: Entwicklung

Anhang einfügen

<< < (3/3)

gossifu:
Hallo,

ich würde das Script so beginnen

--- Code: ---Sub Click(Source As Button)
   
   Const RTITEM_NAME$ = "Anhang"
   Const FULL_PATH$ = "C:\hallo.dot"
   
   Dim session As New NotesSession
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim db As NotesDatabase
   Dim rtitem As Variant
   Dim doc As NotesDocument
     
   Set db = Session.CurrentDatabase
   Set uiws = New NotesUIWorkspace
   Set uidoc = uiws.CurrentDocument
   Set doc = uidoc.Document
--- Ende Code ---

...

um dann am Ende das Dokument in der selben Instanz nochmal aufzurufen:
...

--- Code: ---   Set uidoc = uiws.EditDocument(True,doc,False,"",True,False)

End Sub
--- Ende Code ---


mfg

Kjeld

Navigation

[0] Themen-Index

[*] Vorherige Sete