Envoi mail DELPHI/INDY à partir d'une adresse Yahoo.com

Version imprimable

26/02/2021, 14h13
Ero5362

1 pièce(s) jointe(s)

Envoi mail DELPHI/INDY à partir d'une adresse Yahoo.com

Bonjour,

Cela fait deux jours que je fouille partout et que je teste des solutions mais rien n'y fait.

J'ai une application DELPHI/INDY 10 qui veut envoyer un mail à partir d'une adresse mail yahoo.com. En PJ le paramétrage en cours, le dernier que j'ai trouvé et duquel j'espérais beaucoup.
Lors de l'envoi, mon application indique que la connexion est bien établie mais que l'envoi du mail a échoué (ce message est géré par moi-même : le .Connect se fait mais pas le .Send).

Quelqu'un aurait-il une idée du pourquoi ?

D'avance un grand merci à vous.
Cordialement.

Éric
26/02/2021, 14h31
SergioMaster

problème de port ?

Citation:

YAHOO SMTP SETTINGS

Server Address: smtp.mail.yahoo.com.
Username: Your Yahoo Address (e.g. example@yahoo.com)
Password: Your Yahoo Password.
Port Number: 465 (With SSL)
Alternative Port Number: 587 (With TLS)
Authentication: Required.
Sending Limits: 500 Emails a day or Emails to 100 connections a day.

il faudrait essayer sans TLS histoire de vérifier
26/02/2021, 14h38
Ero5362

Test avec SSL

J'essaie immédiatement sur le port 465 et je vous redis. J'avais zappé ce port au vu de ce que j'avais pu lire.

Merci.
26/02/2021, 14h40
SergioMaster

à moins que ce soit Yahoo qui comme gmail soit pointilleux

Citation:

Si vous obtenez une erreur d'authentification, vous devez activer Autoriser les applications moins sécurisées dans votre compte Yahoo. Ou vous pouvez générer des mots de passe d'application et utiliser ce mot de passe d'application au lieu de votre mot de passe utilisateur.
26/02/2021, 14h44
ShaiLeTroll

Yahoo Verizon est extrêmement tatillon pour le scope IMAP et l'obtention des clés d'application OAuth2, en fait Yahoo est pire que Verizon
Pour le SMTP, je n'ai pas eu l'occasion de m'en occuper mais je n'ai pas eu l'impression que le mot d'application concernait ce protocole.

Sinon, on trouve plus souvent le 465 SSL
26/02/2021, 15h11
Ero5362

Sécurité réduite

Citation:

Envoyé par SergioMaster

à moins que ce soit Yahoo qui comme gmail soit pointilleux

Mes paramètres de sécurité sont au minimum. Avec GMAIL ca a très bien fonctionné, mais ce Yahoo, quel taquin :D
26/02/2021, 15h33
Ero5362

Essais sur le port 465

J'ai essayé les 125 combinaisons possibles sur le port 465 (j'ai une appli pour ça), aucun résultat positif.
En désespoir de cause je vais, sans aucun espoir, tester sur le port 25.
26/02/2021, 16h50
anapurna

salut

sur le site de yahoo

Citation:

Serveur : smtp.mail.yahoo.com
Port : 465 ou 587
SSL requis : Oui
TLS requis : oui (le cas échéant)
Authentification requise : Oui
Votre nom d’utilisateur

Adresse mail : votre adresse mail complète (nom@domaine.com).
Mot de passe : le mot de passe de votre compte.
Authentification requise : Oui

tu as la dll ssl qui vas bien ?
26/02/2021, 17h06
Ero5362

Essais sur le port 25

J'ai aussi essayé les 125 combinaisons possibles sur le port 25, pareil.

j'ai les fichiers libeay32.dll et ssleay32.ddl qui vont bien (fonctionne avec Orange, Gmail et SFR, les autres pas testés).

Je suis vraiment sec. Ce dont je suis sûr c'est le port 587 associé à smtp.mail.yahoo.com.

Je ne sais plus où chercher.
26/02/2021, 17h09
Ero5362

