-----------아래는 반송메일 내용입니다.

제목 :  Warning: could not send message for past 4 hours
보낸사람  :  MAILER-DAEMON@localhost.localdomain
받은시간 : 2004-11-04 14:43:30 +0900 (KST)     보낸시간 : Thu, 4 Nov 2004 14:09:53 +0900
첨부파일 : delivery-status message/rfc822


    **********************************************
    **      THIS IS A WARNING MESSAGE ONLY      **
    **  YOU DO NOT NEED TO RESEND YOUR MESSAGE  **
    **********************************************

The original message was received at Thu, 4 Nov 2004 09:21:25 +0900
from [211.104.114.70]

   ----- Transcript of session follows -----
<xxx@nate.com>... Deferred: Connection reset by smtp.nate.com.
Warning: message still undelivered after 4 hours
Will keep trying until message is 5 days old

유독 네이트로 보낼때만 안됩니다..

컨포넌트는 TldSMTP와 TldMessage를 사용합니다..

RFC822문서를 보긴 했는데 도통...ㅡ.ㅡ;

소스 코드는 다음과 같습니다..

procedure TH603QRF.SendMail(const AFrom, ATo, ASubject, AMsg,
  AServer: string);
begin
  with mesgMessage do begin
    Clear;
    From.Text := AFrom;
    Recipients.Add.Text := ATo;
    Subject := ASubject;
    Body.Text := AMsg;
  end;

  with smtpSendMail do begin
    Host := AServer;
    Connect;
    try
      Send(mesgMessage);
    finally
    Disconnect;
    end;
  end;