急急急 我用delphi7+indy做邮件发送程序，为什么给企业油箱发不了邮件，高手求助

Question

idsmtp1.Username:=username;
    idsmtp1.Password:=Password;
    idsmtp1.Port:=25;
    idsmtp1.Host:='smtp.sohu.com';
    try
      try
      IdSMTP1.Connect(500);
      except
      showmessage('发件服务器忙请稍后再试！');
      end;
      IdMessage1.Body.Assign(memo1.Lines);
      IdMessage1.Subject:=trim(Edit1.Text);
      idmessage1.From.Address:='[email protected]';
      idmessage1.From.Name:='呵呵';
      idmessage1.Recipients.EMailAddresses:='[email protected]';
      idsmtp1.Send(IdMessage1);
      showmessage('成功');
      Ado_Address.Next;
    finally
      Idsmtp1.Disconnect;
    end;
   '[email protected]';是企业邮箱 就是发不出去。

Answer 1

你试试直接在sohu里往那个信箱能不能发，如果不能发就没办法了，如果能发那可能是程序的问题

Answer 2

idsmtp1.Username:=username;
idsmtp1.Password:=Password;
idmessage1.From.Address:='[email protected]';
把这些都换成sohu的邮箱试试，好像sohu的smtp服务器只能为sohu的信箱发邮件

Answer 3

可以给sohu发 也可以给sina发 我用的就是我sohu的邮箱 但是我给我公司的企业邮箱发就收不到，提示成功了啊，郁闷啊

Answer 4

最好用多线程.
发现一个可以下载(Delphi)代码的地方:  
http://www.datcn.com/luntan/dispbbs.asp?boardID=26&ID=879

Answer 5

Indy帮助文件,很详细哦!
下載地址﹕http://www.datcn.com/luntan/dispbbs.asp?boardID=3&ID=1612
壓縮文件大小﹕654kb
文档格式:PDF
語言﹕英文