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......
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
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:
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