Indy: BCC Liste immer leer bei Server Empfang???

[Schucki]

Hallo,

ich habe einen E-Mail Server mit den Indy's (Ver 10.1.5) geschrieben.
Das ist mein Ereigniss wo ich die eMail einsammel.
Mein Problem ist, obwohl das E-Mail Programm eine Weiterleitung an eine BCC Adresse machen soll ist die BCC-Liste immer leer.
Muß man was anderes abfragen?

In "all_rx_add.txt" fehlt immer die BCC Adresse... warum?

Wo findet man die Info über die BCC Adressen?

Vielen Dank für Eure Mühe, Gruß Frank!

Delphi-Quellcode:

{--- MsgReceive ---------------------------------------------------------------}
procedure TfrmMailServer.smtpsMsgReceive(ASender: TIdSMTPServerContext;
                                         AMsg: TStream;
                                         var LAction: TIdDataReply);
var LStream:TFileStream;
    strlMsg,strlWork:TStringList;
    intP:integer;
    strTmp:string;

begin
  strlMsg:=TStringList.Create;
  strlWork:=TStringList.Create;
try {StringList}
  LStream := TFileStream.Create(DAT_TMP_MAIL_RX, fmCreate);
try {LStream}
  // put message contents in LStream...
  LStream.CopyFrom(AMsg, 0);
finally {LStream}
  FreeAndNil(LStream);
end; {LStream}
  strlMsg.LoadFromFile(DAT_TMP_MAIL_RX);
  // Load the message into IdMessage component for an 1:1 copy of the eMail
  msgSmtp.LoadFromFile(DAT_TMP_MAIL_RX, false);

  //  strlWork.Add('!mail from:'+msgSmtp.From.Address);
  {From eMail Adresse eintragen...}
  strlWork.Add('mail_from:[e-mail]');
  {To eMail Adressen Liste abarbeiten...}
  for intP:=0 to pred(msgSmtp.Recipients.Count) do begin
    strlWork.Add('mail_to:'+Lowercase(msgSmtp.Recipients[intP].Address));
  end;
  {Cc: eMail Adressen Liste abarbeiten...}
  for intP:=0 to pred(msgSmtp.CCList.Count) do begin
    strlWork.Add('mail_to:'+Lowercase(msgSmtp.CCList[intP].Address));
  end;
  {Bcc: eMail Adressen Liste abarbeiten...}
  for intP:=0 to pred(msgSmtp.BccList.Count) do begin
    strlWork.Add('!mail_to:'+Lowercase(msgSmtp.BccList[intP].Address));
  end;

  strlWork.SaveToFile('all_rx_add.txt');

  LAction:=dOk;

finally {StringList}
  FreeAndNil(strlMsg);
  FreeAndNil(strlWork);
end; {StringList}

end;