Email mit SSL Verschlüsselung versenden (Windows, Android, iOS)

[Rene2]

Ich möchte aus einer App heraus eine Email versenden. Die App soll universell auf Windows, Android und iOS Geräten einsetzbar sein. Mit dem untenstehenden Code läuft alles super unter Windows und Android. Leider stürzt die App bei iOS einfach ab. Der code ist als universell einsetzbare Klasse geschrieben, so dass er für den einen oder anderen nutzbar sein könnte. Daher poste ich hier mal die ganze Unit. Es wäre super, wenn jemand wüsste was man tun muss, um es unter iOS zum Laufen zu bringen.
Der code basiert auf einem Vorschlag von: Remy Lebeau (TeamB): https://forums.embarcadero.com/messa...ssageID=526373 :

Delphi-Quellcode:

unit UnitSendEmail;

interface

uses
  IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  IdMessageClient, IdSMTPBase, IdSMTP, IdBaseComponent, IdMessage, IdIOHandler,
  IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdSASLLogin,
  IdSASL_CRAM_SHA1, IdSASL, IdSASLUserPass, IdSASL_CRAMBase, IdSASL_CRAM_MD5,
  IdSASLSKey, IdSASLPlain, IdSASLOTP, IdSASLExternal, IdSASLDigest,
  IdSASLAnonymous, IdUserPassProvider, System.Classes;

type
  TSSLEmail = class
    constructor Create;
    destructor Destroy; override;
  private
    { Private declarations }
  public
    { Public declarations }
    edSMTPServer: string;
    edSMTPPort: integer;
    edUserName: string;
    edPassword: string;
    edSSLConnection: boolean;
    edSenderEmail: string;
    edSenderName: string;
    edToEmail: string;
    edCCEmail: string;
    edBCCEmail: string;
    edSubject: string;
    edPriority: TIdMessagePriority;
    edBody: TStrings;
    Procedure Init;
    procedure SendEmail;
  end;

Var
  SSLEmail1: TSSLEmail;

implementation

constructor TSSLEmail.Create;
begin
  inherited;
  edBody := TStringList.Create;
end;

destructor TSSLEmail.Destroy;
begin
  edBody.Free;
  inherited;
end;

procedure TSSLEmail.Init;
begin
    edSMTPServer := '';
    edSMTPPort := 0;
    edUserName := '';
    edPassword := '';
    edSSLConnection := True;
    edSenderEmail := '';
    edSenderName := '';
    edToEmail := '';
    edCCEmail := '';
    edBCCEmail := '';
    edSubject := '';
    edPriority := TIdMessagePriority.mpNormal;
    edBody.Clear;
end;

procedure TSSLEmail.SendEmail;
var
  IdMessage: TIdMessage;                         // enthält Eigenschaften der Email
  SMTP: TIdSMTP;                                 // enthält Eigenschaften des SMTP Servers
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;      // alles weitere ist für die SSL Verschlüsselung
  IdUserPassProvider: TIdUserPassProvider;
  IdSASLCRAMMD5: TIdSASLCRAMMD5;
  IdSASLCRAMSHA1: TIdSASLCRAMSHA1;
  IdSASLPlain: TIdSASLPlain;
  IdSASLLogin: TIdSASLLogin;
  IdSASLSKey: TIdSASLSKey;
  IdSASLOTP: TIdSASLOTP;
  IdSASLAnonymous: TIdSASLAnonymous;
  IdSASLExternal: TIdSASLExternal;
