在delphi2010中拖idsmtp和idmessage这俩个控件,就可以发送邮件了。
在按钮btn1的click事件下写如下代码:
值得注意的是:1、你用哪个邮箱的服务器,在 IdSMTP1.Host:='smtp.qq.com'这都是有区别的,另外还需在所用的邮箱中设置账号里面开启SMTP服务。
发送邮件内容时,如果不指定IdMessage1.CharSet:='UTF-8';//,则发送内容中文显示为乱码。
var
filename: string;begin //发送邮件主函数
try
// IdSSLIOHandlerSocket1.SSLOptio