Class SendMailDialog (unit Smdialog)

Inherits from

TComponent

Constructors


constructor Create(owner: TComponent);

=========================== Component Code =========================


Functions

procedure Demo;


destructor Destroy;


function Execute: Boolean;


procedure MeasureText(s: string;var x: integer;var y: integer);


procedure SetAttStrings(s:TStrings);


procedure SetFFont(f: TFont);


procedure SetFLang(s: TStrings);


procedure SetHeaderList(s:TStrings);


procedure SetListBcc(s: TStrings);


procedure SetListcc(s: TStrings);


procedure SetListTo(s: TStrings);


procedure SetMailStrings(s:TStrings);


procedure UpdateInfo;


Properties

property Attachments : TStrings


property Border : TFormBorderStyle


property Caption : string


property Color : TColor


property Font : TFont


property FROM_Address : string


property FROM_Name : string


property Headers : TStrings


property KeepConnectionOpen : Boolean


property LanguageStrings : TStrings


property ListBcc : TStrings


property Listcc : TStrings


property ListTo : TStrings


property MailText : TStrings


property Options : TSendMailDialogOptions


property Position : TSendMailDialogPos


property SMTP_Port : integer


property SMTP_Server : string


property Status : SendMailInfo


property StatusBarBackground : TColor


property StatusBarColor : TColor


property StatusBarHeight : integer


property StatusBarWidth : integer


property Subject : string


property TimeOut : word


property TO_Address : string


property TO_Name : string


property Version : string


property WindowLeft : integer


property WindowTop : integer


property Initialized : Boolean


Events

event OnSendMailFeedData : TSendMailEvent


event OnSendMailInfo : TSendMailInfoEvent


event OnSetupNextMessage : TNotifyEvent


Variables

AttachStrings : TStrings;


bs : TFormBorderStyle;


d : Tsmdlg;


DummyS : string;


FCaption : string;


FColor : TColor;


FDemo : Boolean;


FFName : string;


FFont : TFont;


FHeight : integer;


FInit : Boolean;


FKeepOpen : Boolean;


FLang : TStrings;


fleft : integer;


FListBcc : TStrings;


FListcc : TStrings;


FListTo : TStrings;


FNextMsg : TNotifyEvent;


FOptions : TSendMailDialogOptions;


FPort : integer;


FPos : TSendMailDialogPos;


FReply : string;


FServer : string;


FStatusBk : TColor;


FStatusColor : TColor;


FSubject : string;


FTAddress : string;


FText : TStrings;


FTimeOut : word;


FTName : string;


ftop : integer;


FVersion : string;


FWidth : integer;


HeaderList : TStrings;


MailStrings : TStrings;


MI : SendMailInfo;


OSMFD : TSendMailEvent;


OSMI : TSendMailInfoEvent;



Constructors


constructor Create(owner: TComponent);

=========================== Component Code =========================


Functions


procedure Demo;


destructor Destroy;


function Execute: Boolean;


procedure MeasureText(s: string;var x: integer;var y: integer);


procedure SetAttStrings(s:TStrings);


procedure SetFFont(f: TFont);


procedure SetFLang(s: TStrings);


procedure SetHeaderList(s:TStrings);


procedure SetListBcc(s: TStrings);


procedure SetListcc(s: TStrings);


procedure SetListTo(s: TStrings);


procedure SetMailStrings(s:TStrings);


procedure UpdateInfo;


Properties


property Attachments : TStrings


property Border : TFormBorderStyle


property Caption : string


property Color : TColor


property Font : TFont


property FROM_Address : string


property FROM_Name : string


property Headers : TStrings


property KeepConnectionOpen : Boolean


property LanguageStrings : TStrings


property ListBcc : TStrings


property Listcc : TStrings


property ListTo : TStrings


property MailText : TStrings


property Options : TSendMailDialogOptions


property Position : TSendMailDialogPos


property SMTP_Port : integer


property SMTP_Server : string


property Status : SendMailInfo


property StatusBarBackground : TColor


property StatusBarColor : TColor


property StatusBarHeight : integer


property StatusBarWidth : integer


property Subject : string


property TimeOut : word


property TO_Address : string


property TO_Name : string


property Version : string


property WindowLeft : integer


property WindowTop : integer


property Initialized : Boolean


Events


event OnSendMailFeedData : TSendMailEvent


event OnSendMailInfo : TSendMailInfoEvent


event OnSetupNextMessage : TNotifyEvent


Variables


AttachStrings : TStrings;


bs : TFormBorderStyle;


d : Tsmdlg;


DummyS : string;


FCaption : string;


FColor : TColor;


FDemo : Boolean;


FFName : string;


FFont : TFont;


FHeight : integer;


FInit : Boolean;


FKeepOpen : Boolean;


FLang : TStrings;


fleft : integer;


FListBcc : TStrings;


FListcc : TStrings;


FListTo : TStrings;


FNextMsg : TNotifyEvent;


FOptions : TSendMailDialogOptions;


FPort : integer;


FPos : TSendMailDialogPos;


FReply : string;


FServer : string;


FStatusBk : TColor;


FStatusColor : TColor;


FSubject : string;


FTAddress : string;


FText : TStrings;


FTimeOut : word;


FTName : string;


ftop : integer;


FVersion : string;


FWidth : integer;


HeaderList : TStrings;


MailStrings : TStrings;


MI : SendMailInfo;


OSMFD : TSendMailEvent;


OSMI : TSendMailInfoEvent;