Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 4 sur 4
  1. #1

    Inscrit en
    mai 2006
    Messages
    44
    Détails du profil
    Informations forums :
    Inscription : mai 2006
    Messages : 44
    Points : -3
    Points
    -3

    Par défaut Problème de IdSMTP Indy et Delphi 6

    Bonjour à tous,

    J'ai une ppli pour envoyer des mails en utilisant IdSMTP, l'appli ne fonctionne pas en utilisant un compte gmail (smtp.gmail.com et port 25/587) avec neuf box (j'y ai désactivé le filtrage)

    Pourriez vous m'indiquer un compo free SVP

    j'envoie aussi des pièces jointes avec les mails

    Merci

  2. #2
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mars 2005
    Messages
    5 192
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : mars 2005
    Messages : 5 192
    Points : 7 620
    Points
    7 620

    Par défaut

    Pour Gmail il te faut utiliser le SSL sinon tu ne pourras pas t'y connecter.

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
     
      IDSMTP:= TIDSMTP.Create(nil);
      FIDSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
      FIDSSL.SSLOptions.Method := sslvSSLv23;
      IDSMTP.IOHandler := FIDSSL;
     
      IDSMTP.Host := AHost;
      // a tester cete config
      IDSMTP.Port := 993;
      IDSMTP.UseTLS := utUseImplicitTLS;
     
      // ou Port 25 et UseTLS := utUseExplicitTLS
     
      IDSMTP.Username := AUser;
      IDSMTP.Password := APassWord;
     
      IDSMTP.Connect;
     
      // Le mail a envoyé
     
      FIDSSL.Free;
      IDSMTP.Free;
    Après il te faut deux DLLs dans le répertoire de l'application ou dans le répertoire system de windows.
    Tu les trouveras ici (pour D6 je crois qu'il faut les 0.98)
    Modérateur Delphi Combattez la brute
    Aucune réponse aux sollicitations techniques par MP

    Le guide du bon forumeur :
    __________
    [Projet en cours] Des unités pour faciliter l'utilisation d'indy : EasyIndy 1.3

  3. #3
    Expert Confirmé Sénior Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    juillet 2006
    Messages
    10 012
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juillet 2006
    Messages : 10 012
    Points : 12 800
    Points
    12 800

    Par défaut

    Même réponse que dans Comment utiliser IdSMTP pour envoyer un message

    As-tu fourni le login\pw ?

    Code :
    1
    2
    IdSMTP1.Username = ...;
    IdSMTP1.Password = ...;
    Pour GMAIL c'est obligatoire, contrairement au SMTP de Neuf qui utilise probablement tes identifiants de connexion Internet pour confirmer ton identité !
    C'est une différence classique entre un SMTP fourni par le FAI et un SMTP externe

    satDefault est la valeur par défaut depuis Indy 10 mais ce n'est pas le cas en Indy 9 en atNone par défaut, faut forcer atLogin
    Code :
    IdSMTP1.AuthType := satDefault; // Indy 10
    Code :
    IdSMTP1.AuthType := atLogin; // Indy 9 de D6
    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

    Halte à la ségrégation des Cinémas, VO sur Paris, VF en Banlieue, Abonnement résilié !

  4. #4

    Inscrit en
    mai 2006
    Messages
    44
    Détails du profil
    Informations forums :
    Inscription : mai 2006
    Messages : 44
    Points : -3
    Points
    -3

    Par défaut Merci

    Bonjour,

    J'ai placé les fichiers DLL (libeay32.dll et ssleay32.dll) dans le dossier du projet;

    Le TIdSSLIOHandlerSocketOpenSSL n'est identifié ?

    J'ai trouvé un code ou on utilise TIdSSLIOHandlerSocketOpenSSL, pref ça fonctionne pas

    uses
    IdMessage, IdSMTP, IdSSLOpenSSL, IdGlobal, IdExplicitTLSClientServerBase;

    procedure SendEmail(const Recipients: string; const Subject: string; const Body: string);
    var
    SMTP: TIdSMTP;
    Email: TIdMessage;
    SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
    begin
    SMTP := TIdSMTP.Create(nil);
    Email := TIdMessage.Create(nil);
    SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

    try
    SSLHandler.MaxLineAction := maException;
    SSLHandler.SSLOptions.Method := sslvTLSv1;
    SSLHandler.SSLOptions.Mode := sslmUnassigned;
    SSLHandler.SSLOptions.VerifyMode := [];
    SSLHandler.SSLOptions.VerifyDepth := 0;

    SMTP.IOHandler := SSLHandler;
    SMTP.Host := 'smtp.gmail.com';
    SMTP.Port := 587;
    SMTP.Username := 'yourusername@gmail.com';
    SMTP.Password := 'yourpassword';
    SMTP.UseTLS := utUseExplicitTLS;

    Email.From.Address := 'yourusername@gmail.com';
    Email.Recipients.EmailAddresses := Recipients;
    Email.Subject := Subject;
    Email.Body.Text := Body;

    SMTP.Connect;
    SMTP.Send(Email);
    SMTP.Disconnect;

    finally
    SMTP.Free;
    Email.Free;
    SSLHandler.Free;
    end;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    SendEmail('recipient@whatever.com', 'Subject', 'Body');
    end;

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •