Delphi-PRAXiS - Delphi Vollständige Emailadresse in der Domäne

Hallo zusammen,

ich verwende INDY 10 und speichere mit einem Tool alle eingehenden Emailanhänge in der Struktur EMAILADRESSEdesABSENDERS DATEINAMENANHANG
Ab und zu, wenn ich Emails aus der eigenen Domäne bekomme, so wird die EMAILADRESSEdesABSENDERS nicht vollständig ermittelt. Beispiel:
a) jan.mueller@test.de sendet Word.DOC
b) mein Programm speichert den Anhang under jan.mueller Word.DOC oder noch schlimmer unter mueller Word.DOC
c) erwartet hätte ich jan.mueller@test.de Word.DOC

Wie kann ich es implementiere, dass die Emailadresse immer vollständig ermittelt wird?

Ich habe bis dato diese verwendet:

Delphi-Quellcode:

			dateiname:='d:\_Eingang\'+Msg.From.Address+' '+TIdAttachmentFile(Msg.MessageParts.Items[intIndex]).Filename;

if not fileexists(dateiname) then TIdAttachmentMemory(Msg.MessageParts.Items[intIndex]).SaveToFile(dateiname);

mfg
Kef