请问如何用IdSMTP 发送附件

[zjlxl]

我要用IdSMTP的验证功能，但是它如何发送附件？
NMSMTP 可以发送附件，但不知道如何进行验证（大多数）

谢谢各位

[jevin8011]

关注

[cuiyu616ok]

void __fastcall Tfrm_send::tbEditHeadClick(TObject *Sender)
{
if (Edit2->Text=="")
{
Application->MessageBox("请输入收件人地址！","提示",MB_OK+MB_ICONASTERISK);
return;
}
if (mail_address==""||mail_smtp==""||mail_accounts==""||mail_pass=="")
{
Application->MessageBox("请先进行邮箱帐号设置！","提示",MB_OK+MB_ICONASTERISK);
return;
}

try
{
IdMessage1->Body->Assign(Memo1->Lines); //内容

IdMessage1->Subject=Edit1->Text; //标题

// IdMessage1->From->Address="[e-mail]"; //发件人地址
IdMessage1->From->Address=mail_address; //发件人地址
// IdMessage1->From->Name="yuyu6906"; //发件人
IdMessage1->From->Name=mail_user; //发件人
IdMessage1->Recipients->Clear();
IdMessage1->Recipients->Add();
IdMessage1->Recipients->Items[0]->Address=Edit2->Text;//收件人
IdMessage1->Recipients->Items[0]->Name="";

IdMessage1->CCList->EMailAddresses = Edit4->Text;// 抄送
// IdMessage1->BccList->EMailAddresses = cBcc; //暗抄

if (Edit3->Items->Count>0) //发送附件
{
for(int i=0;i<Edit3->Items->Count;i++)
{
IdMessage1->MessageParts->Add();
new TIdAttachment(IdMessage1->MessageParts,Edit3->Items->Strings[i]);
}
}

// IdSMTP1->Host="smtp.sina.com.cn";
IdSMTP1->Host=mail_smtp;
// IdSMTP1->Username="yu.hermit"; //邮箱帐号
IdSMTP1->Username=mail_accounts; //邮箱帐号
// IdSMTP1->Password="";
IdSMTP1->Password=mail_pass;

Animate1->Visible=true;
Animate1->Active=true;

IdSMTP1->Connect(0);

IdSMTP1->Send(IdMessage1);
IdSMTP1->Disconnect();
Application->MessageBox("发送成功!","提示",MB_OK+MB_ICONASTERISK);
Edit1->Text="";
Edit2->Text="";
Edit4->Text="";
Memo1->Lines->Clear();
Memo1->Lines->Add("您好：");
Memo1->Lines->Add("");
Memo1->Lines->Add("");
Memo1->Lines->Add("");
Memo1->Lines->Add(" 致");
Memo1->Lines->Add("礼！");
Memo1->Lines->Add(" "+Date());
Edit3->Items->Clear();
Edit2->SetFocus();

Animate1->Visible=false;
Animate1->Active=false;
}
catch(...)
{
IdSMTP1->Disconnect();
Application->MessageBox("发送失败!\n请确认您已经连接到互联网上！","提示",MB_OK+MB_ICONASTERISK);
// ShowMessage("发送失败!\n请确认您已经连接到互联网上");
Animate1->Visible=false;
Animate1->Active=false;
}

}

[rzh]

int intIndex;

//IdMsgSend do
//{begin
IdMsgSend->Body->Assign(Memo1->Lines);
IdMsgSend->From->Text = Edit_EmailAddress->Text;
IdMsgSend->Recipients->EMailAddresses = edtTo->Text; //{ To: header }
IdMsgSend->Subject = edtSubject->Text; //{ Subject: header }
IdMsgSend->Priority = TIdMessagePriority(cboPriority->ItemIndex);// { Message Priority }
IdMsgSend->CCList->EMailAddresses = edtCC->Text;// {CC}
IdMsgSend->BccList->EMailAddresses = edtBCC->Text; //{BBC}
if (chkReturnReciept->Checked)
{//{We set the recipient to the From E-Mail address }
IdMsgSend->ReceiptRecipient->Text = IdMsgSend->From->Text;
}
else
{// {indicate that there is no receipt recipiant}
IdMsgSend->ReceiptRecipient->Text = "";
}
//end;}
int SmtpAuthType=cboAuthType->ItemIndex;
switch (SmtpAuthType)
{
// {authentication settings}
case 0:
SMTP->AuthenticationType = atNone;
break;
case 1:
SMTP->AuthenticationType = atLogin; //{Simple Login}
break;
};
SMTP->UserId = Edit_UserId->Text;
SMTP->Password = Edit_Password->Text;

// {General setup}
SMTP->Host = Edit_SMTPHost->Text;
SMTP->Port = StrToInt(Edit_SMTPPort->Text.Trim());

// {now we send the message}
SMTP->Connect();
try
{
SMTP->Send(IdMsgSend);
}
catch(...)
{
}
SMTP->Disconnect();

[joinboy211]

关注