{--- 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:fromtest@test.de');
  {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;