在窗口上放上两个控件:TIdSMTP和TIdMessage ,添加一个按钮,点击事件代码如下:
IdMessage1->Recipients->EMailAddresses = "123456@163.com";//邮件接收者的信箱
IdMessage1->From->Text = "hello@qq.com"; //邮件发送者的信箱
IdMessage1->Subject = "问题反馈"; //邮件的标题
IdMessage1->Body->Add("您好,想咨询一个问题"); //邮件内容
//IdMessage1->CCList->EMailAddresses = "abc@qq.com"; //邮件的抄送地址,可以不用写
if (IdSMTP1->Connected())
{
IdSMTP1->Disconnect();
}
IdSMTP1->AuthenticationType = atLogin; //登录服务器类型选择
IdSMTP1->Host = "smtp.qq.com"; //SMTP服务器
IdSMTP1->UserId = "609329052"; //QQ邮箱的用户名
IdSMTP1->Password = "czploabcdfoabdjf"; //邮箱的授权码
IdSMTP1->Port = 25; //端口
IdSMTP1->Connect(); //连接SMTP服务器
if (IdSMTP1->Authenticate()) //用户验证
{
ShowMessage("登录服务器验证成功!");
IdSMTP1->Send(IdMessage1); //发送邮件
ShowMessage("邮件发送成功");
}
IdSMTP1->Disconnect(); //中断连接SMTP服务器