SendMailThreadUnit
From RiskWiki
SendMailThreadUnit - Threaded emailer for sending emails in the background for SMTPIndySendMail
Language: Delphi 7 - 2007
uses SysUtils, Classes, EMailUnit, DB, Provider, DBClient, ADODB;
type
TSendMailThread = class(TThread)
private
FMailConnectType : TMailConnectType;
FWorkMailMessage: TMailMessage;
public
FConfigSMTP_PortNo : Integer;
FConfigSMTP_Host : String;
FConfigSMTP_UserID : String;
FConfigSMTP_UserPWD : string;
FConfigSMTP_FromAddress : String;
FConfigSMTP_FromName : String;
ErrorMessage : String;
SendResult : Boolean;
procedure Execute; override;
constructor Create(MailConnectType : TMailConnectType; WorkMailMessage: TMailMessage; myConfigSMTP_PortNo : Integer; myConfigSMTP_Host : String; myConfigSMTP_UserID : String; myConfigSMTP_UserPWD : string; myConfigSMTP_FromAddress : String; myConfigSMTP_FromName : String );
end;
