Discussion :

[dehorter olivier]

Bonjour à tous

J’ai un petit problème pour l’envoi de mail via les composants INDY.
J’ai adapté cela à partir de https://mikejustin.wordpress.com/201...-applications/

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
FUNCTION TSSLEmail.SendEmail: Boolean;
VAR
    i: Integer;
 
BEGIN
    Result := True;
    IdMessage := TIdMessage.Create;
    TRY
        InitMailMessage;
 
        SMTP := TIdSMTP.Create;
        TRY
            IF edSSLConnection THEN
            BEGIN
                AddSSLHandler;
 
                CASE edSMTPPort OF
                    SMTP_PORT_EXPLICIT_TLS:
                        SMTP.UseTLS := utUseExplicitTLS;
                    SMTP_PORT_STANDARD:
                        SMTP.UseTLS := utNoTLSSupport;
                ELSE
                    SMTP.UseTLS := utUseImplicitTLS;
                END;
 
            END;
 
            IF (edUserName <> '') AND (edPassword <> '') THEN
            BEGIN
                SMTP.AuthType := satSASL;
                InitSASL;
            END
            ELSE
            BEGIN
                SMTP.AuthType := satNone;
                SMTP.AuthType := satDefault;
            END;
 
            SMTP.Host := edSMTPServer;
            SMTP.Port := edSMTPPort;
            SMTP.ConnectTimeout := 30000;
            SMTP.UseEHLO := True;
 
            IF (FedAttache <> NIL) AND (FedAttache.Count > 0) THEN
            BEGIN // il y a des fichier attache
                TRY
                    IdMessage.ContentType := 'multipart/mixed';
                    FOR i := 0 TO FedAttache.Count - 1 DO
                    BEGIN
                        IF (Trim(FedAttache.Strings[i]) <> '') AND (FileExists(Trim(FedAttache.Strings[i]))) THEN
                        BEGIN
                            TIdAttachmentFile.Create(IdMessage.MessageParts, Trim(FedAttache.Strings[i]));
                            // Attache le fichier
                        END; // Fin de IF
                    END;
                EXCEPT
                    Result := False;
                    RAISE;
                END; // fin de TRY / FINALLY
            END
            ELSE
            BEGIN // il n'ya pas de fichier attache
            END; // Fin de IF
 
            TRY
                TRY
                    SMTP.Connect;
                    TRY
                        SMTP.Send(IdMessage);
                    EXCEPT
                        ON E: Exception DO
                        BEGIN
                            Result := False;
                            RAISE;
                        END;
                    END; // Fin de EXCEPT
                EXCEPT
                    on E: Exception do
                    Begin
                        Result := False;
                        RAISE;
                    End;
                END; // Fin de EXCEPT
            FINALLY
                IF SMTP.Connected THEN
                   SMTP.Disconnect;
            END;
        FINALLY
            SMTP.Free;
        END;
    FINALLY
        IdMessage.Free;
    END;
END;

Le paramétrage du mail est ainsi :
Login : xxxxx@hotmail.fr
Mot de passe : correct
Smtp : smtp.live.com
Port : 587

De ma machine de développement, pas de problème, cela fonctionne
Mais, si je le fais d’une machine « client », là plus rien ne va . Ça m’indique : "SSL n'est pas disponible sur ce serveur". J’ai trouvé qu’il fallait ajouter des DLLs dans le répertoire de l’application (libeay32.dll et ssleay32.dll). Mais ces fichiers, je ne les ai pas trouvés pas dans ma machine de développement.
Où sont-ils ?

Donc, j’ai ajouté ces fichiers sur la machine client. La situation est alors différente. Ça plante mais le message d’erreur est "La connexion s'est fermée proprement", ce qui est bizarre comme message d’erreur ???? Néanmoins, le courriel, lui, n’est jamais reçu….
Que ce passe-t-il ? et surtout comment le corriger ?

Merci d’avance

[Paul TOTH]

si j'en crois le message ""SSL n'est pas disponible sur ce serveur", ton client tente d'établir une session SSL (par un "STARTTLS" j'imagine) alors que ce n'est pas disponible sur le serveur.

[dehorter olivier]

Merci pour cette réponse

Qu'est ce tu entends par le serveur dans ce contexte?

Le client étant la machine de laquelle le courriel est envoyé, juste?

Sur la machine "client" de développement : ca marche
sur une machine "client" de "production" : le courriel n'arrive pas au destinataire
* sans les 2 fichiers DLL : "SSL n'est pas disponible sur ce serveur"
* En plaçant ces fichiers dans le répertoire de l'application : "La connexion s'est fermée proprement". Je suis content que la connexion se soit fermée, mais comment recevoir le courriel

a+
olivier

[Paul TOTH]

le serveur c'est smtp.live.com

je suppose que le composant prend des décisions tout seul, s'il ne trouve pas les DLL SLL il ne réagit pas comme lorsqu'elles sont là, après j'ignore ce qu'il faut et ce qui cause l'erreur...

[SergioMaster]

Bonjour,

à moins que ce soit le port le fautif ?

lorsque je fait une recherche rapide je vois bien le 587 (TLS) mais aussi le 465 (SSL) , AMHA si tu veux utiliser SSL et ne pas avoir

"SSL n'est pas disponible sur ce serveur"

c'est le port 465 qui doit être utilisé
à tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  IF edSSLConnection THEN
            BEGIN
                AddSSLHandler;
                SMTP.Port := 587; 
                CASE edSMTPPort OF
                    SMTP_PORT_EXPLICIT_TLS:
                        SMTP.UseTLS := utUseExplicitTLS;
                    SMTP_PORT_STANDARD:
                        SMTP.UseTLS := utNoTLSSupport;
                ELSE BEGIN
                    SMTP.UseTLS := utUseImplicitTLS;
                    SMTP.port:=465; 
                END;

[dehorter olivier]

Merci Sergio pour le test à réaliser

Pour l'instant je suis en mission à l'extérieur. Aussi je lancerais ce test à partir de lundi, et je vous tiendrais au courant de l'évolution du problème.

A+

olivier