TidSMTP 带附件发信

#include "IdAttachmentFile.hpp" void __fastcall TForm1::Button1Click(TObject *Sender) { IdMessage1->Recipients->EMailAddresses = "21xp@163.com"; //邮件接收者的信箱 IdMessage1->From->Text = "21xp@163.com"; //邮件发送者的信箱 IdMessage1->Subject = "测试发送电子邮件"; //邮件的标题 IdMessage1->Body->Add("利用C++Builder中的IdSMTP和IdMessage控件发送电子邮件");//邮件内容 IdMessage1->CCList->EMailAddresses = "21xp@163.com"; //邮件的抄送地址 IdMessage1->MessageParts->Clear(); IdMessage1->MessageParts->Add(); AnsiString AttFile=" d://a.txt";//附件文件名 TIdAttachmentFile *idAtta=new TIdAttachmentFile(IdMessage1->MessageParts,AttFile); IdSMTP1->Host = "smtp.163.com"; IdSMTP1->Port = 25; IdSMTP1->AuthenticationType = atLogin; IdSMTP1->UserId = "21xp"; IdSMTP1->Password = "30037542"; IdSMTP1->Connect(); IdSMTP1->Authenticate(); IdSMTP1->Send(IdMessage1); IdSMTP1->Disconnect(); }