Class TNewMessageForm (unit Newmail)

Inherits from

TForm

Constructors



Functions

procedure AddBookBtnClick(Sender: TObject);


procedure AttachBtnClick(Sender: TObject);


procedure AttachmentsLBDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure BitBtn4Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

for TMailboxForm

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);

store message in pending mailbox

procedure MailLaterBtnClick(Sender: TObject);


procedure MailNowBtnClick(Sender: TObject);


procedure GenerateMessage(m: TStrings);

store message in sent mailbox

Properties

Events

Variables

AddBookBtn : TBitBtn;


AttachBtn : TBitBtn;


AttachmentsLB : TComboBox;


BccEdt : TEdit;


BitBtn4 : TBitBtn;


ccEdt : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


MailLaterBtn : TBitBtn;


MailNowBtn : TBitBtn;


Memo1 : TMemo;


Panel1 : TPanel;


SubjectEdt : TEdit;


ToEdt : TEdit;


BccList : TStrings;


ccList : TStrings;


ToList : TStrings;


Attachments : array[1..50] of TSendMailAttachment;


NumAttachments : integer;



Constructors


Functions


procedure AddBookBtnClick(Sender: TObject);


procedure AttachBtnClick(Sender: TObject);


procedure AttachmentsLBDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure BitBtn4Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

for TMailboxForm


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);

store message in pending mailbox


procedure MailLaterBtnClick(Sender: TObject);


procedure MailNowBtnClick(Sender: TObject);


procedure GenerateMessage(m: TStrings);

store message in sent mailbox


Properties


Events


Variables


AddBookBtn : TBitBtn;


AttachBtn : TBitBtn;


AttachmentsLB : TComboBox;


BccEdt : TEdit;


BitBtn4 : TBitBtn;


ccEdt : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


MailLaterBtn : TBitBtn;


MailNowBtn : TBitBtn;


Memo1 : TMemo;


Panel1 : TPanel;


SubjectEdt : TEdit;


ToEdt : TEdit;


BccList : TStrings;


ccList : TStrings;


ToList : TStrings;


Attachments : array[1..50] of TSendMailAttachment;


NumAttachments : integer;