begin
  IdMessage := TIdMessage.Create(nil);
  try
    // Eigenschaften der email setzen
    IdMessage.ContentType := 'text/plain';
    IdMessage.Charset := 'UTF-8';
    IdMessage.Body.Assign(edBody);
    IdMessage.Sender.Text := edSenderEMail;
    IdMessage.From.Name := edSenderName;
    IdMessage.From.Address := edSenderEMail;
    IdMessage.ReplyTo.EMailAddresses := edSenderEmail;
    IdMessage.Recipients.EMailAddresses := edToEmail;
    IdMessage.Subject := edSubject;
    IdMessage.Priority := edPriority;
    IdMessage.CCList.EMailAddresses := edCCEMail;
    IdMessage.ReceiptRecipient.Text := '';
    IdMessage.BccList.EMailAddresses := edBCCEMail;

    SMTP := TIdSMTP.Create(nil);
    try
      if edSSLConnection then begin
        SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(SMTP);
        // SSLHandler.MaxLineAction := maException;
        SSLHandler.SSLOptions.Method := sslvSSLv23;     // SSL/TLS handshake determines the highest available SSL/TLS version dynamically
        SSLHandler.SSLOptions.Mode := sslmClient;
        SSLHandler.SSLOptions.VerifyMode := [];
        SSLHandler.SSLOptions.VerifyDepth := 0;
        SMTP.IOHandler := SSLHandler;
        if edSMTPPort=587 then
          SMTP.UseTLS := utUseExplicitTLS
        else
          SMTP.UseTLS := utUseImplicitTLS;       // ImplicitTLS insbesondere auch bei Port 465
      end;

      if (edUserName<>'') or (edPassword<>'') then begin
        SMTP.AuthType := satSASL;

        // Username und Passwort verschlüsselt bereitstellen
        IdUserPassProvider := TIdUserPassProvider.Create(SMTP);
        IdUserPassProvider.Username := edUserName;
        IdUserPassProvider.Password:= edPassword;

        // SASL-Komponenten für SSL Verschlüsselung
        IdSASLCRAMSHA1 := TIdSASLCRAMSHA1.Create(SMTP);
        IdSASLCRAMSHA1.UserPassProvider := IdUserPassProvider;
        IdSASLCRAMMD5 := TIdSASLCRAMMD5.Create(SMTP);
        IdSASLCRAMMD5.UserPassProvider := IdUserPassProvider;
        IdSASLSKey := TIdSASLSKey.Create(SMTP);
        IdSASLSKey.UserPassProvider := IdUserPassProvider;
        IdSASLOTP := TIdSASLOTP.Create(SMTP);
        IdSASLOTP.UserPassProvider := IdUserPassProvider;
        IdSASLAnonymous := TIdSASLAnonymous.Create(SMTP);
        IdSASLExternal := TIdSASLExternal.Create(SMTP);
        IdSASLLogin := TIdSASLLogin.Create(SMTP);
        IdSASLLogin.UserPassProvider := IdUserPassProvider;
        IdSASLPlain := TIdSASLPlain.Create(SMTP);
        IdSASLPlain.UserPassProvider := IdUserPassProvider;

        SMTP.SASLMechanisms.Add.SASL := IdSASLCRAMSHA1;
        SMTP.SASLMechanisms.Add.SASL := IdSASLCRAMMD5;
        SMTP.SASLMechanisms.Add.SASL := IdSASLSKey;
        SMTP.SASLMechanisms.Add.SASL := IdSASLOTP;
        SMTP.SASLMechanisms.Add.SASL := IdSASLAnonymous;
        SMTP.SASLMechanisms.Add.SASL := IdSASLExternal;
        SMTP.SASLMechanisms.Add.SASL := IdSASLLogin;
        SMTP.SASLMechanisms.Add.SASL := IdSASLPlain;
      end else begin
        SMTP.AuthType := satNone;
      end;

      // Verbindung zum Server herstellen und email senden
      SMTP.Host := edSMTPServer;
      SMTP.Port := edSMTPPort;
      SMTP.ConnectTimeout := 30000;
      SMTP.UseEHLO := True;
      SMTP.Connect;                       // verbinden
      try
        SMTP.Send(IdMessage);             // senden
      finally
        SMTP.Disconnect;                  // Verbindung lösen
      end;
    finally
      SMTP.Free;
    end;
  finally
    IdMessage.Free;
  end;
end;

end.

Die Unit kann man z.B. wie folgt benutzen:

Delphi-Quellcode:

procedure THeaderFooterForm.Button1Click(Sender: TObject);
begin
  if Edit1.Text<>'' then begin
    With SSLEmail1 do begin
      // Konkrete Daten dieser Email
      edSenderName := 'Mein Name';                // Name, der als Absender erscheint
      edSenderEmail := '[e-mail]';      // Meine Emailadresse, von der ich sende;
      edToEmail := Edit1.Text;
      edCCEmail := '';
      edBCCEmail := '';
      edSubject := Edit2.Text;
      edBody := Memo1.Lines;
      SendEmail;                                  // Email absenden
      Edit1.Text:='';
      Edit2.Text:='';
      Memo1.SelectAll;
      Memo1.DeleteSelection;
    end;
  end;
end;

procedure THeaderFooterForm.FormCreate(Sender: TObject);
begin
  SSLEmail1 := TSSLEmail.Create;
  // Serverdaten und Verbindungseigenschaften festlegen
  With SSLEmail1 do begin
    Init;
    edSMTPServer := 'smtp.googlemail.com';        // SMTP Server hier das Beispiel von Google-Mail
    edSMTPPort := 465;                            // Port auf dem Server
    edSSLConnection := True;                      // SSL Verbindung verwenden
    edUserName := '[e-mail]';           // Mein Username von dem ich die Mail sende
    edPassword := 'Passwort';                     // Mein Passwort dazu
  end;
