使用 Delphi 创建我们自己的邮件服务器

【问题标题】：Creating our own mail server using Delphi使用 Delphi 创建我们自己的邮件服务器
【发布时间】：2011-12-13 06:25:20
【问题描述】：

我在 Delphi 中看到了许多创建电子邮件发送应用程序的示例，其中我们必须使用 Tidsmtp 和 tidmessage 提供一个邮件服务器来发送，它可以与任何邮件服务器完美配合，只需稍作修改。

创建我们自己的 TIdsmtpserver 怎么样。我只想发送电子邮件，我不在乎接收电子邮件。 indy 10.5.8 (XE2) 中是否有任何示例可以在没有服务提供商帮助的情况下创建我们自己的 smtpserver。

【问题讨论】：

【解决方案1】：

在 Indy 的 Fulgan 镜子上的 demo zip file 中有一个 TIdSMTPServer 演示。

【讨论】：

谢谢，但是如何设置电子邮件ID、用户名和密码
当客户端登录到TIdSMTPServer 时，会触发OnUserLogin 事件，因此您可以验证凭据。如果接受，则相应地填写TIdSMTPServerContext 的LoggedIn 和Username 属性。收到电子邮件时会触发OnMsgReceive 事件。您可以将提供的TStream 加载到TIdMessage 中（由于限制，您必须使用TIdMessageClient 和TIdIOHandlerStreamMsg 而不是使用TIdMessage.LoadFromStream()，其中TIdIOHandlerStreamMsg.EscapeLines 设置为True），然后您可以操作TIdMessage 根据需要。