Delphi下发送Email的方法

HTML Tags and JavaScript tutorial

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 :='metals@eyou.com'; //发件人地址
IdMessage1.Recipients.EMailAddresses :='metals@eyou.com'; //收件人地址，这里改为你的EMAIL地址
IdMessage1.Subject:='标题' ; //邮件标题
IdMessage1.Priority := mphigh; //优先级，mphigh为最高级。
IdSMTP1.Send(IdMessage1); //发送邮件
end;
OK，到这里就全部完成了，调试通过后先点击“连接服务器”等几秒（因为这需要时间），然后点击“发送EMAIL”按扭，好了，打开你的邮箱看一下，是不是已经收到EMAIL了呢？很简单吧。
如果有什么问题可以加我QQ：9747562
PS：这是我写的第一篇关于DELPHI的文章，希望对DELPHI的初学者有所帮助。
Conquer
(2006/7/14)

Delphi下发送Email的方法

HTML Tags and JavaScript tutorial

Delphi下发送Email的方法

更多相关文章

随机推荐