Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Alexis am 15.03.05 - 08:59:58

Titel: Actions/Forward programmatisch nachbilden
Beitrag von: Alexis am 15.03.05 - 08:59:58

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

Titel: Re: Actions/Forward programmatisch nachbilden
Beitrag von: klaussal am 15.03.05 - 11:08:40

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

Titel: Re: Actions/Forward programmatisch nachbilden
Beitrag von: Alexis am 15.03.05 - 11:24:54

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

Titel: Re: Actions/Forward programmatisch nachbilden
Beitrag von: klaussal am 15.03.05 - 11:35:00

reicht da nicht ein @mailsend als Aktion im Dokument ?

Titel: Re: Actions/Forward programmatisch nachbilden
Beitrag von: Alexis am 15.03.05 - 12:04:04

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

Titel: Re: Actions/Forward programmatisch nachbilden
Beitrag von: Marinero Atlántico am 15.03.05 - 12:12:40

ich glaub, da könnte helfen:

Code

notesDocument.renderToRTItem(bodyDestination as NotesRichTextItem)

Titel: Re: Actions/Forward programmatisch nachbilden
Beitrag von: Alexis am 15.03.05 - 14:11:16

Hallo Marinero Atlántico,

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

Nur wie krieg ich die Mailschablone hiermit verbunden?

Alexis

Titel: Re: Actions/Forward programmatisch nachbilden
Beitrag von: koehlerbv am 15.03.05 - 14:14:13

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

Bernhard

Titel: Re: Actions/Forward programmatisch nachbilden
Beitrag von: Alexis am 15.03.05 - 14:19:50

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

Titel: Re: Actions/Forward programmatisch nachbilden
Beitrag von: Alexis am 15.03.05 - 16:09:08

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

Titel: Re: Actions/Forward programmatisch nachbilden
Beitrag von: koehlerbv am 15.03.05 - 17:04:40

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

Titel: Re: Actions/Forward programmatisch nachbilden
Beitrag von: Alexis am 16.03.05 - 08:51:06

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