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