In der 2.0 er Version ist eine Variante eingebaut die es erlaubt, Felder zu definieren, die aus Mails in das ticket übernommen werden sollen.
Dein Fehler ist aber ein anderer.
If me_doc.HasItem("zus_info") Then
Set item = newticket.ReplaceItemValue("info",zus_info)
End If
geht gar nicht ...
zus_info ist nämlich weder deklariert, noch ein gültiger Wert für eine Notes Klasse. Wenn schon dann
Set item = newticket.ReplaceItemValue("info",me_doc.Getfirstitem("zus_info").Values)
Hat übrigens Tim gesehen. Ich schreib das hier nur auf.