Class TMainForm (unit Umapi)

Inherits from

TForm

Constructors



Functions

procedure AcknowledgeCheckClick(Sender: TObject);

Receipt requested checkbox.

procedure AttachButtonClick(Sender: TObject);

Open attachment dialog.

procedure AttachExit(Sender: TObject);

Move attachment to lbAttach on exit.

procedure bNewMailClick(Sender: TObject);


procedure btnAddClick(Sender: TObject);

Add button has been clicked

procedure btnRemoveClick(Sender: TObject);

Remove recipient from lbTo button.

procedure FormCreate(Sender: TObject);

Initialize private instance variables and logon to the mail system.

procedure FormDestroy(Sender: TObject);

Cleanup.

procedure FormKeyPress(Sender: TObject; var Key: Char);

Escape closes the form.

procedure lbAttachDblClick(Sender: TObject);

if False : you have to delete the temp files !!

procedure lbDeleteDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure ReadMailClick(Sender: TObject);

Read next email message button.

procedure RecipientExit(Sender: TObject);

Add recipient to listbox on exit.

procedure ReturnAttachmClick(Sender: TObject);


procedure SendClick(Sender: TObject);

Send mail.

procedure SomeAddressButtonClick(Sender: TObject);

Present an address dialog box.

Properties

Events

Variables

AcknowledgeCheck : TCheckBox;


Attach : TEdit;


AttachButton : TButton;


BCC : TEdit;


BCCButton : TButton;


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


Bevel4 : TBevel;


bNewMail : TButton;


btnAttachAdd : TButton;


btnAttachRemove : TButton;


btnBCCAdd : TButton;


btnBCCRemove : TButton;


btnCCAdd : TButton;


btnCCRemove : TButton;


btnToAdd : TButton;


btnToRemove : TButton;


CC : TEdit;


CCButton : TButton;


Email1 : TEmail;


Label2 : TLabel;


Label3 : TLabel;


lbAttach : TListBox;


lbBCC : TListBox;


lbCC : TListBox;


lbTo : TListBox;


MessageSubject : TEdit;


MessageText : TMemo;


OpenAttachm : TOpenDialog;


Panel1 : TPanel;


ReadMailButton : TButton;


Recipient : TEdit;


ReturnAttachm : TCheckBox;


SaveDialog1 : TSaveDialog;


SendMailButton : TButton;


ToButton : TButton;


Abort : Boolean;


messages : Tstringlist;

Private declarations } { form instance variables

MsgIndex : Integer;


nUnread : Integer;



Constructors


Functions


procedure AcknowledgeCheckClick(Sender: TObject);

Receipt requested checkbox.


procedure AttachButtonClick(Sender: TObject);

Open attachment dialog.


procedure AttachExit(Sender: TObject);

Move attachment to lbAttach on exit.


procedure bNewMailClick(Sender: TObject);


procedure btnAddClick(Sender: TObject);

Add button has been clicked


procedure btnRemoveClick(Sender: TObject);

Remove recipient from lbTo button.


procedure FormCreate(Sender: TObject);

Initialize private instance variables and logon to the mail system.


procedure FormDestroy(Sender: TObject);

Cleanup.


procedure FormKeyPress(Sender: TObject; var Key: Char);

Escape closes the form.


procedure lbAttachDblClick(Sender: TObject);

if False : you have to delete the temp files !!


procedure lbDeleteDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure ReadMailClick(Sender: TObject);

Read next email message button.


procedure RecipientExit(Sender: TObject);

Add recipient to listbox on exit.


procedure ReturnAttachmClick(Sender: TObject);


procedure SendClick(Sender: TObject);

Send mail.


procedure SomeAddressButtonClick(Sender: TObject);

Present an address dialog box.


Properties


Events


Variables


AcknowledgeCheck : TCheckBox;


Attach : TEdit;


AttachButton : TButton;


BCC : TEdit;


BCCButton : TButton;


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


Bevel4 : TBevel;


bNewMail : TButton;


btnAttachAdd : TButton;


btnAttachRemove : TButton;


btnBCCAdd : TButton;


btnBCCRemove : TButton;


btnCCAdd : TButton;


btnCCRemove : TButton;


btnToAdd : TButton;


btnToRemove : TButton;


CC : TEdit;


CCButton : TButton;


Email1 : TEmail;


Label2 : TLabel;


Label3 : TLabel;


lbAttach : TListBox;


lbBCC : TListBox;


lbCC : TListBox;


lbTo : TListBox;


MessageSubject : TEdit;


MessageText : TMemo;


OpenAttachm : TOpenDialog;


Panel1 : TPanel;


ReadMailButton : TButton;


Recipient : TEdit;


ReturnAttachm : TCheckBox;


SaveDialog1 : TSaveDialog;


SendMailButton : TButton;


ToButton : TButton;


Abort : Boolean;


messages : Tstringlist;

Private declarations } { form instance variables


MsgIndex : Integer;


nUnread : Integer;