dim itRtTemplate As Variant
[...]
Set itRtTemplate = docTemplate.getIFirstItem("Body")
If itRTTemplate.Type = RICHTEXT Then
If strCallTyp = "Anlage" Then
Call appendFieldsAnhaenge(docTemplate, "AnlagenAnzeige", itRTTemplate, "")
Else
Call appendFieldsBody(docTemplate, "Topic", itRTTemplate, "")
End If
Else
Msgbox |Das Feld "Template" im gewählten Dokument ist nicht vom Typ RichText.|, 16, "Interner Fehler"
Exit Sub
End If
Ha - wieder ein dunkles Geheimnis von Iris entdeckt !Dazu äußere ich mich nicht mehr.
Interessant wäre mal zu erfahren, warum Funktionen eingebaut sind, die dann nicht dokumentiert werden.