사내 프로그램 중 메일발송 되는 부분이 아래와 같이 코딩되어 있습니다..
물론 사내 메일서버는 내부에 있으며, 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;