Synapse sendtoraw mit SSL ?

[malabarista]

Inzwischen stellen alle Provider ihre Mailserver um auf verschlüsselte Übertragung, z.B. SSL/TLS auf Port 465
Das wird aber von der Synapse-Funktion SendtoRaw nicht unterstützt .
Ich habe es versucht mit provider:465 aber keine Übertragung.
Dann soll man in der Synapsequelle zwei Codezeilen einfügen ( .SSL:=True;) , aber auch das ergab keine Wirkung.

Gibt es inzwischen eine andere Synapse-Funktion für verschlüsselte Übertragung ?

Wer weiss eine Lösung ? Ich kann doch nicht der einzige sein, der dieses Problem hat ?

[sstvmaster]

Hab zwar keine direkte Lösung, aber du kannst ja mal schauen ob das mit XMailer geht und wenn ja wie er das gemacht hat.

Ist auch in OPM verfügbar: XMailer
https://github.com/MFernstrom/xmailer

[theo]

Hast du SSL support überhaupt drin? (z.B. uses ssl_openssl)

http://synapse.ararat.cz/doku.php/publi ... :sslplugin

[malabarista]

nein, - das habe ich nicht gewusst.

[malabarista]

Nun habe ich den ssl_streamsec in die uses des smtp eingebunden und nachstehende Zeilen aktiviert, aber trotzdem wird nichts gesendet.

// if you need support for upgrade session to TSL/SSL, uncomment next lines:
SMTP.AutoTLS := True;
// if you need support for TSL/SSL tunnel, uncomment next lines:
SMTP.FullSSL := True;

Leider gibt die SendToRaw-Function nur true oder false zurück.
Wie kann ich das besser testen ?

[sstvmaster]

für ssl_streamsec steht aber als abhängigkeit: "native Delphi sources", siehe Bild

streamsec.JPG (14.33 KiB) 4252 mal betrachtet

[theo]

Es gibt hier http://synapse.ararat.cz/files/crypt/ noch DLLs für Windows, die sind aber nicht mehr ganz taufrisch. k.A. Sollte aber für 32bit funzen.
Eine von diesen muss natürlich auch im Pfad sein.
Für Linux geht es mit den System Libs (OpenSSL)

[sstvmaster]

Mit dem XMailer kann ich auf 465 eine Mail senden (1und1/ionos).

Code: Alles auswählen

 
program demo;
 
{$mode objfpc}{$H+}
 
uses
  XMailer, SysUtils;
 
var
  Mail: TSendMail;
begin
  Mail := TSendMail.Create;
  try
    try
      // Mail
      Mail.Sender := 'Your Name <test@host.com>';
      Mail.Receivers.Add('dest1@host.com');
      Mail.Subject := 'Your subject.';
      Mail.Message.Add('Your message.');
      // SMTP
      Mail.Smtp.UserName := 'user@host.com';
      Mail.Smtp.Password := 'abc123';
      Mail.Smtp.Host := 'smtp.host.com';
      Mail.Smtp.Port := '465';
      Mail.Smtp.SSL := True;
      Mail.Smtp.TLS := False;  // <-- habe ich auf False geändert
      Mail.Send;
      Write('E-mail sent successfully!');
    except
      on E: Exception do
        Write(E.Message);
    end;
  finally
    Mail.Free;
  end;
end.
 

[malabarista]

Wie muss ich den xmailer installieren ?
Ich bekomme die compiler-Fehlermeldung:kann xmailer nicht finden.

[theo]

Wie muss ich den xmailer installieren ?
Ich bekomme die compiler-Fehlermeldung:kann xmailer nicht finden.

Xmailer benutzt auch Synapse. Ich denke es geht auch ohne xmailer, wenn die passende SSL DLL im Pfad ist.
Ansonsten gibt es XMailer auch im Online Package Manager

[malabarista]

Ansonsten gibt es XMailer auch im Online Package Manager
Was ist der "Online Package Manager" ?

[theo]

Ansonsten gibt es XMailer auch im Online Package Manager
Was ist der "Online Package Manager" ?

http://wiki.freepascal.org/Online_Package_Manager

Damit kannst du Packages per "Knopfdruck" installieren.

[malabarista]

Ich habe nun FPC 3.0.4 mit IDE 1.8.4 installiert und den Online-Manager kompiliert und die IDE neu kompiliert.

Bei der Nutzung des Online-Managers für die Installation des xmailer erhalte ich die Fehlermeldung:
"xmailerpkg.lpk kann nicht kompiliert werden"

Was nun ?

[theo]

Wie gesagt, das baut auch nur auf Synapse auf.
Wahrscheinlich fehlt im laz_synapse Package z.B. "ssl_openssl" und "ssl_openssl_lib".
Die Dateien sind aber da. Einfach ins Package aufnehmen.
Deiner Fehlermeldung kann man nichts genaueres entnehmen.

[malabarista]

Diese beiden sind im uses eingetragen. Trotzdem klappt es nicht. Werden noch dlls benötigt ?

Die Fehlermeldung vom xmailer war so kurz...