为什么我程序发出的邮件都被foxmail认为是垃圾邮件？(100分)

有什么办法可以解决？
——————————————————————————————————
with IdMsgSend do
begin
Clear;
TIdAttachment.Create(IdMsgSend.MessageParts,excelName);

From.Text := '***@***.com>'; { 发件人 }
Recipients.EMailAddresses := '***@***.com>'; { 收件人 }
Subject := Edit1.Text ; { 主题 }
Priority := mpNormal; { 邮件优先级 }

ReceiptRecipient.Text := '';; { 没有回执 }
end;

SMTP.AuthenticationType := atNone;

{ SMTP设置 }
SMTP.Username := '****';
SMTP.Password := '****';
SMTP.Host := 'www.****.com';
SMTP.Port := 25;

{现在发送邮件}
SMTP.Connect;
try
SMTP.Send(IdMsgSend);
DeleteFile(excelName);
finally
SMTP.Disconnect;
end;

哈哈 楼主郁闷了呀

晕，有没有知道的啊

晕倒，大富翁的回复信也跑到垃圾邮件箱里面去了