Difference between revisions of "Unit SMTP"

Revision as of 05:27, 7 March 2017

`SMTP_STRING_CONTINUE = '-';`

`SMTP_STRING_CONN_SUCCESS = '220 ';`
`SMTP_STRING_QUIT_SUCCESS = '221 ';`
`SMTP_STRING_HELO_SUCCESS = '250 ';`
`SMTP_STRING_EHLO_SUCCESS = '250 ';`
`SMTP_STRING_TIME_SUCCESS = '250 ';`
`SMTP_STRING_NOOP_SUCCESS = '250 ';`
`SMTP_STRING_CONT_SUCCESS = '250-';`
`SMTP_STRING_AUTH_SUCCESS = '235 ';`
`SMTP_STRING_AUTH_CHALLENGE = '334 ';`
`SMTP_STRING_MAIL_SUCCESS = '250 ';`
`SMTP_STRING_RCPT_SUCCESS = '250 ';`
`SMTP_STRING_VRFY_SUCCESS = '250 ';`
`SMTP_STRING_BEGIN_DATA_SUCCESS = '354 ';`
`SMTP_STRING_END_DATA_SUCCESS = '250 ';`
`SMTP_STRING_RSET_SUCCESS = '250 ';`

`SMTP_STRING_WRITE_FAILURE = '451 ';`
`SMTP_STRING_COMMAND_FAILURE = '500 ';`
`SMTP_STRING_SYNTAX_FAILURE = '501 ';`
`SMTP_STRING_LOGON_FAILURE = '501 ';`
`SMTP_STRING_SEQUENCE_FAILURE = '503 ';`
`SMTP_STRING_AUTH_FAILURE = '504 ';`
`SMTP_STRING_RCPT_FAILURE = '553 ';`
`SMTP_STRING_VRFY_FAILURE = '550 ';`
`SMTP_STRING_SIZE_FAILURE = '552 ';`
`SMTP_STRING_FORWARD_FAILURE = '551 ';`
`SMTP_STRING_PERMISSION_FAILURE = '571 ';`

`SMTP_STRING_CONN_OK = 'Ultibo SMTP server (version ' + ULTIBO_RELEASE_VERSION + ')';`
`SMTP_STRING_HELO_OK = 'Ultibo SMTP server - Hello, ';`
`SMTP_STRING_EHLO_HEAD_OK = 'Ultibo SMTP server - Hello ';`
`SMTP_STRING_EHLO_TAIL_OK = '; ESMTPs are: ';`
`SMTP_STRING_AUTH_OK = 'Authenticated OK';`
`SMTP_STRING_MAIL_OK = 'Sender OK - send RCPTs';`
`SMTP_STRING_MAIL_SIZE_HEAD_OK = 'Sender and size (';`
`SMTP_STRING_MAIL_SIZE_TAIL_OK = ') OK - send RCPTs';`
`SMTP_STRING_RCPT_OK = 'Recipient OK - send RCPT or DATA';`
`SMTP_STRING_VRFY_OK = 'OK - ';`
`SMTP_STRING_BEGIN_DATA_OK = 'OK, send data, end with CRLF.CRLF';`
`SMTP_STRING_END_DATA_OK = 'Data received OK';`
`SMTP_STRING_RSET_OK = 'Command processed OK';`
`SMTP_STRING_QUIT_OK = 'Ultibo SMTP server closing connection';`
`SMTP_STRING_TIME_OK = 'Time is ';`
`SMTP_STRING_NOOP_OK = 'OK';`

`SMTP_STRING_BAD_COMMAND = 'Command unrecognized';`
`SMTP_STRING_BAD_SYNTAX = 'Bad syntax in command';`
`SMTP_STRING_BAD_SEQUENCE = 'Bad sequence of commands';`
`SMTP_STRING_BAD_AUTH = 'Unrecognized authentication type';`
`SMTP_STRING_BAD_LOGON = 'Authentication failed';`
`SMTP_STRING_BAD_MAIL = 'Unknown sender';`
`SMTP_STRING_BAD_RCPT = 'Unknown recipient';`
`SMTP_STRING_BAD_VRFY = 'Mailbox not found';`

[Expand]

SMTP logging constants SMTP_LOG_*

Type definitions

SMTP client notify event

`TSMTPClientNotifyEvent = procedure(const ARequest:String) of Object;`

SMTP host event

`TSMTPHostEvent = function(AConnection:TSMTPConnection):Boolean of Object;`

SMTP count event

`TSMTPCountEvent = function(AConnection:TSMTPConnection):Boolean of Object;`

SMTP notify event

`TSMTPNotifyEvent = procedure(AConnection:TSMTPConnection; const ARequest:String) of Object;`

SMTP request event

`TSMTPRequestEvent = function(AConnection:TSMTPConnection; const ARequest:String; var AReply:String):Boolean of Object;`

SMTP authenticate event

`TSMTPAuthenticateEvent = function(AConnection:TSMTPConnection; const AMethod,AUsername,APassword:String; var AReply:String):Boolean of Object;`

SMTP connection event

`TSMTPConnectionEvent = procedure(AConnection:TSMTPConnection) of Object;`

Class definitions

To be documented

Public variables

SMTP logging

`SMTP_DEFAULT_LOG_LEVEL:LongWord = SMTP_LOG_LEVEL_DEBUG;`	Minimum level for SMTP messages. Only messages with level greater than or equal to this will be printed.

`SMTP_LOG_ENABLED:Boolean;`