Delphi 发送邮件(从qq邮箱发送到企业邮箱）

1 基础设置

1.1 qq邮箱 在“账户” 设置中开启 “POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务”

2 获取邮箱授权码

2.1

3 创建程序 并使用 控件 TIdPOP3、TIdSMTP、TIdMessage

3.1 具体样例代码如下

 idsmtp.Username:='73492***@qq.com'; //登陆帐号
 idsmtp.Password:='wbgblsgegtjxbeca'; //登陆密码(QQ邮箱使用的授权码，不是QQ登录密码)
 idsmtp.Host:='smtp.qq.com';          //SMTP地址
 idsmtp.Port:=25;                     //端口
 idsmtp.Connect;                      //连接服务器
 idmsg.CharSet:='gb2312';              //邮件的内容中文不显示乱码
 idmsg.Body.Clear;                    //清空内容
 idmsg.Subject:=  '测试D发送邮件';           //邮件的标题
 idmsg.Body.Text := '1234-中文测试' ;   //邮件的内容
 idmsg.From.Address:= '73492***@qq.com';                   //邮件发件人
 idmsg.Recipients.EMailAddresses:='******@pearljiu.com';        //收件人的地址 多个地址用英文;分号隔开
 idsmtp.Send(idmsg);                  //发送邮件
 idsmtp.Disconnect(True);             // 关闭服务器连接