// 소스내용
try
with NmSMTP1 do begin
ClearParameters;
Host := 'smtp.mail.yahoo.co.kr'; // 메일써버
Port := 25; //고정값
UserID := user_id; //자기 사용자 아이디
Connect;
end;
// 보내는 사람 정보
with NmSMTP1.PostMessage do begin
// 밑에 같이 처리하면 나중에
FromAddress := from_mail; // 보내는 사람
FromName := from_name;
end;
// 받는 사람 정보
with NmSMTP1.PostMessage do begin
if mail1_ok then ToAddress.Add(Trim(to_mail1)) // 받는사람 email주소
else ToAddress.Add(Trim(to_mail2));
ListBox1.Items.Add(add_file);
Attachments.AddStrings(ListBox1.items); // 첨부file
Subject:=jemok; // 제목
Body.AddStrings(Memo1.Lines);
end;
NmSMTP1.SendMail;
Except
on ESockError do
begin
MessageDlg('E-Mail 전송을 실패 했습니다!',mtWarning,[mbOK],0);
NmSMTP1.Disconnect;
end;
end;
//
에러내용은 530 authentication required 인증요구하더라구요
여기저기 자료를 찾아봐고 Indy 로 하라구 하구요
제가 쓰는 delphi 5.0 을 사용하는데 버젼을 바꿀필요까지는 없거든요
delphi 5.0에서 nmSMTP 로 메일을 전송할려면 어떻게 해야하죠
outlock 에서는 서버설정해주고 user_id,password 입력해주고
인증필요 를 check 해주니까 전송이 잘돼던데요..