Delphi2010使⽤QQ邮箱发送邮件
最近在⽤Delphi2010开发程序 ，需要将⽣成的结果以电⼦邮件的⽅式发送到指定邮箱⾥，功能已正常实现，在这⾥将设置做⼀下记录，时间⼀长就容易忘!
开发⼯具：Delphi2010改密码qq
邮箱：QQ邮箱
⼀、 ⾸先在QQ邮箱⾥设置， 登录邮箱后进⼊设置
⼆、进⼊账户
三、到POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务
1、将POP3/SMTP服务和IMAP/SMTP服务设置成已开启状态
2、点击⽣成授权码（⽣成16位码，这个很重要）
3、记的保存更改
⾄此QQ邮箱就设置完成
四、Delphi2010的控件部分
1、⾸先在窗体上需要放两个控件，控件在Indy Misc和Indy Clients组⾥
放到窗体上这样的两个控件
五、Delphi2010的代码部分
idsmtp.Username:='11*******@qq'; //登陆帐号
idsmtp.Password:='****************'; //登陆密码(QQ邮箱使⽤的授权码，不是QQ登录密码)
idsmtp.Host:='smtp.qq';          //SMTP地址
idsmtp.Port:=25;                    //端⼝
idsmtp.Connect;                      //连接服务器
idmsg.CharSet:='UTF-8';              //邮件的内容中⽂不显⽰乱码
idmsg.Body.Clear;                    //清空内容
idmsg.Subject:= ‘邮箱标题’;          //邮件的标题
idmsg.Body.Text = '邮件发送的主体' ;  //邮件的内容
idmsg.From.Address:= '11*******@qq';                  //邮件发件⼈
idmsg.Recipients.EMailAddresses:='11*******@qq';        //收件⼈的地址多个地址⽤英⽂；分号隔开
idsmtp.Send(idmsg);                  //发送邮件
idsmtp.Disconnect(True);            // 关闭服务器连接
结束语：在实现程序控制邮件发送的过程中，踩了好多坑，1、发送邮件时QQ邮箱使⽤的不是QQ的登录密码，⽽是授权码，这个之前真不知道，还是在CSDN⾥的⼀位博主的⽂章⾥看到，才明⽩的；2、发送的邮件内容如果是中⽂，全是乱码，这⾥要设置UTF-8，好了，就写这到这⾥了。