Hinweistext in EMail unterbringen ohne Body-Patchen

[Schokohase]

Ich habe mir gerade mal die INDYs angesehen und das sollte z.B. so funktionieren

Delphi-Quellcode:

procedure SendMailSpecial(ASmtp: TIdSMTP; AMsg: TIdMessage);
var
  LRecipients: TIdEMailAddressList;
begin
  LRecipients := TIdEMailAddressList.Create(Self);
  try
    LRecipients.AddItems(AMsg.Recipients);
    LRecipients.AddItems(AMsg.CCList);

    if LRecipients.Count > 0 then
      ASmtp.Send(AMsg, LRecipients);
  finally
    FreeAndNil(LRecipients);
  end;

  if AMsg.BccList.Count > 0 then
  begin
    // Bcc-Einträge an CC anfügen
    AMsg.CCList.AddItems(AMsg.BccList);
    // Diese Mail nur an die BCC-Empfänger senden
    ASmtp.Send(AMsg, AMsg.BccList);
  end;
end;

Als Resultat würde folgende Mail

Code:

To: [e-mail]
Cc: [e-mail]
Bcc: [e-mail]
Subject: Hello

bei [e-mail] und [e-mail] wie folgt ankommen

Code:

To: [e-mail]
Cc: [e-mail]
Subject: Hello

und bei [e-mail] so

Code:

To: [e-mail]
Cc: [e-mail], [e-mail]
Subject: Hello