Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:网络技术    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  Indy 邮件发送的例子  
 
Indy 邮件发送的例子
Admin 2010年6月19日

Indy 邮件发送的例子

代码实测使用163邮箱向QQ邮箱发送消息,信息多次成功发送!代码用到了Indy的两个组件IdSMTP和IdMessage,代码如下:

procedure TForm2.btn1Click(Sender: TObject);
begin
idsmtp1.Host:="smtp.163.com";
idsmtp1.Port:=25;
idsmtp1.Username:="12345";
idsmtp1.Password:="123456";
idmsg1.Subject:=edt2.Text;
idmsg1.Body.Text:=mmo1.Text;
idmsg1.CharSet:="gb2312";
idmsg1.From.Address:="12345@163.com";
idmsg1.Recipients.EMailAddresses:=edt1.Text;
try
idsmtp1.Connect;
try
idsmtp1.Send(idmsg1);
lbl1.Caption:="send success";
except
lbl1.Caption:="send field";
end;
finally
idsmtp1.Disconnect;
end;
end;

注意事项:

1. 测试用的163的邮箱会验证From.Address发信人的邮箱地址是否与发信账号一致,所以必须保持发信账号和发信地址一致,其他邮箱或许不验证,具体看邮件服务器的情况。

2. 最好设置IdMessage的CharSet属性,不设置则中文会显示乱码。

代码测试环境:Windows XP SP3 + Delphi 2010

应该懂得这样一个道理:要努力,努力,再努力;如果开始不成功,还要努力,努力,再努力。——威·希克森

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站