unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, ComCtrls;

type
  TForm1 = class(TForm)
    SMTP: TIdSMTP;
    Msg: TIdMessage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     Msg.Body.Add('<font color=blue>테스트입니다. 본문...푸헤헤헤</font>');
     msg.From.Text := '보내는 사람 이멜주소';
     msg.Recipients.EMailAddresses := '받는 사람 이멜 주소';
     Msg.Subject := '제목테스트';
     smtp.UserId := 'SMTP서버에 등록되어 있는 USERID';
     smtp.Password := '해당 비번';
     smtp.Host := 'SMTP주소';

     msg.ContentType := 'text/html';

     try
        smtp.connect;
        smtp.Send(msg);
     finally
        smtp.Disconnect;
     end;
     showmessage('메일 보내기 완료');
end;

end.