Hi Team,
folgendes problem:
ich versuche ein RT Feld von einem document (da ist Text in verschiedenen farben und Anhänge drinnen) in ein anderes dokument zu kopieren und dieses dann zu verschicken.
es haut mir allerdings immer die formatierung beim empfänger zusammen.
Sub newsletterErstellenUndSenden(Newsdoc As NotesDocument)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim NewsMailDoc As NotesDocument
Dim Item As NotesItem
Dim body As NotesRichTextItem
Dim rtrange As NotesRichTextRange
Set db = s.CurrentDataBase
Set item = Newsdoc.GetFirstItem( "NLInhalt" )
Set NewsMailDoc = db.CreateDocument
NewsMailDoc.Form= "NewsletterMail"
NewsMailDoc.sendto = "xxx@gmx.net"
NewsMailDoc.Subject = Newsdoc.NLBetreff
Call item.CopyItemToDocument( NewsMailDoc, "Body" )
' Platzhalter ersetzen
Set body = NewsMailDoc.GetFirstItem("Body")
Set rtrange = body.CreateRange
' Call rtrange.FindAndReplace ("%Briefanrede%", Persondoc.Briefanrede(0), RT_FIND_CASEINSENSITIVE+RT_REPL_ALL)
Call NewsMailDoc.Save(True,False)
Call NewsMailDoc.Send(False)
End Sub
Das neu erstellte dokument NewsMailDoc sieht allerdings im Notes perfekt aus...
Einzig in den fieldproperties ist ein unterschied zum originaldokument (Newsdoc).
beim neu erstellten dokument ist das body field RichText, beim Original ist es ein milti-part mime...
kennt sich da jemand aus?
Danke