smtp cc/bbc?

[akio87]

Hallo,

ich hoffe, ihr könnt mir hier weiterhelfen.

Aktuell sende die mails über einen smtp server und möchte nun die Funktion cc/bcc Funktion mit einbauen.

Das einfache senden funktioniert, nur leider weiß ich nicht, wie ich die cc/bcc Funktion einsetzen kann?

Hat jemand eine Idee, wie das bei dem nachfolgenden Code aussieht, wie das dort einzubinden ist?

Ich nutze aktuell folgenden Code:

Delphi-Quellcode:

procedure TfmWarenKorb.SendEmail1(const Recipients: string; const CCList: string; const Subject: string; const Body: string; Att: Boolean; Filename:String);
var
  SMTP: TIdSMTP;
  Email: TIdMessage;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
  Attachment: TIdAttachment;
  I: Integer;
begin
  SMTP := TIdSMTP.Create(nil);
  Email := TIdMessage.Create(nil);
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  SMTP.IOHandler:= SSLHandler;


  try
    SMTP.AuthType := satNone;
    SMTP.Host := Server;//'smtp.gmail.com';
    SMTP.Port := Port;// 587;

    if Att = true then
      Attachment := TIdAttachmentFile.Create(Email.MessageParts, Filename);

    Email.From.Address := emailfrom;
    Email.Recipients.EmailAddresses := Recipients;
    Email.Subject := Subject;
    Email.Body.Text := Body;
    //Email.CCList.EMailAddresses := CCList;
    Email.ReplyTo.EMailAddresses := 'Mailadresse';


    SMTP.Connect;
    SMTP.Send(Email);
    SMTP.Disconnect;

  finally
    if Att = true then Attachment.Free;
    SMTP.Free;
    Email.Free;
    SSLHandler.Free;
  end;
end;