2 E-Mail gleichzeitig versenden

[Mavarik]

Klar eMail im Thread versenden!

Delphi-Quellcode:

 TEmailThread = class(TThread)
  private
    FSubject: string;
    FReplyTo: string;
    FHost: string;
    FFromAddress: string;
    FUserID: string;
    FLocalProgram : string;
    FToAddress: TStrings;
    FToBccAddress: TStrings;
    FBody: TStrings;
    FFromName: string;
    FAnhang: string;
    FContentType: string;
    procedure SetBody(const Value: TStrings);
    procedure SetToAddress(const Value: TStrings);
    procedure SetToBccAddress(const Value: TStrings);
    { Private declarations }
  protected
  public
    procedure Execute; override;
    constructor Create(CreateSuspended : Boolean; ThreadPriority: TThreadPriority);
    destructor Destroy;override;
    property Host : string read FHost write FHost;
    property UserID : string read FUserID write FUserID;
    property Body : TStrings read FBody write SetBody;
    property ToAddress : TStrings read FToAddress write SetToAddress;
    property ToBccAddress : TStrings read FToBccAddress write SetToBccAddress;
    property Subject : string read FSubject write FSubject;
    property FromAddress : string read FFromAddress write FFromAddress;
    property FromName : string read FFromName write FFromName;
    property ReplyTo : string read FReplyTo write FReplyTo;
    property Anhang : string read FAnhang write FAnhang;
    property LocalProgram: string read FLocalProgram write FLocalProgram;
    property ContentType:string write FContenttype;
 end;

implementation
 { Example of usage }
 {with TEmailThread.Create(True, tpHigher) do
  begin
    Host := 'smtp-server';
    UserID := 'skumar';
    ToAddress.Add('[e-mail]');
    Subject := 'Threaded Email';
    FromAddress := '[e-mail]';
    ReplyTo := '[e-mail]';
    Body.Add('This is a test email !!');
    Resume;
  end;}

{ TEmailThread }

Source findest Du auf matlus.com

Frank