Actions/Forward programmatisch nachbilden

[Alexis]

Hallo Forum,

kann man die Menüpunkte Actions/Forward irgendwie per Programm nachbilden, um ein Dokument editiert an einen Mail-Adressaten zu versenden? @-Function wäre schön, aber LotusScript kann's auch sein.

Alexis

[klaussal]

Könntest Du da bitte ein paar mehr Details liefern ?

Code

um ein Dokument editiert an einen Mail-Adressaten zu versenden?

Was heisst hier "editiert" ?
Was ist ein Mail-Adressat (innerhalb von LoNo) ?

klaus

[Alexis]

Hallo Klauss, hallo Forum,

zum besseren Verständnis:

Mit Actions/Forward kann ich in LN ein Dokument in den Editmode versetzen, editieren und dann an eine Mailadresse mit dem Standard Mail-Template versenden.

Anwendung ist zum Beispiel eine Checkliste, die als Template in einer Datenbank vorliegt, ergänzt und dann versandt wird.

Vielleicht ist es jetzt klarer.

Alexis

[klaussal]

reicht da nicht ein @mailsend als Aktion im Dokument ?

[Alexis]

Hallo Klauss,

ein @MailSend trifft m.E. nicht den Punkt.

Beim Actions/Forward wird eine editierbare Kopie des Dokumentes (Checkliste) in den Body der Mail eingebettet. Das Original in der Datenbank bleibt unangetastet.

Alexis

[Marinero Atlántico]

ich glaub, da könnte helfen:

Code

notesDocument.renderToRTItem(bodyDestination as NotesRichTextItem)

[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

[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