end;

Unter iOS tritt der Fehler in der Zeile "SMTP.Connect;" auf. Das Fenster geht einfach zu und nichts passiert. Unter Windos und Android wird die mail wie gewünscht verschickt. Es wäre super, wenn ihr mir helfen könntet, den code auch unter iOS zum Laufen zu bringen.

[mjustin]

iOS habe ich leider nicht, aber einen "Absturz" auf Windows am Programmende konnte ich durch Freigabe des TSSLEmail Objekts nach dem Senden der Mail erreichen. Ursache ist die fehlerhafte Zuweisung des Body Textes, hier muss Assign verwendet werden.

Weitere kleine Änderungen: Units die im Interface nicht benötigt werden habe ich in implementation verschoben, Create(nil) durch Create ersetzt und die implizite published Sichtbarkeit des Konstruktors und Destruktors auf public geändert.

Delphi-Quellcode:

unit IndySecureMailClient;

interface

uses
  IdMessage, Classes;

type
  TSSLEmail = class(TObject)
  private
    FedBody: TStrings;
    procedure SetBody(const Value: TStrings);
  public
    edSMTPServer: string;
    edSMTPPort: integer;
    edUserName: string;
    edPassword: string;
    edSSLConnection: boolean;
    edSenderEmail: string;
    edSenderName: string;
    edToEmail: string;
    edCCEmail: string;
    edBCCEmail: string;
    edSubject: string;
    edPriority: TIdMessagePriority;

    constructor Create;
    destructor Destroy; override;

    procedure Init;
    procedure SendEmail;

    property edBody: TStrings read FedBody write SetBody;
  end;

implementation

uses
  IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  IdMessageClient, IdSMTPBase, IdSMTP, IdBaseComponent, IdIOHandler,
  IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdSASLLogin,
  IdSASL_CRAM_SHA1, IdSASL, IdSASLUserPass, IdSASL_CRAMBase, IdSASL_CRAM_MD5,
  IdSASLSKey, IdSASLPlain, IdSASLOTP, IdSASLExternal, IdSASLDigest,
  IdSASLAnonymous, IdUserPassProvider;

constructor TSSLEmail.Create;
begin
  inherited;
  FedBody := TStringList.Create;
end;

destructor TSSLEmail.Destroy;
begin
  edBody.Free;
  inherited;
end;

procedure TSSLEmail.SetBody(const Value: TStrings);
begin
  FedBody.Assign(Value);
end;

procedure TSSLEmail.Init;
begin
  edSMTPServer := '';
  edSMTPPort := 0;
  edUserName := '';
  edPassword := '';
  edSSLConnection := True;
  edSenderEmail := '';
  edSenderName := '';
  edToEmail := '';
  edCCEmail := '';
  edBCCEmail := '';
  edSubject := '';
  edPriority := TIdMessagePriority.mpNormal;
  edBody.Clear;
end;

procedure TSSLEmail.SendEmail;
var
  IdMessage: TIdMessage; // enthält Eigenschaften der Email
  SMTP: TIdSMTP; // enthält Eigenschaften des SMTP Servers
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL; // alles weitere ist für die SSL Verschlüsselung
  IdUserPassProvider: TIdUserPassProvider;
  IdSASLCRAMMD5: TIdSASLCRAMMD5;
  IdSASLCRAMSHA1: TIdSASLCRAMSHA1;
  IdSASLPlain: TIdSASLPlain;
  IdSASLLogin: TIdSASLLogin;
  IdSASLSKey: TIdSASLSKey;
  IdSASLOTP: TIdSASLOTP;
  IdSASLAnonymous: TIdSASLAnonymous;
  IdSASLExternal: TIdSASLExternal;
