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

2017.11.22 14:27

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


문단제목




험프리.김현수 Delphi/C++Builder

  1. 파일 첨부
    // uses IdAttachmentFile;
    MailMessage.MessageParts.Clear;
    TIdAttachmentFile.Create(MailMessage.MessageParts, Filename);

  2. 감사합니다 ~~~