Domino 9 und frühere Versionen > ND9: Entwicklung

Body zu Rich Text wandeln

<< < (2/2)

wittmann_franz:
Ich glaube ich bin auf dem Holzweg...... ???

also, die Abfrage mit
 If doc.Body(0) = "" Then   
           Set rtitem = doc.GetFirstItem("Bemerkung")
         Else           
            Set rtitem = doc.GetFirstItem( "Body" )
         End If

macht hier eigentlich nur noch die Probleme.
Den anderen Tipp von Euch habe ich ja bereits eingebaut und der läuft auch schon perfekt.
Wenn ich die (0) hinter doc.Body weglasse funktioniert es mit den Rich Text Body Feldern, aber nicht mit den Text Body Feldern und umgekehrt.
An der Stelle muss doch etwas falsch sein.
Ich komme allein nur leider nicht drauf.   >:(

ERR:

--- Code: ---' Als erstes den Body prüfen
Set item = doc.GetFirstItem("Body")

If item.Text = "" Then
' kein Text in Body
Set item = doc.GetFirstItem("Bemerkung")
End If

' dann den Type des item prüfen
If item.Type = 1 Then
' Richtext - AppendRTItem verwenden
' item ist ein RICHTEXT, also AppendRTItem
Call rtitem2.AppendRTItem(item)
Else
' kein Richtext - AppendText verwenden
' item ist kein RICHTEXT, also AppendText
Call rtitem2.AppendText(item.Text)
End If
--- Ende Code ---

MFG
ERR

wittmann_franz:
Jou, das wars.

Ich danke noch einmal und wünsche einen guten Rutsch und ein frohes neues Jahr.

ERR:
Kein Problem.

Auch dir einen guten Rutsch und ein frohes neues Jahr  :)

MFG
ERR

Navigation

[0] Themen-Index

[*] Vorherige Sete