Et le serveur imap ?

Pensez-vous que tenter avec le serveur imap.mail.yahoo.com sur le port 993 pourrait changer la donne ?
26/02/2021, 18h03
Ero5362

Snif !

Citation:

Envoyé par Ero5362

Pensez-vous que tenter avec le serveur imap.mail.yahoo.com sur le port 993 pourrait changer la donne ?

Ne cherchez-pas, ça ne donne rien non plus.

Il y a vraiment quelque chose qui m'échappe, mais quoi ? Je ne sais le dire, pourtant je ne dois pas être le seul confronté à ce problème... qui me fait perdre mon temps :evilred:
26/02/2021, 18h19
free07

Bonjour,

Quel est le message d'erreur lors du send ? est ce que cela concerne une des DLLs comme ssleay32 ?

Sur des versions de Windows, il se peut que celles-ci ne conviennent pas car elles contiennent des références à d'autres DLLs, dans ce cas il faut essayer les DLLs sans dépendances :

https://www.atozed.com/forums/thread-162.html
26/02/2021, 18h35
anapurna

salut

tu développe en 32 bit bien évidement ?
27/02/2021, 16h35
Ero5362

32bits

Citation:

Envoyé par anapurna

salut

tu développe en 32 bit bien évidement ?

Tout à fait.
27/02/2021, 16h42
Ero5362

Erreur du send

Citation:

Envoyé par free07

Bonjour,

Quel est le message d'erreur lors du send ? est ce que cela concerne une des DLLs comme ssleay32 ?

Sur des versions de Windows, il se peut que celles-ci ne conviennent pas car elles contiennent des références à d'autres DLLs, dans ce cas il faut essayer les DLLs sans dépendances :

https://www.atozed.com/forums/thread-162.html

Il faudrait que je récupère le message original généré car je l'ai surchargé dans mon application.
Vu que cela fonctionne pour Orange, SFR et Gmail je pense que les deux dlls sont bien interprétées.

salut

je fait un truc comme cela pour du ssl avec
indy

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
41
42
43
44
45
46
47
48
49
50
 
