如何使用Indy的SMTP服务器组件发送邮件消息？

Question

由于 http://www.indyproject.org/Sockets给出的演示/Demos/index.EN.aspx 只保存接收到的流文件，我不知道该怎么effectevely发送流作为邮件。

谁能教我如何做到这一点，或指向我一些更完整的例子吗？

Answer 1

一个SMTP 服务器组件不能发送邮件 - 它只能接收它。你需要一个SMTP的客户的成分（TidSMTP）来发送邮件。邮件服务器时，它发送邮件的作用就像一个SMTP客户端。

Answer 2

下面是关于如何发送电子邮件的完整例子：

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;
.
.

（我知道，与是令人难以接受的，但我一般用它在这样那里是毫无疑问的情况下，这是怎么回事，和那里没有（或只是一个极小的）模糊性的机会）