Domino 9 und frühere Versionen > ND6: Entwicklung

Actions/Forward programmatisch nachbilden

<< < (3/3)

koehlerbv:
Da ist einiges falsch. Beispiele:
- Nach dem Füllen des RTitems musst Du das Doc speichern - nicht vorher.
- Das EditDocument ohne angegebene Dokument öffnet das aktuell ausgewählte - also bei Dir uidoc.
- Nach EditDocument läuft der Code weiter - der bleibt nicht einfach stehen ...

Bernhard

Alexis:
So klappt es:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim maildb As NotesDatabase
   Dim db As NotesDatabase
   Dim uidoc As NotesUIDocument
   Dim docA As NotesDocument
   Dim docB As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim success As Variant
   Set db = session.CurrentDatabase
   Set uidoc = workspace.CurrentDocument
   Set docA = uidoc.Document
   Set Maildb = Session.GetDatabase("", MailDbName)
   Maildb.OpenMail
   Set docB = New NotesDocument(Maildb)
   docB.Form = "Memo"
   Set rtitem = New NotesRichTextItem( docB, "Body" )
   success = docA.RenderToRTItem( rtitem )
   docB.Subject = "Checkliste"
   Call docB.Save( True, True )
   Call uidoc.Close
   Call workspace.EditDocument(False, docB)
End Sub

Navigation

[0] Themen-Index

[*] Vorherige Sete