Delphi下发送Email的方法

Delphi下发送Email的方法

作者:Conquer  QQ:9747562

 

网上有许多在DELPHI下实现发送EMAIL的文章，但都写得太烦琐且不直观。

跟着下面的步骤，你会发现发送EMAIL原来如此简单。  

首先，打开DELPHI，程序会自动建立一个工程。

点击  “查看”-- “组件列表”，分别输入“TIDSMTP”和“TIDMESSAGE”，把这两个组件添加到窗体，放在你喜欢的地方。
（英文版DELPHI,则点 "View" -- "Component List"）

然后在窗体上添加两个 BUTTO（按扭），分别命名为“连接服务器”和“发送EMAIL”。

双击“连接服务器”按扭，进入代码编辑拦，在begin语句下输入以下代码：

IdSMTP1.Username :='metals';       //服务器上的用户名
IdSMTP1.Password :='0236521';    //服务器上的密码
IdSMTP1.Host :='mx.eYou.com';      //服务器SMTP地址
IdSMTP1.Port :=25;                             //服务器端口
IdSMTP1.Connect;                              //建立连接

注意：以上是eyou.com（免费）邮箱的设置，你也可以去申请一个。然后把 IdSMTP1.Username 和 IdSMTP1.Password 属性改成你的用户名和密码就行了，其他属性不用修改。
如果要使用其他的邮箱，可以到该邮箱的网站上查找相关资料。例如新浪的SMTP地址是：smtp.sina.com.cn。
端口通常设置为 25 。

接下来双击“发送EMAIL”的按扭，在begin语句下输入以下代码：

IdMessage1.Body.Add( ' 邮件正文 ' );    //邮件正文件内容
IdMessage1.From.address :='[e-mail]';    //发件人地址
IdMessage1.Recipients.EMailAddresses :='[e-mail]';    //收件人地址，这里改为你的EMAIL地址
IdMessage1.Subject:='标题' ;       //邮件标题
IdMessage1.Priority := mphigh;  //优先级，mphigh为最高级。
IdSMTP1.Send(IdMessage1);     //发送邮件
end; 

OK，到这里就全部完成了，调试通过后先点击“连接服务器”等几秒（因为这需要时间），然后点击“发送EMAIL”按扭，好了，打开你的邮箱看一下，是不是已经收到EMAIL了呢？很简单吧。
如果有什么问题可以加我QQ：9747562

PS：这是我写的第一篇关于DELPHI的文章，希望对DELPHI的初学者有所帮助。

Conquer

(2006/7/14)