关闭

Delphi下发送Email的方法

标签: delphiemail服务器javascriptqqhtml
489人阅读 评论(1) 收藏 举报
 

HTML Tags and JavaScript tutorial



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 :='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)
 
 


0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:150680次
    • 积分:4030
    • 等级:
    • 排名:第7748名
    • 原创:242篇
    • 转载:0篇
    • 译文:0篇
    • 评论:16条
    文章存档
    最新评论