Hallo zusammen,
ich möchte bei eingehenden Mails an den Betreff noch weiteren Text anfügen. Im Moment wird mit dem Code unten der Text im Betreff nur überschrieben.
Wie muss der Code ergänzt werden, damit ich Text anfügen kann ohne den vorhandenen Text im Betreff zu löschen?

Sub Text_an_Betreff_anfügen()
ActiveInspector.CurrentItem.Subject = "Text"
End Sub

Vielen Dank für Eure Hilfe.

VG Jürgen