Domino 9 und frühere Versionen > Entwicklung

Anwortdokument erstellen

<< < (2/2)

ata:
... schau dir mal das NotesDocument-Object in der Hilf an, da gibt es eine Methode ein Dokument zum Antwort-Dokument eines anderen zu machen...

ata

forrest g:
hi,

füg das malinden codeein:

set hauptdoc = uidoc.document
Call doc.MakeResponse( hauptdoc )
Call doc.Save(True, False)

robertpp:
genau die zwei zeilen haben mir gefehlt!
danke forrest g

Endergebnis:
Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim uiws As New NotesUIWorkspace   
   Dim doc As NotesDocument
   Dim docH As NotesDocument
   Dim uidoc As NotesUIDocument   
   Set db = session.CurrentDatabase
   Set doc = New NotesDocument(db)
   Set uidoc= uiws.currentDocument
   Set docH = uidoc.document
   Call doc.MakeResponse( docH )
   doc.Form = "his"
   doc.SaveHistory = uidoc.FieldGetText("SaveHistory")   
   Call doc.Save(True, False)
   
End Sub


robertpp

forrest g:
...klar...gerne...

Navigation

[0] Themen-Index

[*] Vorherige Sete