Class TGetMailForm (unit Chkmail)

Inherits from

TForm

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;



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;