TIdSMTPRelay

type TIdSMTPRelay = class(TIdSMTPBase)

protected

  FMXServerList: TStrings;

  FStatusList: TIdSMTPRelayStatusList;

  FDNSServer: string;

  FOnDirectSMTPStatus: TIdSMTPRelayStatus;

  FSSLOptions: TIdSSLSupportOptions;

  FRelaySender: string;

  procedure Connect();

  procedure ResolveMXServers();

  procedure SetDNSServer();

  procedure SetOnStatus();

  procedure SetUseEhlo(); override;

  procedure SetHost(); override;

  function GetSupportsTLS; override;

  procedure ProcessException();

  procedure SetSSLOptions();

  procedure SetRelaySender();

  procedure InitComponent; override;

  property Port: TIdPort;

public

  procedure Assign(); override;

  destructor Destroy; override;

  procedure DisconnectNotifyPeer; override;

  procedure Send(); override;

published

  property DNSServer: string; [rw]

  property RelaySender: string; [rw]

  property StatusList: TIdSMTPRelayStatusList; [r]

  property SSLOptions: TIdSSLSupportOptions; [rw]

  property OnDirectSMTPStatus: TIdSMTPRelayStatus; [rw]

  property OnTLSHandShakeFailed: TIdOnTLSNegotiationFailure;

  property OnTLSNotAvailable: TIdOnTLSNegotiationFailure;

  property OnTLSNegCmdFailed: TIdOnTLSNegotiationFailure;

end;

TIdSMTPRelay

TIdSMTPBase

TIdMessageClient

TIdExplicitTLSClient

TIdTCPClientCustom

TIdTCPConnection

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject