IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

Envoyer un email avec indy


Sujet :

Delphi

  1. #1
    Membre régulier
    Homme Profil pro
    sans
    Inscrit en
    Mars 2020
    Messages
    182
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : sans

    Informations forums :
    Inscription : Mars 2020
    Messages : 182
    Points : 117
    Points
    117
    Par défaut Envoyer un email avec indy
    Bonjour

    J ai cherché ici et il y a de nombreux posts relatifs à ce sujet mais tous traitent de indy 9 ou de l envoi en utilisant Yahoo ou Gmail.

    Mon pb est beaucoup plus simple et pourtant je ne trouve pas la solution.

    J ai cun compte GMX et voudrais l utiliser pour envoyer des emails via smtp
    les parametres du compte récupéré sur la page de connexion pour apli externe :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Serveur de messagerie entrant (IMAP): imap.gmx.com
    Port (IMAP) : 993
    Le serveur entrant requiert SSL : Oui (cocher la case)
    Serveur de messagerie sortant (SMTP) :mail.gmx.com
    Port (SMTP) : 587
    Le serveur sortant requiert SSL : Non (décocher la case)
    mon code est le suivant :
    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
     try
        IdSMTP.Host := 'mail.gmx.com';
        IdSMTP.Port := 587;
        IdSMTP.Username := 'xxxxxxxxxxxxxxx';
        IdSMTP.Password := 'xxxxxxxxxxx';
     
        IdMessage := TIdMessage.Create(nil);
        try
          IdMessage.From.Name := 'My Name';
          IdMessage.From.Address := 'SenderEmail@gmail.com';
          IdMessage.Subject := 'E-mail subject';
          IdMessage.Body.Add('E-mail body.');
          IdMessage.Recipients.EMailAddresses := 'xxxxxxxxxxx';
          IdMessage.ReceiptRecipient.Name := 'Name';
     
          if not IdSMTP.Connected then
            IdSMTP.Connect;
     
          IdSMTP.Send(IdMessage);
     
        finally
          IdMessage.Free;
          IdSMTP.Disconnect;
        end;
     
      finally
        IdSMTP.Free;
     
      end;
    La connexion ne se fait pas car il est demandé de s identifier...
    Est ce que j aurais du coder autrement pour ne pas avoir à le faire ou que cela soit fait de façon automatique, s'authentifier même si je n utilise que le serveur sortant ?

    Bon vous l aurez compris, je n ai rien compris et j en appelle à votre aide

    merci d avance

  2. #2
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 459
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 459
    Points : 24 873
    Points
    24 873
    Par défaut
    Indy9, surement D7, faut-il encore l'avoir cette version

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    IdSMTP.AuthenticationType := atLogin
    En 10, les premières versions
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    IdSMTP.AuthType := atDefault
    Puis cela s'est stabilisé en 10 pour marquer la différence avec la version 9 probablement en
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    IdSMTP.AuthType := satDefault

    Et dire que maintenant, c'est SSL obligatoire, SASL XOAuth2 requis et tout ce genre de chose pour Office365
    COVID, obligé, ils ont d'ailleurs pour certains repoussé l'abandon de la Basic Auth pour le POP/IMAP ...
    le SMTP semble pas encore touché par la crise sécuritaire.
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  3. #3
    Membre régulier
    Homme Profil pro
    sans
    Inscrit en
    Mars 2020
    Messages
    182
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : sans

    Informations forums :
    Inscription : Mars 2020
    Messages : 182
    Points : 117
    Points
    117
    Par défaut
    Merci
    Effectivement j avais oublié de préciser que j utilisais Indy10.

    Mais à priori, en vérifiant dans thundierbird, j ai vu que le serveur smtp demandait une authentification avec SSL/TLS, 'mot de passe normal'.
    Peux tu m indiquer ce que signifie mot de passe normal stp pke j imaginais que s il y a avait SSL, tout était crypté. Dsl c est un domaine qui m est totalement inconnu.

  4. #4
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 459
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 459
    Points : 24 873
    Points
    24 873
    Par défaut
    en SSL cela donne un truc comme ça mais cela contredit ce qui est écrit au premier message

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
        VSMTP := TIdSMTP.Create(nil);
        try
          VSMTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(VSMTP);
          TIdSSLIOHandlerSocketOpenSSL(VSMTP.IOHandler).SSLOptions.Method := sslvSSLv23;
          TIdSSLIOHandlerSocketOpenSSL(VSMTP.IOHandler).SSLOptions.Mode := sslmUnassigned;
     
          VSMTP.UseTLS := utUseExplicitTLS;
          VSMTP.Port := 587;
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  5. #5
    Membre régulier
    Homme Profil pro
    sans
    Inscrit en
    Mars 2020
    Messages
    182
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : sans

    Informations forums :
    Inscription : Mars 2020
    Messages : 182
    Points : 117
    Points
    117
    Par défaut
    Merci.
    Effectivement cela contredit la doc de GMX ici https://support.gmx.fr/pop-imap/imap...wsmailapp.html

    Par contre une dernière question . Le code ne fonctionne pas car je n ai pas libeay32.dll et ssleay32.dll sur ma machine. Ok je comprends mais pourquoi cela fonctionne t 'il avec thunderbird ?
    Les Dll sont toutes installées au même endroit donc si lors de l installation de thunderbird ces dll ont été installées, mon exe devrait les trouver ?

    Donc j ai téléchargé les dll que j ai récupéré ici https://indy.fulgan.com/SSL/Archive/, les ai mises dans le dir et même erreur, l exe ne trouve pas les dll

    Sinon plus simplement, y aurait il un moyen d envoyer un email en utilisant SSL/TLS sans que l'utilisateur ait à installer ces dll ? Des .pas que je pourrais ajouter à mon projet directement par exemple

  6. #6
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 459
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 459
    Points : 24 873
    Points
    24 873
    Par défaut
    Citation Envoyé par MoiStéphane Voir le message
    Par contre une dernière question . Le code ne fonctionne pas car je n ai pas libeay32.dll et ssleay32.dll sur ma machine. Ok je comprends mais pourquoi cela fonctionne t 'il avec thunderbird ?
    Les Dll sont toutes installées au même endroit donc si lors de l installation de thunderbird ces dll ont été installées, mon exe devrait les trouver ?
    Elles sont fournis avec Delphi, plutôt avec le subversion de DX10, cela fait TRES longtemps que je ne cherche plus à les télécharger depuis le net, déjà parce que l'on ne trouve plus les versions compilées recommandées par Embarcadero, donc je me méfie et en fait, j'en ai 20 versions différentes rien qu'avec tous les outils installés sur mon poste.

    Par exemple pour yahoo faudra potentiellement mettre à jour ssleay32.dll et libeay32.dll, j'ai pris celle de OneDrive qui était les plus récentes que celle avec Delphi.
    je me suis arrêté sur une erreur correcte sur IMAP : "[AUTHENTICATIONFAILED] LOGIN Invalid credentials" bien mieux que le 10054 "Reset by Peer" ou "SSL errer hanshake" lié au problème de version de SSL
    Mais comme, je suis en OAuth2, j'arrive au stade ma classe maison TxxxSASLXOAuth2.TryStartAuthenticate mais n'ayant pas fait la démarche d'enregistrement d'application sur la plateforme Verizon, trop pénible, je le ferais qui si un client le demande.

    Citation Envoyé par MoiStéphane Voir le message
    Donc j ai téléchargé les dll que j ai récupéré ici https://indy.fulgan.com/SSL/Archive/, les ai mises dans le dir et même erreur, l exe ne trouve pas les dll
    Version totalement obsolète je dirais


    Citation Envoyé par MoiStéphane Voir le message
    Sinon plus simplement, y aurait il un moyen d envoyer un email en utilisant SSL/TLS sans que l'utilisateur ait à installer ces dll ? Des .pas que je pourrais ajouter à mon projet directement par exemple
    Personnellement, les DLL je les inclus en ressources de l'exe (zippé) si c'est un programme autonome et cela les déploient automatique (juste dézippe dans le répertoire)
    Si c'est un logiciel plus complet, elles sont ajoutés au packager d'installation comme Wise ou InnoSetup

    A part, Secure Black Box qui était très cher, je n'ai pas regardé d'autres approches pour POP/IMAP/SMTP
    Cependant, pour le HTTPS, durant un moment, j'ai utilisé directement les API Windows pour éviter "SSL error hanshake" que j'avais et que j'avais pas envie de perdre du temps avec ça
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  7. #7
    Expert éminent sénior
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    Novembre 2002
    Messages
    8 964
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2002
    Messages : 8 964
    Points : 28 445
    Points
    28 445
    Par défaut
    j'utilise mon composant SChannel en lieu et place de OpenSSL, ça ne change rien pour le reste.
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  8. #8
    Membre régulier
    Homme Profil pro
    sans
    Inscrit en
    Mars 2020
    Messages
    182
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : sans

    Informations forums :
    Inscription : Mars 2020
    Messages : 182
    Points : 117
    Points
    117
    Par défaut
    merci pour vos réponses.

    @Paul TOTH Merci, c est très exactement ce que je recherchais. En plus ce dépôt est une mine pour moi .

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Envoyer un email avec Outlook
    Par moumicha dans le forum Access
    Réponses: 17
    Dernier message: 19/07/2006, 09h58
  2. Envoyer un Email avec Outlook à partir d'access
    Par pilotcoater dans le forum Access
    Réponses: 1
    Dernier message: 13/03/2006, 20h04
  3. [VBA]envoyer un email avec un fichier joint à partir d'excel
    Par mcay dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 21/12/2005, 10h21
  4. [FPDF] Créer un PDF et l'envoyer par email avec PHPMailer
    Par nico33307 dans le forum Bibliothèques et frameworks
    Réponses: 5
    Dernier message: 12/12/2005, 22h49
  5. Envoyer un mailling avec Indy
    Par bidochon dans le forum Web & réseau
    Réponses: 5
    Dernier message: 03/08/2004, 19h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo