with SMTP_procotol do begin
ClearParameters;
Host := 'mail.test.net';
Port := 25;
UserID := 'test'
Connect;
end;
// 보내는 사람 정보
with SMTP_procotol.PostMessage do begin
FromAddress := 'test.test.net'
FromName := 'test';
end;
// 받는 사람 정보
with SMTP_procotol.PostMessage do begin
ToAddress.Add(Trim(Eb_resive_name.Text)); //받는사람 email주소
ToCarbonCopy.Add(Eb_refer.Text); //참조
ToBlindCarbonCopy.Add(Eb_hiden_refer.Text);// 숨은참조
Attachments.AddStrings(LB_upfile.Items);
Subject := Eb_title.Text;
Body.Assign(Memo_mailmessage.Lines);
end;
SMTP_procotol.SendMail;
이런식으로 send 버튼에 코딩을 한겁니다.
실행을 하면
어떤 host는 550 5.7.1 reset is not allowed ... 라는 에러메시지가 뜨기도 하고여
어떤 Host는 onsucess 라는 이벤트가 발생하여 정상적으로 보내진것 ㄱ같은데요 근데 메일은 ㅇ안와있더라구요 어디가 잘못 ㄷ된건지요
host 의 ㅅ사이트마다 틀린건가요? 부탁드립니다.