用idsmtp发送邮件的问题 ( 积分: 100 )

var
IdMsgSend: TIdMessage;
SMTP:Tidsmtp;

procedure TfrmMessageEditor.bbtnOkClick(Sender: TObject);
begin
//init idmsgsend; idmsgsend 指要发送的信的结构

SMTP.UserID := edit1.text;
SMTP.Password :=edit2.text;

{General setup}
SMTP.Host := 'smtp.tom.com';
SMTP.Port := 25;
SMTP.Connect;
SMTP.Send(IdMsgSend); //在send方法里会调用Authenticate,也就是认证。
end;


我原来用上面的idsmtp发送认证邮件到TOM邮箱一直正常,近来却不能发送,返回信息是:
this mail is blocked by kbas system,blockid=cnapp23.tom.com.5949.1177993934
后来查到原来Tom的邮箱使用了叫做kbas system的垃圾邮件过滤系统,请问怎样才能解决这个邮件发送问题

你的邮件被当作垃圾邮件了.邮件主题及邮件内容有被禁用的词

indy9的话据说会被过滤掉，我是用indy10，所以不知道，下面的帖子有解决方法，你可以看看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3359545

都不行