请教关于IdSMTP发邮件的问题！(200分)

我用IdSMTP做了一个简单的发邮件的东东，可是不知道为什么只能给包括自己在内的公司同事发邮件，给外面的邮箱发就会报“relaying denied to <xxxxx@msn.com>”,请教高手如何解决。或者有完备一些的实例也好，先谢过了！

以下是发邮件的简单代码：
procedure TF_STSendMail.Button2Click(Sender: TObject);
begin
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:=Edit2.Text;
IdSMTP1.Password:=Edit3.Text;
IdSMTP1.Host:='xxx.xxx.xxx.xxx';//此处为公司邮件服务器的IP
IdSMTP1.Port:=25;
try
IdSMTP1.Connect(1000);
except
StatusBar1.Panels[1].Text:='连接SMTP服务器失败!';
exit;
end;
try
With IdMessage1 do
begin
body.Clear;
body.Add(Memo1.Text);
From.Address:=Edit2.text;
Recipients.EMailAddresses:=Edit5.Text;
Subject:=Edit6.Text;
end;
IdSMTP1.Send(IdMessage1);
except
StatusBar1.Panels[1].Text:=' 发送邮件到' + Edit5.Text + '失败！';
IdSMTP1.Disconnect;
exit;
end;
StatusBar1.Panels[1].Text:='已发送到' + Edit5.Text;
IdSMTP1.Disconnect;
end;

你把它作为字符串另外发过去呢

谢谢，那样接收邮件的服务器能解释吗？

由衷的告诉你一个提示 不要使用idpop 这个组件 不相信把成品 做出来 收带有附件*.doc的邮件 回给你出来一个特别一个恶心的问题 range check error见到这个错误之后 你会发现控件源码点不进去 一个字 死 重新来过吧.....
我只是给个建议..你可以去尝试下
ps:我用的是indy10