begin
  IdMessage := TIdMessage.Create;
  try
    // Eigenschaften der email setzen
    IdMessage.ContentType := 'text/plain';
    IdMessage.Charset := 'UTF-8';
    IdMessage.Body.Assign(edBody);
    IdMessage.Sender.Text := edSenderEMail;
    IdMessage.From.Name := edSenderName;
    IdMessage.From.Address := edSenderEMail;
    IdMessage.ReplyTo.EMailAddresses := edSenderEmail;
    IdMessage.Recipients.EMailAddresses := edToEmail;
    IdMessage.Subject := edSubject;
    IdMessage.Priority := edPriority;
    IdMessage.CCList.EMailAddresses := edCCEMail;
    IdMessage.ReceiptRecipient.Text := '';
    IdMessage.BccList.EMailAddresses := edBCCEMail;

    SMTP := TIdSMTP.Create;
    try
      if edSSLConnection then
      begin
        SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(SMTP);
        SSLHandler.SSLOptions.Method := sslvSSLv23; // SSL/TLS handshake determines the highest available SSL/TLS version dynamically
        SSLHandler.SSLOptions.Mode := sslmClient;
        SSLHandler.SSLOptions.VerifyMode := [];
        SSLHandler.SSLOptions.VerifyDepth := 0;
        SMTP.IOHandler := SSLHandler;
        if edSMTPPort = 587 then
          SMTP.UseTLS := utUseExplicitTLS
        else
          SMTP.UseTLS := utUseImplicitTLS; // ImplicitTLS insbesondere auch bei Port 465
      end;

      if (edUserName<>'') or (edPassword<>'') then
      begin
        SMTP.AuthType := satSASL;

        // Username und Passwort verschlüsselt bereitstellen
        IdUserPassProvider := TIdUserPassProvider.Create(SMTP);
        IdUserPassProvider.Username := edUserName;
        IdUserPassProvider.Password:= edPassword;

        // SASL-Komponenten für SSL Verschlüsselung
        IdSASLCRAMSHA1 := TIdSASLCRAMSHA1.Create(SMTP);
        IdSASLCRAMSHA1.UserPassProvider := IdUserPassProvider;
        IdSASLCRAMMD5 := TIdSASLCRAMMD5.Create(SMTP);
        IdSASLCRAMMD5.UserPassProvider := IdUserPassProvider;
        IdSASLSKey := TIdSASLSKey.Create(SMTP);
        IdSASLSKey.UserPassProvider := IdUserPassProvider;
        IdSASLOTP := TIdSASLOTP.Create(SMTP);
        IdSASLOTP.UserPassProvider := IdUserPassProvider;
        IdSASLAnonymous := TIdSASLAnonymous.Create(SMTP);
        IdSASLExternal := TIdSASLExternal.Create(SMTP);
        IdSASLLogin := TIdSASLLogin.Create(SMTP);
        IdSASLLogin.UserPassProvider := IdUserPassProvider;
        IdSASLPlain := TIdSASLPlain.Create(SMTP);
        IdSASLPlain.UserPassProvider := IdUserPassProvider;

        SMTP.SASLMechanisms.Add.SASL := IdSASLCRAMSHA1;
        SMTP.SASLMechanisms.Add.SASL := IdSASLCRAMMD5;
        SMTP.SASLMechanisms.Add.SASL := IdSASLSKey;
        SMTP.SASLMechanisms.Add.SASL := IdSASLOTP;
        SMTP.SASLMechanisms.Add.SASL := IdSASLAnonymous;
        SMTP.SASLMechanisms.Add.SASL := IdSASLExternal;
        SMTP.SASLMechanisms.Add.SASL := IdSASLLogin;
        SMTP.SASLMechanisms.Add.SASL := IdSASLPlain;
      end else begin
        SMTP.AuthType := satNone;
      end;

      SMTP.Host := edSMTPServer;
      SMTP.Port := edSMTPPort;
      SMTP.ConnectTimeout := 30000;
      SMTP.UseEHLO := True;
      SMTP.Connect;
      try
        SMTP.Send(IdMessage);
      finally
        SMTP.Disconnect;
      end;
    finally
      SMTP.Free;
    end;
  finally
    IdMessage.Free;
  end;
end;

end.

[Sir Rufo]

Das generelle Problem liegt wohl bei der OpenSSL-Bibliothek.

Siehe dazu http://blog.marcocantu.com/blog/usin...elphi_ios.html

BTW: Der Code ist echt grausam, da läuft es mir kalt den Rücken runter

[Rene2]

Ihr seid großartig! Es funktioniert jetzt mit iOS.

Man muss folgendes im code ergänzen: In der Uses-Liste einfügen: IdSSLOpenSSLHeaders_Static und die zugehörigen Files (libcrypto.a und libssl.a) downloaden, wie in dem oben genannten Artikel beschrieben. Ich habe sie von folgender Seite heruntergeladen: http://indy.fulgan.com/SSL/OpenSSLStaticLibs.7z und dann in den Ordner mit meinem Quellcode abgelegt.

Wie von Michael empfohlen, habe ich auch noch im Hauptprogramm die Zuweisung des Body-Textes geändert in: edBody.Assign(Memo1.Lines); und die Unit verwendet, wie er sie gepostet hat.

Herzlichen Dank nochmal!