Delphi下发送Email的方法

原创 2007年09月23日 14:14:00
 

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)
 
 


asp发送邮件(email)方法集合

  • 2011年03月27日 11:48
  • 14KB
  • 下载

PHP发送EMAIL类以及实现方法

  • 2010年05月14日 19:19
  • 21KB
  • 下载

PHP 发送Email的几种方法

转载链接:http://blog.009it.com/php/75.html 在php中发送Email可以直接调用系统的mail()函数来完成,但是前提是你在php.ini文件中对mail都...

iOS系统框架提供的两种发送Email的方法

1、使用openURL来实现发邮件的功能: NSString *url = [NSString stringWithString: @"mailto:foo@example.com?cc=...
  • ustcyb
  • ustcyb
  • 2012年08月22日 10:38
  • 1318

IOS发送Email的两种方法

IOS系统框架提供的两种发送Email的方法:openURL 和 MFMailComposeViewController。借助这两个方法,我们可以轻松的在应用里加入如用户反馈这类需要发送邮件的功能。 ...

Python 发送email的方法

import smtplib from email.MIMEMultipart import MIMEMultipart from email.MIMEText import MIMEText...

iOS开发-Email的发送方法

IOS系统框架提供的两种发送Email的方法:openURL 和 MFMailComposeViewController。借助这两个方法,我们可以轻松的在应用里加入如用户反馈这类需要发送邮件的功能。 ...

IOS开发中发送Email的两种方法

1、使用openURL来实现发邮件的功能: NSString *url = [NSStringstringWithString:  @"mailto:foo@example.com?cc=bar@...

c#發送Email方法整理

//EmailInfoTB         private int ms_paranums;            //EMail的主題的參數個數         private string m...

IOS发送Email的两种方法

IOS系统框架提供的两种发送Email的方法:openURL 和 MFMailComposeViewController。借助这两个方法,我们可以轻松的在应用里加入如用户反馈这类需要发送邮件的功能。 ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi下发送Email的方法
举报原因:
原因补充:

(最多只允许输入30个字)