Domino 9 und frühere Versionen > ND6: Entwicklung

Actions/Forward programmatisch nachbilden

<< < (2/3) > >>

Marinero Atlántico:
ich glaub, da könnte helfen:


--- Code: ---notesDocument.renderToRTItem(bodyDestination as NotesRichTextItem)

--- Ende Code ---

Alexis:
Hallo Marinero Atlántico,

das ist genau was ich suchte. Danke schon mal dafür.

Nur wie krieg ich die Mailschablone hiermit verbunden?

Alexis

koehlerbv:
NotesDocument.Form = "Memo"
und genauso die weiteren für das Memo benötigten Felder belegen (SendTo usw.).

Bernhard

Alexis:
Hallo Berhard, hallo Forum,

das war mal wieder eine sehr effiziente Hilfe für einen Autodidakten wie mich, nicht zu viel aber völlig ausreichend für den nötigen Anstoß.

Super und vielen Dank!

Alexis

Alexis:
Hallo Forum,

Nachschlag: Mit dem augenblicklichen Code kann das eingebundene Dokument editieren, aber leider nicht in der Mailmaske. Wie bekomme ich die Memo-Maske mit hoch?

Hier mein Code:

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" )
   Call docB.Save( True, True )
   success = docA.RenderToRTItem( rtitem )
   Call workspace.EditDocument( True )
   docB.SendTo = "Mailadresse"
   docB.Subject = "Text"
   docB.SEND 0
   Call docB.Save( True, True )
End Sub

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete