Problème avec Laz_synape et smtpsend

**sematimo** · 08/01/2025, 11h40

Bonjour à tous et bonne année.

J'essaie d'envoyer des mails avec Laz_synapse.
Je réussi à me connecter mais impossible d'envoyer le mail.
J'ai smtpsend et ssl_openssl dans les uses.
J'ai essayé plusieurs port, seul le port 587 permet de me connecté.
J'ai essayé avec SMTP.Fullssl mais impossible.

Je suis sous windows 11 et Lazarus 3.6.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
function TForm1.CreationEnvoi(const User, Password, MailFrom, MailTo, SMTPHost, SMTPPort, 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.StartTLS;
 
    if not SMTP.Login then
    begin
      ShowMessage('Connexion échouée...');
      SMTP.logout;
      SMTP.Free;
      exit;
    end;
 
    ShowMessage('Connection établie...');
 
    if (SMTP.MailFrom(MailFrom, Length(MailData))) and (SMTP.MailTo(MailTo)) and
      (SMTP.MailData(sl)) then Result := True;
 
  finally
    SMTP.logout;
    SMTP.Free;
    sl.Free;
 
    if Result then ShowMessage(' Envoi réussi... ')
    else
      ShowMessage('Envoi échoué');
  end;
 
end;

**Jon Shannow** · 08/01/2025, 11h43

Bonjour,

Avez-vous regardé du coté de cette discussion ?

JS

**sematimo** · 08/01/2025, 13h11

oui
mon code est en parti fait à partir de cette discution

**sematimo** · 08/01/2025, 13h13

J'ai rajouter un affichage des erreurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    if not (SMTP.MailFrom(MailFrom, 0))
    then
    begin
      Memo1.Append('SMTP ERROR: MailFrom:' + SMTP.EnhCodeString);
      Memo1.Append('-- Remote response: ' + SMTP.FullResult.Text);
    end

retour:

SMTP ERROR: MailFrom

??-Other undefined Status
-- Remote response:

**anapurna** · 09/01/2025, 09h25

Salut

les librairies ssl sont bien installées sur les postes ?

**tourlourou** · 09/01/2025, 19h01

Bonsoir,
Pas de code erreur X.Y.Z retourné ?

**sematimo** · 09/01/2025, 23h13

ssl_openssl installé

**jurassic pork** · 10/01/2025, 01h08

Hello,
quel est le serveur smtp (si ce n'est pas confidentiel) ? comme par exemple avec gmail on avait l'option Autoriser les applications moins sécurisées quand le client SMTP n'était pas standard (outlook, thunderbird) et il peut y avoir des authentifications à plusieurs niveaux. Si tu as plusieurs comptes et plusieurs serveurs SMTP possibles essaie sur un autre.
Ami calmant, J.P

**sematimo** · 10/01/2025, 09h55

le serveur est mail.sematimo.com chez planethoster.
il n'y a pas d'authentification à 2 niveaux

**jurassic pork** · 10/01/2025, 14h09

Hello,
pour le TLS tu n'as pas mis les mêmes options que celles que j'employais en particulier AutoTLS.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    SMTP.TargetPort := '587';
    SMTP.AutoTLS := True;
    SMTP.FullSSL := False;

et pas de StartTLS

Ami calmant, J.P

**sematimo** · 10/01/2025, 20h33

j'utilise bien le port 587

Si SMTP.AutoTLS := True;
message "External: ACCESS violation"

si smtp.StartTLS la connexion est établie mais l'email n'est pas envoyée

j'ai libeay32.dll et ssleay32.dll dans le répertoire du projet

**jurassic pork** · 11/01/2025, 00h15

Hello,
moi je n'utilise pas ces dll , je remets ce que j'ai dit dans la discussion dont il a le lien ici :
Synapse utilise son propre fichier de gestion ssl ssl_openssl_lib.pas et voilà ce qu'on trouve dedans concernant les dlls à scruter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

SSLLibNames: array[0..LibCount-1] of string = ( // OpenSSL v3.0
{$IFDEF WIN64}
'libssl-3-x64.dll',
{$ELSE}
'libssl-3.dll',
{$ENDIF}
// OpenSSL v1.1.x
{$IFDEF WIN64}
'libssl-1_1-x64.dll',
{$ELSE}
'libssl-1_1.dll',
{$ENDIF}
// OpenSSL v1.0.2 distinct names for x64 and x86
{$IFDEF WIN64}
'ssleay32-x64.dll',
{$ELSE}
'ssleay32-x86.dll',
{$ENDIF}
// OpenSSL v1.0.2
'ssleay32.dll',
// OpenSSL (ancient)
'libssl32.dll'
);
CryptoLibNames: array[0..LibCount-1] of string = (
// OpenSSL v3.0
{$IFDEF WIN64}
'libcrypto-3-x64.dll',
{$ELSE}
'libcrypto-3.dll',
{$ENDIF}
// OpenSSL v1.1.x
{$IFDEF WIN64}
'libcrypto-1_1-x64.dll',
{$ELSE}
'libcrypto-1_1.dll',
{$ENDIF}
// OpenSSL v1.0.2 distinct names for x64 and x86
{$IFDEF WIN64}
'libeay32-x64.dll',
{$ELSE}
'libeay32-x86.dll',
{$ENDIF}
// OpenSSL v1.0.2
'libeay32.dll',
// OpenSSL (ancient)
'libeay32.dll'
);
{$ENDIF}

moi je suis en Lazarus 64 bits donc sous windows ce sont les dll win64 qui se trouvent dans le répertoire Windows\system32 qui m'intéressent :
Dans ce répertoire j'avais libssl-1_1-x64.dll et libcrypto-1_1-x64.dll et xmailer fonctionnait avec sur port 587
J'ai téléchargé ici le fichier openssl-3.2.2-win64.zip et extrait les fichiers libssl-3-x64.dll et libcrypto-3-x64.dll que j'ai mis dans windows\system32 et j'ai renommé les anciens fichiers en 1.1 pour être sûr qu'ils ne soient pas utilisés. ça marche toujours pour xmailer.

Ami calmant, J.P

**sematimo** · 11/01/2025, 11h02

Bonjour

J'ai installé libssl-3-x64.dll et libcrypto-3-x64.dll

Maintenant j'ai cette erreur:

ERROR: MailFrom: Permanent Failure-Other or undefined security status

**jurassic pork** · 11/01/2025, 12h12

Hello,
l'adresse mail de l'expéditeur et celle du destinataire sont-elles correctes et aussi le reste du message (sujet, corps)?

Permanent Security Failure Status A “Permanent Failure: Other or undefined security status” error indicates that the email could not be delivered because the recipient’s email system has flagged either the individual sender or the sending mail servers for security concerns or for suspicion of spam-related activity. This is a permanent issue, meaning that the problem is not likely to resolve itself without taking specific actions to address the security concerns.
Here are some steps you can take to resolve this issue:

Check SPF and DKIM Records: Ensure that your SPF (Sender Policy Framework) and DKIM (DomainKeys Identified Mail) records are correctly set up and valid. These records help verify the authenticity of your emails and can prevent them from being flagged as suspicious.
Review Email Content: Examine the content of your emails to ensure they do not contain any elements that might trigger spam filters, such as excessive use of capital letters, too many links, or suspicious keywords.
Improve Sender Reputation: Maintain a good sender reputation by sending emails only to recipients who have opted in and by ensuring your emails are relevant and valuable to the recipients.
Contact the Recipient’s Email Provider: If the issue persists, you might need to contact the email provider of the recipient to understand the specific security policies that are causing the rejection and to request that your domain be whitelisted or approved.
Use a Reputable Email Service Provider: Consider using a reputable email service provider that has established relationships with major email providers and can help improve your email deliverability.

[/COLOR]

Ami calmant, J.P

**sematimo** · 12/01/2025, 19h31

les adresses mail sont correctes et le message aussi (très simple 4 mots)
Une question, en cherchant sur internet, je vois
tantôt
"SMTP.MailFrom(MailFrom, Length(MailData))" ,

tantôt
"SMTP.MailFrom(MailFrom, Length(MaimFrom))"

soit la longueur de from , soit la longueur du message ?

**sematimo** · 19/01/2025, 17h34

Bonjour

je sèche.

Fichiers dans répertoire du projet: libeay32.dll, ssleay32.dll, ssl_openssl.pas, ssl_openssl_lib.pas, ssl_cryptlib.pas

j'ai essayé plusieurs versions de libeay et ssleay en version 32 et 64 bits.

j'ai toujours la connexion établie mais pas d'envoi de mail

**jurassic pork** · 22/01/2025, 07h43

Hello,
peux-tu faire un essai avec le projet en pièce jointe avec Xmailer (inclus).
Le code du programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program demo;
{$mode objfpc}{$H+}
uses
  XMailer, SysUtils;
  var monMessage: String;
begin
  try
    MonMessage := 'ceci est un message';
    SendMail('from="My Name <my.name@fai.fr>" to=your.name@fai.fr ' +
      'subject="Mon sujet" message="' + MonMessage + '" user=my.name@fai.fr ' +
      'password=xxxx host=smtpserver.fr:587 ssl=false tls=true');
    Write('E-mail sent successfully!');
    Readln;
  except
    on E: Exception do
      Write(E.Message);
  end;
end.

il faut remplacer tout ce qui est adresse mail par les tiennes et aussi le mdp et le serveur SMTP. Chez moi cela fonctionne sur un serveur SMTP orange et ce sont les lib libcrypto-3-x64.dll et libssl-3-x64.dll qui sont utilisées. XMailer utilise Synapse.

Ami calmant, J.P

**sematimo** · 22/01/2025, 15h41

Salut jurassic pork

Bon le premier test a été un échec avec ce message:

Nom : Capture d'écran 2025-01-22 102527.png
Affichages : 295
Taille : 44,9 Ko

J'ai donc rechercher une autre version de libcrypto-3-x64.dll et libssl-3-x64.dll.
Les premières que j'ai testées ne marchaient toujours pas.
Finalement avec libcrypto-3-x64.dll version 3.3.0 et libssl-3-x64.dll vesion 3.1.2 ça marche.
Avec la version 3.1.4 de libssl-3-x64.dll ça ne marche pas.

On dire résolut.

Merçi

Problème avec Laz_synape et smtpsend [Lazarus]

Lazarus Pascal

Discussions similaires

Partager

Partager