해결하지 못하고 있습니다.
델파이 7, winXP, 회사내 메일서버가 있습니다.
procedure TAE1105F.BitBtn1Click(Sender: TObject);
var idtTextPart:TIdText;
begin
IdMessage1.Clear;
IdMessage1.ContentType := 'Multipart/Alternative';
// add a plain text message part
idtTextPart := TIdText.Create(IdMessage1.MessageParts,nil);
idtTextPart.ContentType := 'text/plain';
idtTextPart.Body.Add('This is the plain part of the message.');
// 보내는 문자열 HTML message
idtTextPart:= TIdText.Create(IdMessage1.MessageParts, nil);
idtTextPart.ContentType := 'text/html';
idtTextPart.Body.add('크크 바디의 시작이야<br><br>');
//보내는 사람
IdMessage1.From.Address := 'GUEST@xxxxx.com';
IdMessage1.From.Name := 'GUEST';
IdMessage1.Sender.Address := 'GUEST@xxxxx.com';
IdMessage1.Sender.Name := 'GUEST';
// 받는 사람.
IdMessage1.Recipients.clear;
with IdMessage1.Recipients.Add do Address := 'umpro@lycos.co.kr';
//with IdMessage1.Recipients.Add do Address := 'uscsin@daum.net';
// 제목
IdMessage1.Subject := '아폴론의 테스트 메일입니다.';
IdSMTP1.Host := '10.124.0.4'; //210.000.000.0 //외부IP접속에러 그래서 내부IP로 바꿈
//내부아이피로 접속해서 외부로 보낸다? 되는것인가요?
IdSMTP1.Port := 25;
IdSMTP1.Username := 'GUEST@xxxxx.com';
IdSMTP1.Password := '1234';
IdSMTP1.MailAgent := 'MTU1.0';
IdSMTP1.AuthenticationType := atNone;
try
try
//메일 전송
IdSMTP1.Connect; ==========> OK
IdSMTP1.Send(IdMessage1); ===> Error :Relaying denied
showmessage('메일발송성공!!');
except
on e: Exception do
ShowMessage('메일발송실패 !!'+#13#13+ E.Message);
end;
finally
IdSMTP1.Disconnect;
end;
end;
IdSMTP1.Connect; 접속은 되는데(내부아이피로)
IdSMTP1.Send(IdMessage1); 요기서 에러 납니다.
쩝... 난감합니다.