Outlook: "Dieses Element enthält aktiven Inhalt..."

Hallo Leute,

ich habe ein Skript für MS-Outlook geschrieben, mit dem ich Emails aus einem anderem Programm über MS-Outlook versenden kann. Leider bekommt der Empfänger dieser Emails immer folgenden Text im Vorschaufenster angezeigt:

"Dieses Element enthält aktiven Inhalt, der im Vorschaufenster nicht angezeigt werden kann". Ich habe keine Makros in den Email hinterlegt. Leider habe ich auch bei Google keine Lösung gefunden.

Der Code zum erzeugen einer Email sieht wie folgt aus:

' Objekte bestimmen

	Dim olApp

	Dim myItem

	Dim myProp

	Dim Textinhalt


' Jetzt erzeugen wir eine neue Email

	Set olApp = CreateObject("Outlook.Application")

	Set myItem = olApp.CreateItemFromTemplate("C:\TEMP\Test.oft")


	Set myProp = myItem.UserProperties.Add("AGFileName", 1)

	myProp.Value = "Dateiname"


' Funktion zum ersetzen der Felder aufrufen

	myItem.To = "Test@test.de"

	myItem.Display


'	Applicationsobjekt zerstören

	Set olApp = Nothing

	Set myItem = Nothing

	Set myProp = Nothing

	Set myProp = myItem.UserProperties.Add("AGFileName", 1)

	myProp.Value = "Dateiname"

weglasse, klappt alles ohne Probleme. Leider bin ich auf diese beiden Zeilen angewiesen.

Hat jemand von euch eine Idee???

Danke im Voraus

Patrick