Class TSmtpClient (unit smtpcli) |
Inherits from
TCustomSmtpClient
Descending component adding MIME (file attach) support
constructor Create(AOwner : TComponent);
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
destructor Destroy;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Mail : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetEMailFiles(newValue : TStrings);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TriggerGetData(LineNum : Integer;
MsgLine : PChar;
MaxLen : Integer;
var More : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TriggerHeaderLine(Line : PChar; Size : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property CharSet :
property EmailFiles : TStrings
property ErrorMessage :
property FromName :
property HdrFrom :
property HdrSubject :
property HdrTo :
property Host :
property LastResponse :
property Port :
property RcptName :
property SignOn :
property Tag :
property TimeOut :
property Wait :
event OnDisplay :
event OnGetData :
event OnHeaderLine :
FBodyFlag : Boolean;
FBodyLine : Integer;
FCurrentFile : Integer;
File names for attachment
FEmailBody : TStrings;
FEmailFiles : TStrings;
Message body text
FFile : File;
Message parts boundary
FFileStarted : Boolean;
FMimeBoundary : String;
Current file being sent
constructor Create(AOwner : TComponent);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
destructor Destroy;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Mail : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetEMailFiles(newValue : TStrings);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TriggerGetData(LineNum : Integer;
MsgLine : PChar;
MaxLen : Integer;
var More : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TriggerHeaderLine(Line : PChar; Size : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property CharSet :
property EmailFiles : TStrings
property ErrorMessage :
property FromName :
property HdrFrom :
property HdrSubject :
property HdrTo :
property Host :
property LastResponse :
property Port :
property RcptName :
property SignOn :
property Tag :
property TimeOut :
property Wait :
event OnDisplay :
event OnGetData :
event OnHeaderLine :
FBodyFlag : Boolean;
FBodyLine : Integer;
FCurrentFile : Integer;
File names for attachment
FEmailBody : TStrings;
FEmailFiles : TStrings;
Message body text
FFile : File;
Message parts boundary
FFileStarted : Boolean;
FMimeBoundary : String;
Current file being sent