Unit MegaEmail

*******************************************************} {* MegaMail Version 2.1 *} {* Copyright(c) Megasistemas Ltda. 1997 *} {* Todos los derechos reservados *} {* Author : Jair Palacio *} {*********************************************************} {* http://www.megasistemas.com *} {* send remarks: juherna@epm.net.co *} {*********************************************************} {* Const: Credits *} {* *} {* Type : TMegaMail *} {* *} {*********************************************************} {* Description : this unit contains one component to *} {* send mail to any mail box, inherites *} {* directly from TWinControl, and you may attach or *} {* include one file in the body. *} {* Using MapiMessage And MapiFileDesc Records *} {

Classes

TMegaMail -

Functions

Register -

Types

TMegaErrorNotifyEvent
TMegaNotifyEvent

Constants

Credits

Variables


Functions


procedure Register;


Types


TMegaErrorNotifyEvent = procedure(Sender: TObject; Error_Number: Cardinal; Error_Message:String) of object

TMegaNotifyEvent = procedure(Sender: TObject; Doc_Name: String) of object

Constants

Credits = 'MegaSistemas Ltda(c) By Jair... 1,997. Medellín - Colombia'


Variables