Nein Nein, das hatte ich natürlich schon längst überprüft.
Forall i In doc.Items
Print "durchlafe Feld-Schleife: " & i.name
If Lcase( i.Name ) = "body" Then
Print "BODY-Feld ist vorhanden und vom Typ: " & i.Type
If ( i.Type = RICHTEXT ) Then
Print "BODY-Feld ist RICH TEXT. Übetrage Werte in Zielfeld"
'wenn BODY ein RTF ist alles inkl. Anhänge in den neuen Call kopieren
Set zielitem = i
Call newcallbody.AppendRTItem( zielitem )
Else
Print "BODY-Feld ist kein RICH TEXT."
'wenn Body kein RTF dann nur das Textfeld kopieren
Call newcallbody.AppendText( doc.GetItemValue( i.name )(0) )
End If
End If
End Forall
das Print auf den Typ
Print "BODY-Feld ist vorhanden und vom Typ: " & i.Type
liefert als Ergebnis den 1. Somit handelt es sich also um Rich Text und alles ist in Ordnung. Außerdem habe ich natürlich die E-Mails vor der Verarbeitung über die Feldeigenschaften überprüft. Auch dort wird das Body-Feld als Rich Text-Feld geführt. Der Vollständigkeit halber habe ich dann auch mal eine Internetmail verarbeiten lassen. Hier handelte es sich dann um MIME. Allerdings wurde die Schleife dennoch abgearbeitet, da offensichtlich die KonverterToRTF-funktion für den Server standardmäßig ebenfalls auf true steht.
Dass die Schleife definitiv verarbeitet wird erkenne ich ja an meinem
Print "BODY-Feld ist RICH TEXT. Übetrage Werte in Zielfeld"
Der Fehler liegt definitiv woanders. Aber ich taste mich so langsam aber sicher heran. Sobald ich die Lösung gefunden habe werde ich sie posten.
