Delphi发email

控件

smtp: TIdSMTP;
MgeSend: TIdMessage;

代码

procedure TForm1.Button1Click(Sender: TObject);
begin
SMTP.Host:='smtp.163.com';
smtp.Username:='zhm001x@163.com';
smtp.Password:='paswrd';
smtp.Port:=25;
smtp.Connect(); idsmtp1.AuthenticationType:=atLogin;
MgeSend.Recipients.EMailAddresses:='zhm001x@qq.com';
MgeSend.From.Text :='zhm001x@163.com';
MgeSend.Subject:='test';
MgeSend.Body.Text:='发邮件测试';
SMTP.Authenticate;
Smtp.Send(mgeSend);
end;

==============================================

在主form1上添加 两个button，一个IdSMTP1，一个IdMessage1。
然后，
1，先连接服务器
代码：
procedure TMainForm.Button1Click(Sender: TObject);
begin
IdSMTP1.Username :='XXXX'; //服务器上的用户名
IdSMTP1.Password :='XXXX'; //服务器上的密码
IdSMTP1.Host :='XXX.XXX.com'; //服务器SMTP地址
IdSMTP1.Port :=25; //服务器端口
IdSMTP1.Connect; //建立连接
end;
2，发送邮件
代码：
procedure TMainForm.Button2Click(Sender: TObject);
begin
IdMessage1.Body.Add( ' 呵呵，感谢' ); //邮件正文件内容
IdMessage1.From.address :='XXX@XXX.com'; //发件人地址
IdMessage1.Recipients.EMailAddresses :='XXX@XXX.com'; //收件人地址，这里改为你的EMAIL地址
IdMessage1.Subject:='发送邮件就这么简单' ; //邮件标题
IdMessage1.Priority := mphigh; //优先级，mphigh为最高级。
IdSMTP1.Send(IdMessage1); //发送邮件
end;
//注意以上XXX为代指，以实际情况而定。测试看看吧

[@more@]

hehehha

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/93029/viewspace-1026519/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/93029/viewspace-1026519/