Ich bin ein bißchen weiter.
in
Code:
procedure TIdSMTP.InternalSend(AMsg: TIdMessage; const AFrom: String; ARecipients: TIdEMailAddressList);
wird
Code:
AMsg.ExtraHeaders.Values[XMAILER_HEADER] := MailAgent;
aufgerufen und Mailagent ist
inaccessible
sagt mein Delphi...
Irgendwelche Ideen...
Viele Grüße
Marco