| Class TGetMailForm (unit Chkmail) |
TForm
| Constructors |
| Functions |
procedure FormShow(Sender: TObject);
procedure GetMail1AttachmentGetLocation(Sender: TObject;
Attachment: TMIMEAttachmentPtr);
procedure GetMail1AttachmentStored(Sender: TObject;
Attachment: TMIMEAttachmentPtr);
procedure GetMail1Done(Sender: TObject);
procedure GetMail1HeadersLoaded(Sender: TObject);
procedure GetMail1MailError(Sender: TObject; error: GetMailError;
addinfo: string);
procedure GetMail1MailInfo(Sender: TObject; info: GetMailInfo;
addinfo: String);
procedure GetMail1MessageLoaded(Sender: TObject);
procedure StopClick(Sender: TObject);
procedure AddToAddressBook(FromLine: string);
procedure WMGetMail(var Msg:TMsg);| Properties |
| Events |
| Variables |
GetMail1 : GetMail;
MessagesLeft : TLabel;
Status : TLabel;
StatusBar : TPanel;
StatusBk : TPanel;
Stop : TButton;
Subject : TLabel;
NewMail : Boolean;
CurrentAttachment : LongInt;
done : LongInt;
EndAtt : LongInt;
NumMessages : Integer;
StartAtt : LongInt;
todo : LongInt;
UIDLManager : TUIDLManager;
UIDLSupported : Boolean;| Constructors |
| Functions |
procedure FormShow(Sender: TObject);
procedure GetMail1AttachmentGetLocation(Sender: TObject;
Attachment: TMIMEAttachmentPtr);Handle Middle Name
procedure GetMail1AttachmentStored(Sender: TObject;
Attachment: TMIMEAttachmentPtr);
procedure GetMail1Done(Sender: TObject);
procedure GetMail1HeadersLoaded(Sender: TObject);
procedure GetMail1MailError(Sender: TObject; error: GetMailError;
addinfo: string);
procedure GetMail1MailInfo(Sender: TObject; info: GetMailInfo;
addinfo: String);change depends on leave mail on server option
procedure GetMail1MessageLoaded(Sender: TObject);if UIDL not supported then need to preview messages
procedure StopClick(Sender: TObject);
procedure AddToAddressBook(FromLine: string);Post message cleanup
procedure WMGetMail(var Msg:TMsg);Show Form before starting to get mail
| Properties |
| Events |
| Variables |
GetMail1 : GetMail;
MessagesLeft : TLabel;
Status : TLabel;
StatusBar : TPanel;
StatusBk : TPanel;
Stop : TButton;
Subject : TLabel;
NewMail : Boolean;
CurrentAttachment : LongInt;
done : LongInt;
EndAtt : LongInt;
NumMessages : Integer;
StartAtt : LongInt;
todo : LongInt;
UIDLManager : TUIDLManager;
UIDLSupported : Boolean;