DELPHI实现发送EMAIL的文章.docVIP

DELPHI实现发送EMAIL的文章

IdSMTP1.Port?:=25;?????????????????????????????//服务器端口

IdSMTP1.Connect;??????????????????????????????//建立连接

注意：以上是（免费）邮箱的设置，你也可以去申请一个。然后把?IdSMTP1.Username?和?IdSMTP1.Password?属性改成你的用户名和密码就行了，其他属性不用修改。

如果要使用其他的邮箱，可以到该邮箱的网站上查找相关资料。例如新浪的SMTP地址是：。

端口通常设置为?25?。

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

begin

IdMessage1.Body.Add(??邮件正文??);????//邮件正文件内容

IdMessage1.From.address?:=metals@;????//发件人地址

IdMessage1.Recipients.EMailAddresses?:=metals@;????//收件人地址，这里改为你的EMAIL地址

IdMessage1.Subject:=标题?;???????//邮件标题

IdMessage1.Priority?:=?mphigh;??//优先级，mphigh为最高级。

IdSMTP1.Send(IdMessage1);?????//发送邮件

end;?

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

控件

?smtp:TIdSMTP;

?MgeSend:TIdMessage;

代码

procedureTForm1.Button1Click(Sender:TObject);

begin

?SMTP.Host:=;

?smtp.Username:=zhm001x@163.com;

?smtp.Password:=paswrd;

?smtp.Port:=25;

?smtp.Connect();

?MgeSend.Recipients.EMailAddresses:=zhm001x@;

?MgeSend.From.Text:=zhm001x@163.com;

?MgeSend.Subject:=test;

?MgeSend.Body.Text:=发邮件测试;

?SMTP.Authenticate;

?Smtp.Send(mgeSend);

end;

Delphi?6?发送电子邮件,我以前编过，就是用TNMSMTP控件发送成功的。不过很不幸，源程序在最近删了。因为程序在Delphi7里不能通用。

网上的资料应该有用，可能除了一点没讲：发送邮件需要用到“身份验证”。在发送邮件时，需要把用户名、密码，变成BASE64编码，再发送过去验证。TNMSMTP控件没有提供身份验证的部分。

如何加入身份验证？

Use?里加入：IdCoder3to4;

在NMSMTP的OnConnect事件中添加代码：

var?strUserName,?strPassword:?String;

begin

??strUserName?:=?Base64Encode(帐号);?//帐号字符串变成Base64编码

??strPassword?:=?Base64Encode(密码);?//密码字符串变成Base64编码

??nmsmtp1.Transaction(EHLO)?;

??nmsmtp1.Transaction(AUTH?LOGIN);???//身份验证

??nmsmtp1.Transaction(strUserName);

??nmsmtp1.Transaction(strPassword);

end;

至于其它部分，很容易在网上找到。

有兴趣请在网上找到base64编码规则，弄清楚Base64Encode()函数是怎么编码的。如果找不到Base64Encode函数，我把当时自己编码的函数写给你，看看有没有用。

function?encodebase64(s:string):string;???//上面代码的函数名相应改过来。

const

??Tb:?String[64]?=

??(ABCDEFGHIJKLMNOPQRST