Mail-Body Feld wird nicht angezeigt!

Hallo Forum,
ich habe folgendes seltsames Problem:
In einer E-Mail, die aus einer Applikation an diverse Empfänger gesendet wird, wird das Body-Feld nicht angezeigt.
Schaut man sich jedoch die Eigenschaften des Body-Feldes an, kann man den gesamten Text sehen.

Ich konnte bisher herausbekommen, dass folgende Situation zu dem Problem führt:
Body-Feld A wird an das Body-Feld der E-Mail angehängt.
Dies funktioniert aber wohl nur, wenn kein Carriage Return (CR) im Text vorhanden ist. Ist ein Carriage Return vorhanden, so wird ab diesem Zeichen in der geöffneten E-Mail der Inhalt nicht mehr angezeigt!

Hier das Script dazu:

Function C_SendMessage(empfaenger As Variant, mailsubject As String, sourceDoc As NotesDocument, sourceField As String, doc As notesdocument) As Integer


	Dim s As New notessession
	Dim db As notesdatabase
	Dim maildoc As notesdocument
	Dim n As New notesname(s.username)
	Dim i As Integer
	Dim tmpstr As String
	Dim rtitemA As notesrichtextitem
	Dim rtitemB As NotesRichTextItem
	Dim pdoc As notesdocument

	Set db = s.currentdatabase

	On Error Goto errhandler

	Set maildoc = db.createdocument 
	maildoc.from = n.abbreviated
	maildoc.principal = n.abbreviated
	maildoc.form = "memo"

	maildoc.sendto = empfaenger
	maildoc.subject = mailsubject

	Set rtitemA = maildoc.CreateRichTextItem("Body")
	Set rtitemB = sourceDoc.GetFirstItem(sourceField)

	If (rtitemA.Type = RICHTEXT And rtitemB.Type = RICHTEXT ) Then
		Call rtitemA.AppendText ("  ") ' Ohne die Blanks funktionierts nicht!????
		Call rtitemA.AppendRTItem( rtitemB )
	End If

	'DocLink einfügen
	Call rtitemA.Addnewline(2)
	Call rtitemA.AppendText ("Dokument: " &  "  ")
	On Error Resume Next
	Call rtitemA.AppendDocLink(doc, "Dokument")				
	Call rtitemA.AppendText("   in: ")	
	Call rtitemA.AppendText ("Datenbank: " &  "  ")
	Call rtitemA.AppendDocLink(db, db.title)				


	Call maildoc.send(False)

	C_SendMessage = True

	Exit Function

errhandler:
	Call ALogError(1, "Fehler in 'C_SendMessage' " & Err & " " & Error &  " at line number " & Erl ) 
	Exit Function		
End Function

Hat jemand von Euch eine Idee?

Danke im Voraus!
Legonas

Es läuft diurch!

Wie schon beschrieben, die E-Mail wird an den Empfänger versendet. Dieser sieht jedoch nichts oder nur Teile des Body-Feld Inhalts.
Je nachdem, ob im angehängten RichText Feld ein CR vorkam.

Gruß
Legonas

Hallo Zusammen,

ich habe die Dokumente nochmals geprüft!
Es gibt alle die Felder nur einmalig und diese sehen auch ordentlich aus.
Seltsamerweise funktioniert es, wenn ich vor dem anzuhängenden RichText Feld Blanks einfüge. Füge ich z.B. eine Leerzeile ein, funktionierts nicht!

Ich habe auch schon den Dok-Link zum Schluss auskommentiert. Jedoch mit dem gleichen Ergebnis!

Noch eine Vermutung:
- Die DB kommt ursprünglich aus der 5er Welt.
- Die RichTextFelder waren mal Textfelder.
Kann das irgendwie zu diesen Problem führen?

Gruß Legonas

Hallo Zusammen,

folgender Status:

1) wenn ich ein neues Richtext Feld im DBSetup erstelle aus dem der Text ausgelesen werden soll funktioiniet es. --> Da das ursprüngliche Feld frühe mal ein Text-Feld war, ist da irgendwas hängen geblieben!

2) Kompkt, Fixup, Dokumentaktualisierung haben zu keiner Änderung geführt.

3) HW-Formelen werden nicht übernommen! Habe dies mit dem neuen Feld ausprobiert. Hat keinen Einfluss gehabt auf die Anzeige in der E-mail.

Gruß Legonas

Habe die RichText Felder des Quelldokuments ausgetauscht!

Nun funktioniert es! (Warum auch immer!!!)

Gruß Legonas