Utilisation de Synapse pour envoi de mails en SSL

Version imprimable

26/11/2015, 19h21
ratdeschamps

Utilisation de Synapse pour envoi de mails en SSL
Bonjour !

J'ai besoin d'envoyer des mails depuis un programme Lazarus à travers un SMTP sous Linux.

Je préférerais si possible utiliser synapse qui me semble performant et que j'utilise déjà pour d'autres types de communications.

J'arrive bien à envoyer des mails avec synapse (et SendToEx) sur un SMTP ouvert (port 25 sans username, ni mot de passe, ni SSL) mais ça commence à se faire rare...

J'arrive aussi à envoyer des mails avec mail ou phpmailer, et un SMTP sur un port TLS 687, avec un username et un mot de passe.

Mais pas moyen d'y arriver avec Synapse !
J'ai essayé en décommentant les lignes dans SendToRaw :
Code:

1 2 3 4 // 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;
Mais le Login ne réussit pas. Il n'y a pas de message d'erreur, juste un échec.

Est-ce que quelqu'un a déjà réussi ?
Est-ce qu'il y a une astuce que je n'aurais pas vue pour y parvenir ?

Merci pour toute aide !

PS : sinon j'essaierai avec Indy ou Inet. Je trouve le premier un peu lourd, et je n'ai jamais essayé le second.

Citation:

Envoyé par ratdeschamps

Bonjour !

J'ai besoin d'envoyer des mails depuis un programme Lazarus à travers un SMTP sous Linux.

Est-ce que ceci peut t'être utile ?

Code:

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
// This code supports using TLS/SSL encryption; if sending to port 25 it uses plain-text SMTP.
 
 
uses
  ..., smtpsend,ssl_openssl; //probably other ssl units can be used, too.
 
// MailData is the text of the mail.
function SendMail(
  User, Password, 
  MailFrom, MailTo, 
  SMTPHost, SMTPPort: string; 
  MailData: string): Boolean;
var
  SMTP: TSMTPSend;
  sl:TStringList;
begin
  Result:=False;
  SMTP:=TSMTPSend.Create;
  sl:=TStringList.Create;
  try
    sl.text:=Maildata;
    SMTP.UserName:=User;
    SMTP.Password:=Password;
    SMTP.TargetHost:=SMTPHost;
    SMTP.TargetPort:=SMTPPort;
    SMTP.AutoTLS:=true;
    if Trim(SMTPPort)<>'25' then
      SMTP.FullSSL:=true; // if sending to port 25, don't use encryption
    if SMTP.Login then
    begin
      result:=SMTP.MailFrom(MailFrom, Length(MailData)) and
         SMTP.MailTo(MailTo) and
         SMTP.MailData(sl);
      SMTP.Logout;
    end;
  finally
    SMTP.Free;
    sl.Free;
  end;
end;

08/12/2015, 11h24
ratdeschamps

Bonjour

Non ça ne m'aide pas beaucoup... Ce code est extrait des sources de Synapse et semble équivalent à celui de SendToRaw que j'ai testé.
J'ai une erreur systématique au login si je spécifie le port 587, un smtp chez OVH et un user+mot de passe qui fonctionnent bien avec Thunderbird ou phpmailer.
Enfin, merci quand même !

Il y a une petite différence c'est "uses sl_openssl".
Je n'ai aucune unité sl_openssl, mais en l'enlevant il n'y a pas d'erreur de compilation.

Est-ce que cette unité serait cependant nécessaire et son absence expliquerait mon souci ?
Si oui, quel paquet faut il installer pour la trouver ?

A+
08/12/2015, 23h15
jurassic pork

hello,
c'est bizarre l'unité ssl_openssl (et non pas sl_openssl (c'est peut être ça le problème)) est dans le zip synapse de la release 40.

Ami calmant, J.P (pas té)