smtpHost := C_HOSTSMTP;
  smtpPort := 587 ;
  tls       := utUseExplicitTLS;
  smtpUser  := 'monadresse@mondomaine.fr';
  smtpPass  := 'monpass';
 
  IdSMTP1.AuthType  := satDefault;
  IdSMTP1.Host:=smtpHost;
  IdSMTP1.Port:=smtpPort;
  IdSMTP1.Username:=smtpUser;
  IdSMTP1.Password:=smtpPass;
 
  if not (tls=utNoTLSSupport) then
  begin
    ssl.Destination:=smtpHost + ':' + IntToStr(smtpPort);
    ssl.Host:=smtpHost;
    ssl.Port:=smtpPort;
    ssl.SSLOptions.Method:=sslvTLSv1;
    ssl.SSLOptions.Mode := sslmUnassigned;
    ssl.SSLOptions.VerifyMode :=  [];
    ssl.SSLOptions.VerifyDepth := 0;
    IdSMTP1.IOHandler:=ssl;
    IdSMTP1.UseTLS:=tls;
  end;
 
 
 
   with Idmessage1 do
    begin
      From.Address := smtpUser;
      From.Name := 'de chez moi';
      Recipients.EMailAddresses := 'destinataire@sondomaine.fr';
      if  trim(CCopy) <> '' Then
        CCList.EMailAddresses := CCopy
    end;
 
    if BPriority Then
      Idmessage1.Priority := mpHighest
    else
      Idmessage1.Priority := mpNormal;
 
    Idmessage1.Subject := 'Mon sujet'
 
    corps := TStringList.Create;
 
    corps.Add(#13+#10+'  ');
    corps.Add(#13+#10+'  ');
    corps.Add('-----------------------------------------------------------------');
    IdMessage1.Body.Text := corps.Text;

Citation:

Envoyé par anapurna

salut

je fait un truc comme cela pour du ssl avec
indy

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
41
42
43
44
45
46
47
48
49
50
 
smtpHost := C_HOSTSMTP;
  smtpPort := 587 ;
  tls       := utUseExplicitTLS;
  smtpUser  := 'monadresse@mondomaine.fr';
  smtpPass  := 'monpass';
 
  IdSMTP1.AuthType  := satDefault;
  IdSMTP1.Host:=smtpHost;
  IdSMTP1.Port:=smtpPort;
  IdSMTP1.Username:=smtpUser;
  IdSMTP1.Password:=smtpPass;
 
  if not (tls=utNoTLSSupport) then
  begin
    ssl.Destination:=smtpHost + ':' + IntToStr(smtpPort);
    ssl.Host:=smtpHost;
    ssl.Port:=smtpPort;
    ssl.SSLOptions.Method:=sslvTLSv1;
    ssl.SSLOptions.Mode := sslmUnassigned;
    ssl.SSLOptions.VerifyMode :=  [];
    ssl.SSLOptions.VerifyDepth := 0;
    IdSMTP1.IOHandler:=ssl;
    IdSMTP1.UseTLS:=tls;
  end;
 
 
 
   with Idmessage1 do
    begin
      From.Address := smtpUser;
      From.Name := 'de chez moi';
      Recipients.EMailAddresses := 'destinataire@sondomaine.fr';
      if  trim(CCopy) <> '' Then
        CCList.EMailAddresses := CCopy
    end;
 
    if BPriority Then
      Idmessage1.Priority := mpHighest
    else
      Idmessage1.Priority := mpNormal;
 
    Idmessage1.Subject := 'Mon sujet'
 
    corps := TStringList.Create;
 
    corps.Add(#13+#10+'  ');
    corps.Add(#13+#10+'  ');
    corps.Add('-----------------------------------------------------------------');
    IdMessage1.Body.Text := corps.Text;

Merci beaucoup. Je vais tester ça rapidement avec mes identifiants yahoo.com

28/02/2021, 10h02
Ero5362

1 pièce(s) jointe(s)

Message d'erreur lors du send

Bonjour à tous,

Après avoir comparé le code de Anapurna avec le mien je n'ai trouvé aucune différence. J'ai donc isolé l'exception déclenchée. Si quelqu'un a une idée je prends !

D'avance merci.
28/02/2021, 10h14
Ero5362

YES !!!

Pour ceux que cela intéresse voilà la solution :

https://support.cdesoftware.com/kb/a...nd-email_.aspx

Yahoo n'autorise pas l'envoi de mails via une application tierce à moins de définir un mot de passe spécifique à utiliser en lieu et place de son mot de passe messagerie.

Merci à tous.
28/02/2021, 10h59
SergioMaster

C'est bien ce que j'avais indiqué comme deuxième lien Post #4

Citation:

Ou vous pouvez générer des mots de passe d'application et utiliser ce mot de passe d'application au lieu de votre mot de passe utilisateur.

Je ne me souvenais plus que j'avais aussi un compte Yahoo :roll:

Citation:

Envoyé par Yahoo

Certaines applications de messagerie tierces plus anciennes (qui n'utilisent pas notre page de connexion de marque Yahoo) vous demandent de saisir un mot de passe unique pour les informations de connexion. Pour accéder à votre compte Yahoo Mail sur ces applications, vous devrez générer et utiliser un mot de passe d'application. Un mot de passe d'application est un long code généré aléatoirement qui donne à une application non Yahoo l'autorisation d'accéder à votre compte Yahoo. Vous n'aurez besoin de fournir ce code qu'une seule fois pour vous connecter à votre application de messagerie tierce.

Générer un mot de passe d'application

Connectez-vous et accédez à la page de sécurité de votre compte.
Cliquez sur Générer un mot de passe d'application ou Gérer les mots de passe d'application.
Sélectionnez votre application dans le menu déroulant et cliquez sur Générer.
Suivez les instructions sous le mot de passe.
Cliquez sur Terminé.
Utilisez ce mot de passe d'application et votre adresse e-mail pour vous connecter à votre application de messagerie.