Q&A

  • 메일전송시 오류건..고수님들.. ㅜㅜ
사내 프로그램 중 메일발송 되는 부분이 아래와 같이 코딩되어 있습니다..
물론 사내 메일서버는 내부에 있으며, smtp와 Pop 서비스를 이용합니다..
아래 프로그램을 이용하여 메일 발송시 어떤 PC에서든 사내메일(동일도메인)로는 발송이 잘 됩니다..
그러나 외부메일로(hanmail, dremwiz, naver 등등)는 발송이 되지 않습니다..
메일전송시 smtp1.sendmail에서 exception이 발생하며, exception메세지로는 503 Bad Sequence
of commands라고 뜹니다..
무엇이 문제일까요? 또한 해결방법은?
고수님들의 의견 부탁드립니다..

<소스>
  //설정
   SMTP1.postmessage.ToAddress.Clear;
   SMTP1.postmessage.Subject := Edit1.text;
   SMTP1.postmessage.FromAddress := Edit2.text;
   SMTP1.postmessage.Body.Text := memo1.text;
   if CheckBox1.checked then
      begin
        SMTP1.postmessage.ToBlindCarbonCopy.Add(Edit4.text);
      end
   else
      begin
        SMTP1.postmessage.ToAddress.Add(edit4.text);
      end;

   //첨부파일 추가
   Table1.first;
   While not Table1.eof do
     begin
       SMTP1.postmessage.Attachments.Add(Table1.fieldbyname('ADDFILE').asstring);
       Table1.next;
     end;


   try
     SMTP1.Connect;
   except
     Application.MessageBox(' 메일서버에 접속할수 없는 사용자 계정입니다.'+#10#13 +
                                ' 서버 관리자에게 문의 하십시오.','메일전송불가',mb_OK);
     SMTP1.disConnect;
     exit;
   end;


   try
      SMTP1.SendMail;
   except
     SMTP1.disConnect;
     Animate1.Active := false;
     Animate1.Visible := false;
     Animate1.Refresh;
     Application.MessageBox(' 메일전송에 실패 하였습니다.'+#10#13 +
                                ' 서버 관리자에게 문의 하십시오.','메일전송불가',mb_OK);
     bitbtn5.Enabled := true;
     bitbtn6.Enabled := true;
     exit;
   end;
   SMTP1.disConnect;
   Animate1.Active := false;
   Animate1.Visible := false;
   Animate1.Refresh;
   Application.MessageBox(' 메일전송을 정상적으로 완료하였습니다. ','전송완료',mb_OK);
   bitbtn5.Enabled := true;
   bitbtn6.Enabled := true;
0  COMMENTS