1. #1
    Membre à l'essai
    Inscrit en
    juillet 2006
    Messages
    16
    Détails du profil
    Informations forums :
    Inscription : juillet 2006
    Messages : 16
    Points : 10
    Points
    10

    Par défaut Envoi email avec IdSMTP1

    Salut à tous, j'ai pris une semaine voir plus pour faire un petit programme qui permet de faire un envoi email. j'ai vu des exemples, j'ai suivi les débat dans les forum mais j'arrive pas à résoudre mon problème, voila un bout de code standard que j'ai trouvé et j'ai testé on variant les paramètres, mon meilleur message d'erreur c'est ('la connexion c'est terminée proprement') !!!
    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
     
    begin
    IdMessage1.Clear; //liberez le corps du message
    IdMessage1.From.Text :=Edit4.Text; //Adresse email de l'expéditeur
    IdMessage1.ReplyTo.EMailAddresses:=Edit4.Text; //Adresse email pour la réponse
    IdMessage1.Recipients.EMailAddresses:=Edit1.Text; //Adresse email du destinataire
    IdMessage1.Date:=Date; //Date de l'envoi du message
    IdMessage1.Subject:=Edit3.Text; //Sujet du message
    IdMessage1.Priority:=mpNormal; //Priorité du message
    IdMessage1.Body.Assign(Memo1.Lines); //text du message
    if not (Edit2.Text='') then TIdAttachment.Create(IdMessage1.MessageParts,Edit2.Text); //attacher la pieces jointe
    IdSMTP1.AuthenticationType:=atLogin; //Type d'authentification
    IdSMTP1.Host:=Edit5.Text;//Hôte (par exemple pour smtp.mail.yahoo.fr pour yahoo)
    IdSMTP1.Port:=StrToInt(Edit6.Text); //Port (par exemple 587 pour gmail , 25 pour yahoo, 25 pour free)
     
    IdSMTP1.UserName:=Edit7.Text; //Nom d'utilisateur
    IdSMTP1.Password:=Edit8.Text; //Mot de passe
    Screen.Cursor:=crHourGlass; //Curseur sablier
    IdSMTP1.Connect; //Connexion au serveur
    try
    IdSMTP1.Send(IdMessage1); //Envoi du message
    finally
    IdSMTP1.Disconnect; //Déconnexion de serveur
    end;
    Screen.Cursor:=crDefault; //Curseur par défaut
    Showmessage('Message envoyés avec succès');
    end;
    je suis toujours fidèle à delphi 7....Aidez moi SVP.

  2. #2
    Membre chevronné
    Homme Profil pro
    Développeur informatique
    Inscrit en
    novembre 2007
    Messages
    2 432
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : novembre 2007
    Messages : 2 432
    Points : 2 226
    Points
    2 226

    Par défaut

    L'email est arrivé à bon port ?

    Pour le problème il faut "catcher" le type d'exception correspondant sans rien faire d'autre

    http://www.swissdelphicenter.ch/en/showarticle.php?id=1

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
     
    procedure TForm1.IdCmdTCPServer1Execute(AContext: TIdContext);
    begin
      try
        // Your server-client thread stuff go here...
      except
        on E: EIdConnClosedGracefully do begin
          // Do your own handling of the gracefully disconnect exception here...
        end;
        on E: Exception do raise;
      end;
    end;

    http://www.indyproject.org/KB/index....ngeidconnc.htm

  3. #3
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    8 331
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 8 331
    Points : 19 258
    Points
    19 258
    Billets dans le blog
    4

    Par défaut

    Bonjour,

    A mon avis un des hics vient de l'authentification, la plupart des messageries utilisent SSL maintenant D'où la nécessité d'un SSLIOHandler, l'installation des bibliothèques SSL etc...
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein
    J'entends et j'oublie. Je vois et je me souviens. Je fais et je comprends . Confucius
    Si votre seul outil est un marteau, vous aurez tendance a ne voir que des clous

  4. #4
    Membre à l'essai
    Inscrit en
    juillet 2006
    Messages
    16
    Détails du profil
    Informations forums :
    Inscription : juillet 2006
    Messages : 16
    Points : 10
    Points
    10

    Par défaut

    Citation Envoyé par SergioMaster Voir le message
    Bonjour,

    A mon avis un des hics vient de l'authentification, la plupart des messageries utilisent SSL maintenant D'où la nécessité d'un SSLIOHandler, l'installation des bibliothèques SSL etc...
    Es ce que vous parlé de ça libeay32.dll ssleay32.dll ?

  5. #5
    Membre à l'essai
    Inscrit en
    juillet 2006
    Messages
    16
    Détails du profil
    Informations forums :
    Inscription : juillet 2006
    Messages : 16
    Points : 10
    Points
    10

    Par défaut

    J'ai essayé d'envoyer avec mon compte mail dans mon site web j'ai eu un autre message Nom : erreur mail.png
Affichages : 27
Taille : 49,6 Ko

  6. #6
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    8 331
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 8 331
    Points : 19 258
    Points
    19 258
    Billets dans le blog
    4

    Par défaut

    Citation Envoyé par fersouce Voir le message
    Es ce que vous parlé de ça libeay32.dll ssleay32.dll ?
    Oui, entre autres choses
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein
    J'entends et j'oublie. Je vois et je me souviens. Je fais et je comprends . Confucius
    Si votre seul outil est un marteau, vous aurez tendance a ne voir que des clous

Discussions similaires

  1. Envoi email avec liste de choix multiple
    Par Renardo dans le forum VBA Access
    Réponses: 8
    Dernier message: 09/08/2008, 18h36
  2. [Spring Mail] aide sur envoi email avec spring
    Par Jacobian dans le forum Spring
    Réponses: 1
    Dernier message: 30/05/2008, 13h18
  3. Envoi Email avec serveur Exchange
    Par NoBru dans le forum ASP.NET
    Réponses: 15
    Dernier message: 21/05/2008, 09h04
  4. Envoi email avec Outlook
    Par User dans le forum Access
    Réponses: 9
    Dernier message: 23/07/2006, 18h04
  5. [Mail] Envoi email avec php
    Par laymounos dans le forum Fonctions
    Réponses: 8
    Dernier message: 01/06/2006, 14h31

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