发送邮件时遇到要SMTP认证 请问如何才能搞定啊 我的发送邮件的代码如下 帮帮我
try
{
NMSMTP1->Host=SettingForm->txtSMTPHost->Text;
NMSMTP1->Port=StrToInt(SettingForm->txtSMTPPort->Text);
NMSMTP1->UserID=SettingForm->txtSMTPUserID->Text;
NMSMTP1->Connect();
NMSMTP1->PostMessage->FromName=SettingForm->txtFromAddress->Text;
NMSMTP1->PostMessage->ToAddress->Add(txtTo->Text);
NMSMTP1->PostMessage->ToCarbonCopy->Add(txtCC->Text);
NMSMTP1->PostMessage->ToBlindCarbonCopy->Add(txtBCC->Text);
NMSMTP1->PostMessage->Subject=txtSubject->Text;
NMSMTP1->PostMessage->Body->Assign(txtBody->Lines);
NMSMTP1->PostMessage->Attachments->AddStrings(lstAttach->Items);
NMSMTP1->Verify("borlandtest");
NMSMTP1->SendMail();
}
__finally{
NMSMTP1->Disconnect();
}
}