本文整理自网络，侵删。
在delphi中拖idsmtp和idmessage这俩个控件。就能够发送邮件了。
在buttonbtn1的click事件下写例如以下代码：
值得注意的是：1、你用哪个邮箱的server，在 IdSMTP1.Host:='smtp.qq.com'这都是有差别的。另外还需在所用的邮箱中设置账号里面开启SMTP服务。
发送邮件内容时，假设不指定IdMessage1.CharSet:='UTF-8';//，则发送内容中文显示为乱码。
var
filename: string;begin //发送邮件主函数 try // IdSSLIOHandlerSocket1.SSLOptions.Method:=sslvSSLv3; //IdSMTP1.IOHandler:= IdSSLIOHandlerSocket1; //差别在这儿哟 //IdSMTP1.AuthenticationType:=atLogin; //设置登陆类型 IdSMTP1.Username:='你的邮箱账号'; //设置登陆帐号 IdSMTP1.Password:='密码'; //设置登录password IdSMTP1.Host:='smtp.qq.com'; //设置SMTP地址 IdSMTP1.Port:=25; //设置port ,默认是25，
//在你的qq邮箱中――设置――账户开启SMTP服务，否则报错 //
if not idsmtp1.Connected then begin IdSMTP1.Connect; //?_始连接server end; except Showmessage('连接失败,请重试!'); Exit; //连接失败 的话 退出该运行过程 end; IdMessage1.CharSet:='UTF-8';//j解决发送内容为中文乱码 IdMessage1.Body.Clear; //先清空上次发送的内容 IdMessage1.Subject:='Delphi邮件发送?y试'; //设置邮件发送的标题 //IdMessage1.Body.add(edt1.Text); IdMessage1.Body.Text:= edt1.Text; //设置邮件发送的主体// filename := 'C:\文件.txt'; //须要加入的附件文件 //TIdAttachment.Create(IdMessage1.MessageParts, filename); //加入附件 IdMessage1.From.Address:= '邮箱账号'; //设置邮件的发件人 也就是说该邮件来自什么地方 IdMessage1.From.Name := '逍遥'; IdMessage1.Recipients.EMailAddresses:= 'xxx@qq.com'; //收件人的地址 IdMessage1.CCList.EMailAddresses:='xxx@qq.com';//抄送// IdMessage1.BccList.EmailAddresses:='aaaabbb@gmail.com'; //密送// IdMessage1.Priority:=mpHighest; //邮件重要性 try idSMTP1.Authenticate; idSMTP1.Send(IdMessage1); Showmessage('发送成功!'); except Showmessage('邮件发送失败!'); end;end; 相关阅读 >>
Delphi 拖动文件到exe 打开 获取getcommandline命令行
Delphi研究之驱动开发篇（七）--利用共享内存与用户模式
Delphi idtcpclient和idtcpserver主要属性
更多相关阅读请进入《Delphi》频道 >>
