Class TMainForm (unit Umapi) |
Inherits from
TForm
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.
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;
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.
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;