1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

uses
  IdSMTP, IdMessage, IdEMailAddress, IdBaseComponent, IdComponent,
  IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL,
  IdExplicitTLSClientServerBase;

procedure TForm14.Button1Click(Sender: TObject);
var
  SMTP: TIdSMTP;
  NewMessage: TIdMessage;
  Recipient: TIdEMailAddressItem;
  IndySSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  NewMessage := TIdMessage.Create(NIL);
  try
    Recipient := NewMessage.Recipients.Add;
    Recipient.Name := 'Sebastian Jänicke';
    Recipient.Address := '---@hotmail.com';
    NewMessage.From.Name := 'Sebastian Jänicke';
    NewMessage.From.Address := '---@gmx.de';
    NewMessage.Body.Text := 'Das ist eine kleine Testnachricht.';
    NewMessage.Subject := 'Das ist der Betreff';
    IndySSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      IndySSLIOHandler.SSLOptions.Method := sslvTLSv1;
      IndySSLIOHandler.SSLOptions.Mode := sslmClient;
      SMTP := TIdSMTP.Create(nil);
      try
        SMTP.IOHandler := IndySSLIOHandler;
        SMTP.Host := 'mail.gmx.net';
        SMTP.Port := 587;
        SMTP.AuthType := satDefault;
        SMTP.Username := '---@gmx.de';
        SMTP.Password := '---';
        SMTP.UseTLS := utUseExplicitTLS;
        SMTP.Connect;
        try
          SMTP.Send(NewMessage);
        finally
          SMTP.Disconnect;
        end;
      finally
        SMTP.Free;
      end;
    finally
      IndySSLIOHandler.Free;
    end;
  finally
    NewMessage.Free;
  end;
end;