使用indy传送邮件的问题?急
使用控件idsmtp,idmessage传送邮件(没有付件),代吗如下:
var
i:integer;
begin
IdSMTP.Host :='smtp.sina.com';
IdSMTP.UserId :='userid';
IdSMTP.Password :='psw';
IdSMTP.Port:=25;
IdSMTP.Connect ;
IdMessage1.Clear ;
with IdMessage1 do
begin
Body.Assign(emaildetailmemo.lines);
ReplyTo.EMailAddresses :=trim(email.Text);
Recipients.EMailAddresses :=trim(toemail.text);
Subject :=trim(subjectedit.Text);
Priority :=mpHighest;
ReceiptRecipient.Text :='';
end;
try
idSMTP.Send(IdMessage1);
except
showmessage('邮件传送失败!');
end;
showmessage('邮件传送成功!');
idSMTP.Disconnect ;
第一次点击‘发送’会成功,但接收方并没有收到邮件,连点几次‘发送’,就会提示错误,错误发生在 IdSMTP.Connect;上,不知何病,望指点一二。