1. 개발/실행 플랫폼

(1) OS :

(2) 개발툴 :

(3) 사용 Database :

2. 개발 중인 프로그램

3. 질문 내용

indy에서 Email를 보낼려고 프로그램을 어디선가 sample를 찾아서 compile 하려는데

TIdSSLIOHandlerSocketOpenSSL 를 찾을 길이 없네요.

혹시 아시는분 부탁드립니다.

----------------------------------------------------------------------------------------------------------

Source 코드입니다.

function SendMail(idFrom, pw, idTo, aSubject, aText: string): Boolean;
var
  SMTP: TIdSMTP;
  SSL: TIdSSLIOHandlerSocketOpenSSL;
  MM: TIdMessage;
begin
  result := false;
  SMTP := TIdSMTP.Create(nil);
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  MM := TIdMessage.Create(nil);
  try

    // 적당히 세팅.. 샘플은 구글 Apps 계정

    SMTP.Host      := 'smtp.gmail.com';
    SMTP.Port      := 587;
    SMTP.Username  := idFrom;
    SMTP.Password  := pw;
    SMTP.IOHandler := SSL;
    SMTP.UseTLS    := utUseExplicitTLS;

    SSL.Host := SMTP.Host;
    SSL.Port := SMTP.Port;
    // setup mail message
    MM.From.Address := idFrom;
    MM.Recipients.EMailAddresses := idTo;
    MM.ContentTransferEncoding := 'base64';
    MM.Subject := aSubject;
    with TIdText.Create(MM.MessageParts, MM.Body) do
    begin
      CharSet := 'utf-8';
      Body.Text := aText;
    end;

    // send mail
    try
      try
        SMTP.Connect;
        SMTP.Send(MM);
        result := true;
      except
        on E: Exception do
          showmessage('ERROR: ' + E.Message);
      end;
    finally
      if SMTP.Connected then
        SMTP.Disconnect;
    end;
  finally
    SMTP.Free;
    SSL.Free;
    MM.Free;
  end;
end;