邮件发送的问题

Question

用如下代码发送邮件:
  with IdMsgSend do
  begin
    Body.Assign(mmContent.Lines);
    From.Address := Trim(edtFrom.Text);
    Recipients.EMailAddresses := Trim(edtTo.Text);
    Subject := edtSubject.Text;
  end;
  with IdSMTP do
  begin
    Host := 'znrc1.znrc.com';
    Port := 25;
    Connect;
    try
      Send(IdMsgSend);
    finally
      Disconnect;
    end;
  end;
程序只能在该邮件服务器上发送邮件,且只能发送给该服务器上的邮箱,而不能发给其他邮箱,如(163).是不是要设置代理?具体怎么设呢?

Answer 1

先说句题外话：不能发送互连网上其他的邮件服务器，最大可能是服务器的配置问题，而不是你开发的程序的问题。

Answer 2

这样啊,你知道怎么配置服务器吗?
或者谁什么其它的解决的办法?用什么样的控件,最好能提供源代码.
谢谢!