Hallo,
ich habe ein berechnetes Feld "MailcInfo" und wollte den Inhalt über eine Aktion in das Feld Body übertragen.
Ich steh nur grad auf dem schlauch mit welchen Befehl ich das machen kann.
Danke
Hallo,
ich habe ein berechnetes Feld "MailcInfo" und wollte den Inhalt über eine Aktion in das Feld Body übertragen.
Ich steh nur grad auf dem schlauch mit welchen Befehl ich das machen kann.
Danke
@SetField( fieldName ; value )
Am einfachsten geht es über die Klasse NotesUIDocument
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.FieldAppendText("Body", uidoc.ieldGetText("MailCInfo"))
Über die Backend-Klasse ist es ein wenig schwieriger, weil "Body" ein Richtext-Field ist. Manipulationen an Richtext-Feldern werden erst sichtbar, wenn das Dokument gespeichert und neu geöffnet wird.
Ok und was muss bei value rein?
nur der Feldname vom berechneten Feld?
exakt
Willst Du es im FrontEnd oder im BackEnd einfügen?
Gruß
Dirk
Sorry aber was is frontend und backend?
FrontEnd ... das Dokument ist offen (zum Lesen oder Editieren)
BackEnd ... das Dokument ist nicht geöffnet
Soll der Inhalt des eventuell bestehenden Body-Feldes bestehen bleiben oder soll er mit Deinem Feld ersetzt werden?
Gruß
Dirk
ach so,
der Inhalt des Body Feldes sollte bestehen bleiben und der Inhalt aus dem Feld MailcInfo sollte vor den bestehenden Inhalt gesetzt werden.
Is das möglich?
ja natürlich.
Schau Dir mal die Klasse NotesRichTextItem an und dort die Methode AppendText.
Und wenn das Dokument zum Bearbeiten geöffnet ist funktioniert es auch mit GetField, Copy und Paste aus der NotesUIDocument-Klasse.
Gruß
Dirk
danke ich bastel mal
hab jetzt noch ein problem.
die aktion soll die Form Reply with history öffnen und darin den text im body feld hinzufügen.
ich bekomm es aber irgend wie nicht hin die form reply with history zu öffnen.
Set notesUIDocument = notesUIWorkspace.ComposeDocument( [ server$ [, file$ [, form$ [, windowWidth# [, windowHeight# [, returnNotesUIDocument]]]]]] )
Da kannst du dann angeben, welche Form du verwenden willst. Dann das Feld Body so setzen, wie Diali schon erwähnte.
Versuchst Du gerade die Signatur nachzubauen?
Warum so umständlich und nicht die von Notes verwenden?
Gruß
Dirk
Jup
ich hab ne formel gebastelt die die signatur aus den personendaten die im Adressbuch stehen erstellt.
bei memo und reply geht es ohnen probleme nur bei reply with history wird die signature unter die history gesetzt und die soll ober drüber
der script sieht jetzt so aus, sollte eigentlich passen oder?
Bekomm aber wenn ich eine Reply erstellen will folgende Fehlermeldung:
Variant does not contain an object
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Set notesUIDocument = notesUIWorkspace.ComposeDocument( "","","Reply with history")
Call uidoc.FieldAppendText("Body", uidoc.FieldGetText("MailcInfo"))
End Sub
ZitatDim ws As New NotesUIWorkspace
Set notesUIDocument = notesUIWorkspace.ComposeDocument( "","","Reply with history")
einmal nennst Du es ws und dann NotesUIWorkSpace.
Änder in der 2. Zeile den NotesuiWorkSpace in ws.
*/edit
betrifft auch uidoc und NotesUIDocument.
*/edit
ZitatSet uidoc = ws.CurrentDocument
Set notesUIDocument = notesUIWorkspace.ComposeDocument( "","","Reply with history")
Äh??
vorhandenes oder neues Dokument?
Wahrscheinlich musst Du mit 2 NotesUIDocument-Objekten arbeiten.
Gruß
Dirk
hat jetzt soweit funktioniert schon mal danke.
kann ich mit lotus script das body feld so definieren das der inhalt aus dem MailcInfo feld nach ganz oben im body feld gesetzt wird?
Also sprich als Erstes?
mit Notes 6 gibt es BeginInsertund EndInsert in NotesRichTextItem. Damit sollte es gehen. Habe es aber noch nicht versucht.
Gruß
Dirk
Hey hab mal en bissel rum probiert.
Hab jetzt folgenden Script. Krieg aber die Fehlermeldung Object Variable not set.
Woran könnte das liegen?
Danke
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim rti As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim doc As NotesDocument
Set uidoc = ws.CurrentDocument
Set uidoc = ws.ComposeDocument( "","","Reply With History")
Set rtnav = rti.CreateNavigator
rtnav.findFirstElement(RTELEM_TYPE_TEXTPARAGRAPH)
Call rti.beginInsert(rtnav)
Call uidoc.FieldAppendText("Body", uidoc.FieldGetText("MailcInfo"))
Call rti.addNewLine(1)
Call rti.endInsert
End Sub