TIdSMTPBase

type TIdSMTPBase = class(TIdMessageClient)

protected

  FMailAgent: string;

  FHeloName: string;

  FPipeline: Boolean;

  FUseEhlo: Boolean;

  FUseVerp: Boolean;

  FVerpDelims: string;

  FOnFailedRecipient: TIdSMTPFailedRecipient;

  FOnFailedEHLO: TIdSMTPFailedEHLO;

  function GetSupportsTLS; override;

  function GetReplyClass; override;

  procedure InitComponent; override;

  procedure SendGreeting;

  procedure SetUseEhlo(); virtual;

  procedure SetPipeline();

  procedure StartTLS;

  function FailedRecipientCanContinue();

  function WriteRecipientNoPipelining();

  procedure WriteRecipientsNoPipelining();

  procedure SendNoPipelining();

  procedure WriteRecipientPipeLine();

  procedure WriteRecipientsPipeLine();

  procedure SendPipelining();

  procedure InternalSend(); virtual;

public

  procedure Send();

published

  property MailAgent: string; [rw]

  property HeloName: string; [rw]

  property UseEhlo: Boolean; [rw]

  property PipeLine: Boolean; [rw]

  property UseVerp: Boolean; [rw]

  property VerpDelims: string; [rw]

  property OnFailedRecipient: TIdSMTPFailedRecipient; [rw]

  property OnFailedEHLO: TIdSMTPFailedEHLO; [rw]

end;

TIdSMTPBase

TIdMessageClient

TIdExplicitTLSClient

TIdTCPClientCustom

TIdTCPConnection

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject