Unit Inetmail |
Classes |
SendMail -
Functions |
Types |
SendMailError
SendMailInfo
TMailAction
TMailEncoding
TSendMailAttachment
TSendMailAttachmentPtr
TSendMailErrorEvent
TSendMailEvent
TSendMailInfoEvent
Constants |
CodeQuoted
SM_VERSION
WM_AVAILABLE
_Code64
_UUCode
Variables |
Functions |
Types |
SendMailError=(smNone,smWInsockNotInitialized,smNetworkDown,smInvalidAddress,smInternalError, smGeneralWinsockError,smConnAborted,smConnReset,smConnectTimeOut, smOutofSockets,smNetworkUnreachable,smAddressNotAvailable, smConnectionRefused,smProtocolError,smCanceled,smUnknown, smAddressResolutionError,smPrematureDisconnect,smMailDestinationError, smHostUnreachable);
SendMailInfo=(smServerConnected,smTraceIn,smTraceOut, smServerDisconnected,smMessageAccepted, smAttachmentName,smAttachmentSize,smAttachmentBytes, smBadAddress,smRecipient,smMessageSize,smSendingMessage, smBadAttachment,smAlreadyBusy, smAddressResolved,smResolvingAddress );
TMailAction=(None,Send_Mail,Cancel_SendMail);
TMailEncoding=(meDefault,meMimeBase64,meMimeQuoted,meMimePlain,meUUencode);
TSendMailAttachment = record
Name : string[255];
Encoding : TMailEncoding;
MimeType : string[80];
MimeDisposition : string[30];
MimeDescription : string[255];
Location : string[255];
end;
TSendMailAttachmentPtr=^TSendMailAttachment
TSendMailErrorEvent=procedure(Sender: TObject;error: SendMailError; addinfo: string) of object
TSendMailEvent= procedure (Sender: TObject; var data:string) of object
TSendMailInfoEvent = procedure (Sender : TObject; info: SendMailInfo; addinfo: string) of object
Constants |
Variables |