Class TMegaMail (unit MegaEmail)

Inherits from

TWinControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;


Procedure Execute;


Procedure SendFile;

Protected declarations

Procedure SendFile_Attach;


procedure Done_Send;


Procedure Error_InSend(ENumber:Cardinal;EMessage:String);


Procedure FileNotExist;


function GetAbout: String;


procedure Init_Send;


Procedure Send_Mail(MMail:TMapiMessage);


procedure SetAddDate(Value: Boolean);


procedure SetAttachment(Value: Boolean);


procedure SetDocument(Value: String);


Procedure User_Cancel;


Properties

property About : String


property AddDate : Boolean


property Attachment : Boolean


property Source : String

Published declarations

Events

event OnBeginDocument : TMegaNotifyEvent


event OnCancelSend : TMegaNotifyEvent


event OnEndDocument : TMegaNotifyEvent


event OnErrorSend : TMegaErrorNotifyEvent


event OnFileNotExists : TMegaNotifyEvent


Variables

FAbout : String;


FAddDate : Boolean;

Private declarations

FAttachment : Boolean;


FDocument : String;


FOnBeginDoc : TMegaNotifyEvent;


FOnCancelSend : TMegaNotifyEvent;


FOnEndDoc : TMegaNotifyEvent;


FOnErrorSend : TMegaErrorNotifyEvent;


FOnFileNotExist : TMegaNotifyEvent;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;


Procedure Execute;


Procedure SendFile;

Protected declarations


Procedure SendFile_Attach;


procedure Done_Send;


Procedure Error_InSend(ENumber:Cardinal;EMessage:String);


Procedure FileNotExist;


function GetAbout: String;


procedure Init_Send;


Procedure Send_Mail(MMail:TMapiMessage);


procedure SetAddDate(Value: Boolean);


procedure SetAttachment(Value: Boolean);


procedure SetDocument(Value: String);


Procedure User_Cancel;


Properties


property About : String


property AddDate : Boolean


property Attachment : Boolean


property Source : String

Published declarations


Events


event OnBeginDocument : TMegaNotifyEvent


event OnCancelSend : TMegaNotifyEvent


event OnEndDocument : TMegaNotifyEvent


event OnErrorSend : TMegaErrorNotifyEvent


event OnFileNotExists : TMegaNotifyEvent


Variables


FAbout : String;


FAddDate : Boolean;

Private declarations


FAttachment : Boolean;


FDocument : String;


FOnBeginDoc : TMegaNotifyEvent;


FOnCancelSend : TMegaNotifyEvent;


FOnEndDoc : TMegaNotifyEvent;


FOnErrorSend : TMegaErrorNotifyEvent;


FOnFileNotExist : TMegaNotifyEvent;