Résultats de 1 à 4 sur 4

Sujet : Envoi d'e-mail (help please !)

  1. #1
    Visiteur MP
    Visiteur MP

    Envoi d'e-mail (help please !)

    Bonjour amis développeurs !!

    Je dois créer une application pour envoyer des e-mails.
    Si quelqu\'un pouvait m\'aider dans la méthode... :?:

    Je vous remercie d\'avance. :

    Joss, qui a besoin qu\'on l\'aide.

  2. #2
    Membre MP
    Inscrit
    août 2013
    Messages
    1 012
    Voici un lien vers l\'explication du protocole d\'envoi de Mail qui explique comment faire:

    RFC 2821

    lis un peu cela et tu trouvera ce qu\'il te faut, malheureusement je ne sais pas t\'aider pour le code en delphi, mais avec ce lien tu pourras au moins comprendre le fonctionnement de l\'envoi des mails

    ciao...
    Grégory S.

    eVias Web & Software Solutions.

    Développement Web et logiciel en tout genre et Open Source.

    FOSDEM 2008. Venez -y nombreux !

  3. #3
    Membre MP
    Inscrit
    août 2013
    Messages
    18
    composant SMTP de Fastnet
    et après c\'est facile mais c\'est de la bidouille en se connectant sur un compte existant...

    Peu pas te dire mieux,c\'est la seule chose que j\'ai fait.
    Brice

  4. #4
    Membre MP
    Inscrit
    août 2013
    Messages
    6 517
    Salut, il existe aussi le composant TIdSMTP de la suite de composants Indy (version 9 et 10).

    [code=Delphi]procedure Mail;
    var
    IdMessage : TIdMessage;
    IdSMTP : TIdSMTP;
    i : Integer;
    slCorpsHTML : TStringList;
    begin
    IdMessage := TIdMessage.Create( Self );
    IdMessage.From.Address := \'toto@hotmail.fr\';
    IdMessage.Subject := \'Test\';

    IdMessage.ContentType := \'multipart/alternative\';

    with TIdText.Create( IdMessage.MessageParts, CorpsMail ) do
    ContentType := \'text/plain\';

    // Texte au format HTML
    slCorpsHTML := ClassConvertirTxtToHTML( FCorpsMail );
    with TIdText.Create( IdMessage.MessageParts, slCorpsHTML ) do
    ContentType := \'text/html\';

    slCorpsHTML.Free;

    // Pièce jointe
    TIdAttachment.Create( IdMessage.MessageParts, GetFichierDestination( eFichier ) );

    //On passe ensuite à l’envoi du message:
    IdSMTP := TIdSMTP.Create( Application ); // Création dynamique du composant

    IdSMTP.Port := 25;
    IdSMTP.Host := \'smtp.wanadoo.fr\'; //Le serveur auquel se connecter

    try
    try
    // Connexion
    IdSMTP.Connect;
    for i := 0 to FDestinataireList.Count - 1 do
    begin
    IdMessage.Recipients.Clear;
    IdMessage.Recipients.Add.Address := FmrDestinataireList[ i ].Mail;

    // Envoi
    IdSMTP.Send( IdMessage );
    end;
    except on E : Exception do
    MessageDlg( E.Message, mtInformation, [mbOk], 0 );
    end;

    finally
    // Libération des objets
    IdSMTP.Disconnect;
    IdSMTP.Free;
    IdMessage.Free;
    end;
    end;[/code]
    Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
    N'oubliez pas le Tag [Résolu]http://www.ressources.moteurprog.com...rum/Resolu.gif.

    Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

Informations du sujet

Utilisateur(s) parcourant ce sujet

il y a actuellement 1 utilisateur(s) parcourant ce sujet. (0 membre(s) et 1 visiteur(s))

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas éditer vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé