| 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 |