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

CodeQuoted = ('0123456789ABCDEF')

SM_VERSION = '1.3.9'

Copyright (©) 1997 Tony BenBrahim This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; if not, write to the: Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Modification History: ===================== 1.3.1 10/14/95 Added support for quoted printable encoding 1.3.2 11/14/95 Added AddAttachment method, which allows user to specify MimeType and desired encoding. 1.3.3 11/27/95 Added UUEncoding Fixed bug in Quoted-Printable which deleted blank lines. 1.3.4 12/1/95 Added separate To, cc and Bcc Lists Added StayConnected property 1.3.5 2/19/96 Changed line limit from 253 to 998 1.3.6 4/14/96 Added SendingMail for last portion of message 1.3.7 5/3/96 Fixed Quoted Printable Encoding, now works 100% Added encoding of headers per RFC 1522 Added MessageSize notification Fixed Bug with Atts array (range check) 1.3.8 5/12/96 Added TimeOut functions Rearranged Error handling Eliminated Status property, replaced w/ Busy 1.3.9 5/30/96 Fixed so that plain text msgs sent as plain text. Clear all address properties at end of transaction.

WM_AVAILABLE = WM_USER+2

_Code64 = ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/')

_UUCode = (' !"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_')


Variables