Schreiben in MailBody (RichTextFeld)

[LuckyNotes2004]

hallo Kollegen,

ich bitte um Hilfe bei der Lösung folgenden Problems...

ich leite aus einer Datenbank unter bestimmten Voraussetzungen Mails automatisch an zuständige Kollegen weiter.... dieses soll gem. unten aungeführtem Code automatisch erfolgen.... soweit kein Problem....
bestimmten Mails soll allerdings ein Textbaustein hinzugefügt werden.... dazu müsste ich ins Bodyfeld (hier uidoc) schreiben.... bekomme es aber beim besten Willen nicht hin (ich verschone Euch mit den bisherigen Versuchen (RichTextOperationen))

für Hilfe zu der Sache wäre ich sehr dankbar......

Code

If maildocnid <> "" Then
		Call mail.Forward
		Set uidoc = ui.Currentdocument
		If ASonstigesText = "Inst-Protokoll von xxx" Then
			Set company = comviewcno.GetDocumentByKey ( mail.FieldGetText( "A_HKN" ) )
			sales = company.SalesRep_3
			Call uidoc.FieldSetText("EnterSendTo", sales(0) )
			Call uidoc.FieldSetText("EnterCopyTo", mail.FieldGetText("A_Bearbeiter"))
			Call uidoc.FieldSetText("Subject" , "WG: " & "w/" & ASonstigesText & " für " & AName )
		Else
			Call uidoc.FieldSetText("EnterSendTo", mail.FieldGetText("A_Bearbeiter"))
			Call uidoc.FieldSetText("Subject" , "WG: " & "w/" & ASonstigesText & " für " & AName )
		End If
		'Call uidoc.CollapseAllSections
		Call uidoc.Send
		Call uidoc.Close
	End If

mit besten Grüßen....

Lucky Notes

[umi]

Hi Lucky

Warum verwendest Du UIDOC?

gruss umi

[LuckyNotes2004]

ich muss nicht zwingend uidoc verwenden, habe es allerdings getan, da es mir bis hierhin logisch erschien.... macht das denn einen Unterschied.... sollte ich das Document gebrauchen, ist dieses doch Problemlos erzeugen.... uidoc.Document.....

beste Grüße LuckyNotes

[koehlerbv]

Mach das im Backend - die Frontend-Methoden sind für solche Aktionen zu primitiv. In der NotesRichTextItem class stehen Dir alle Methoden zur Verfügung, die Dir im Frontend fehlen.

Bernhard

[LuckyNotes2004]

ok..... ich hatte wie gesagt schon Versuche gestartet, bis dahin allerdings erfolglos.... Richtext-operationen sind im Backend ausgeführt...... ich habe am ende auch ein Mail.... allerdings sind meine eingefügten Passagen nicht ersichtlich.....

folgend der code:

Code

If maildocnid <> "" Then
		Call mail.Forward
		Set uidoc = ui.Currentdocument
		If ASonstigesText = "Inst-Protokoll von xxx" Then
			Set company = comviewcno.GetDocumentByKey ( mail.FieldGetText( "A_HKN" ) )
			sales = company.SalesRep_3
			Call uidoc.FieldSetText("EnterSendTo", sales(0) )
			Call uidoc.FieldSetText("EnterCopyTo", mail.FieldGetText("A_Bearbeiter"))
			Call uidoc.FieldSetText("Subject" , "WG: " & "w/" & ASonstigesText & " für " & AName )
			mailtext1 = "Hallo Herr"
			mailtext2 = " ," & Chr(13) & "anbei erhalten Sie ein INST-Protokoll der xxx m.d. B. um Plausibilitätsprüfung und Rückgabe" & Chr(13) &_
			"ggf. mit Kommentar an den zuständigen CS-Mitarbeiter (s. Kopieempfänger), damit dieser anschließend" & Chr(13) &_
			"die Rechnung an den Kunden erstellen kann." & Chr(13) & Chr(13)
			Dim bodyold As NotesRichTextItem
			Dim bodynew As notesrichtextitem
			Dim rtdoc As NotesDocument
			Dim newDoc As NotesDocument
			Dim mailtext3 As String
			Dim richStyle As NotesRichTextStyle
			Set richStyle = session.CreateRichTextStyle
			Set newDoc = uidoc.Document			
			Set rtdoc = mail.Document
			Set bodyold = rtdoc.GetFirstItem("Body")
			Call newDoc.RemoveItem("Body")
			Set bodynew	= newDoc.createRichtextItem("Body")
			mailtext3 = mailtext1 & Cstr(sales(0)) & mailtext2
			richStyle.NotesFont = FONT_COURIER
			Call bodynew.AppendStyle(richStyle)			
			Call bodynew.AppendText( mailtext3 )	
			Call bodynew.AppendRTItem( bodyold )
			
			Call newDoc.Save( True, True )
		Else
			Call uidoc.FieldSetText("EnterSendTo", mail.FieldGetText("A_Bearbeiter"))
			Call uidoc.FieldSetText("Subject" , "WG: " & "w/" & ASonstigesText & " für " & AName )
		End If
		'Call uidoc.CollapseAllSections
		Call uidoc.Send
		Call uidoc.Close
	End If

so, ich hoffe meine Versuche stiften nicht noch mehr Verwirrung, sondern sind bei der Lösungsfindung hilfreich....

LuckyNotes

[koehlerbv]

Logisch, dass das so nix wurde. Du erzeugst im Backend Dein Bodyfeld und sendest dann das Frontend-Document. Woher soll denn das Frontend wissen, was Du im Backend getrieben hast  ?
Wenn man schon Frontend und Backend mischt, muss man sehr genau wissen, was man macht.

HTH,
Bernhard

[LuckyNotes2004]

also ersteinmal vielen Dank für die schnelle Analyse....
der Mix aus frontend und beackend ist wohl aus mangelnder Erfahrung in diesem Business entstanden....

ich wäre für Ansätze bzw. konkrete Tips sehr dankbar, wie ich es denn nun doch hinbekomme....

beste grüße LuckyNotes

[koehlerbv]

Wie man Mails im Backend erstellt, ist in der DesignerHelp hervorragend beschrieben.

Bernhard

[LuckyNotes2004]

zum Stand der Dinge......

das Gemisch aus Frontend- und Backend-Operationen hatte ich aufgrund der Tatsache erstellt, dass eben RichTextOperationen lediglich im Backend vernünftig, bzw. überhaupt, machbar sind.... der Benutzer zu den Mails noch Eingabemöglichkeiten haben sollte......

nun habe ich Euern Rat befolgt, alles im Backend realisiert..... und siehe da, wie erwartet klappt das jetzt wunderbar.... keiner der Nutzer vermisst eine Eingabemöglichkeit.... perfekt...

vielen Dank für die Hinweise....


LuckyNotes

[umi]

Hi
Ansonsten könntest Du ja noch das Dokument vom Backend im Erstellen und dann via uiworkspace.editDocument zum editieren anzeigen.

gruss
umi

[LuckyNotes2004]

eigentlich eine gute Idee.... habe nur festgestellt, dass keiner der User diese Funktionalität vermisst.... daher werde ich sie erst dann umsetzen, wenn diese Anforderung mit einer vernüftigen Begründung an mich herangetragen wird.... die Erstellung der Mails im Backend ohne spätere Änderungsmöglichkeit ist an dieser Stelle bei längerem Nachdenken die einzig vernünftige Lösung.....

aber auch Dir nochmals vielen Dank für Deine Idee...

auf bald LuckyNotes