Domino 9 und frühere Versionen > ND6: Entwicklung

Schreiben in MailBody (RichTextFeld)

(1/3) > >>

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
--- Ende Code ---


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

--- Ende Code ---

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

LuckyNotes

Navigation

[0] Themen-Index

[#] Nächste Seite