[튜토리얼] 메일 전송(IdSMTP 이용)

IdSMTP, IdMessage를 이용 메일 전송 예제

참고코드

procedure TForm2.Button1Click(Sender: TObject);
begin
  SMTP.Host := ''; // host address
  SMTP.Port := 25;

  MailMessage.From.Address := ''; // From email address
  MailMessage.Recipients.EMailAddresses := Edit2.Text;//'hskim@embarcadero.kr';

  MailMessage.Subject := Edit1.Text;
  MailMessage.Body.Text := Memo1.Lines.Text;
  MailMessage.CharSet := 'UTF-8';
  SMTP.Connect;
  SMTP.Send(MailMessage);
  if SMTP.Connected then
    SMTP.Disconnect;

  ShowMessage('');
end;

샘플 프로젝트

SendMail.zip

문단제목

---

• Indy Project Demo Download :http://www.indyproject.org/Sockets/Demos/index.EN.aspx