SendMailThreadUnit

From RiskWiki

Jump to: navigation, search

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;

BackLinks



CopyRight Bishop Phillips Consulting Pty Ltd 1997-2012 ( SendMailThreadUnit )
Personal tools