Comment envoyer un message électronique à l'aide d'Indy composant de serveur smtp?

Depuis la démonstration donnée dans http://www.indyproject.org/Sockets/Demos/index.EN.aspx enregistre uniquement le flux de données reçu à un fichier, je ne sais pas comment effectevely envoyer ce flux de courrier.

Quelqu'un pourrait-il me dire comment faire ou me pointer quelques exemple plus complet?

OriginalL'auteur eKek0 | 2010-03-14

  1. 9

    Un SMTP serveur composant peut pas envoyer de mail - il ne peut le recevoir. Vous avez besoin d'un SMTP client composant (TidSMTP) pour envoyer des messages. Un serveur de courrier électronique lors de l'envoi de mail fonctionne comme un client SMTP.

    De s'étendre, Indy a un TIdSMTPRelay composant est destiné à être utilisé sur le serveur de fin d'avancer reçu des e-mails vers d'autres serveurs.

    OriginalL'auteur

  2. 13

    Voici un exemple complet sur comment envoyer un email:

    VAR SMTP : TIdSMTP;
VAR MSG : TIdMSG;
.
.
  MSG:=TIdMSG.Create(NIL);
  TRY
    WITH MSG.Recipients.Add DO BEGIN
      Name:='<Name of recipient>';
      Address:='<Email address of recipient>'
    END;
    MSG.BccList.Add.Address:='<Email address of Blind Copy recipient>';
    MSG.From.Name:='<Name of sender>';
    MSG.From.Address:='<Email address of sender>';
    MSG.Body.Text:='<Message Body>';
    MSG.Subject:='<Subject of message>';
    SMTP:=TIdSMTP.Create(NIL);
    TRY
      SMTP.Host:='x.x.x.x'; // IP Address of SMTP server
      SMTP.Port:=25; // Port address of SMTP service (usually 25)
      SMTP.Connect;
      TRY
        SMTP.Send(MSG)
      FINALLY
        SMTP.Disconnect
      END
    FINALLY
      SMTP.Free
    END
  FINALLY
    MSG.Free
  END;
.
.

    (Je sais que c'est mal vu, mais je l'utilise généralement dans des cas comme celui-ci où il n'y a aucun doute quant à ce qui se passe, et où il n'y a pas (ou seulement une infime chance d'ambiguïté)

    Wow - ce code cris. Je voudrais convertir la plupart de majuscules ou en minuscules pour le rendre plus convivial pour les yeux de la plupart des développeurs Delphi.

    OriginalL'auteur HeartWare