SendMailThreadUnit: Difference between revisions
From RiskWiki
Created page with "==SendMailThreadUnit - Threaded emailer for sending emails in the background for SMTPIndySendMail== Language: Delphi 7 - 2007 <pre> uses SysUtils, Classes, EMailUnit, DB,..." |
m 1 revision imported |
(No difference)
| |
Latest revision as of 06:39, 12 April 2026
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;
