// 멜 전송 프로세서 Routine ...
// ------------------------------------------------------------------------------
// 메일 써버와 연결 처리
 <!--CodeS-->
  try
     with SMTP_procotol do begin
       ClearParameters;
       Host   := 'smtp.paran.com'; //오르지오 메일써버
       Port   := 25;               //고정값 고치면 디지-.-;
       UserID := '아이디';         //서버 사용자 아이디
       StatusBar1.Panels[3].Text := '받는이:@yahoo.co.kr';

       StatusBar1.Panels[4].Text := 'ⓑ';
       Connect;
       StatusBar1.Panels[4].Text := 'ⓒ';
     end;
     // 보내는 사람 정보
     with SMTP_procotol.PostMessage do begin
       FromAddress := '메일@paran.com'; // 보내는사람 - Hitel.Smtp를 활용
       FromName    := '이름';
     end;

    // 받는 사람 정보
    with SMTP_procotol.PostMessage do begin
      ToAddress.Add('받는이@yahoo.co.kr');  //받는사람 email주소  정광호
      ToCarbonCopy.Add('');      //참조
      ToBlindCarbonCopy.Add('');// 숨은참조
      ListBox1.Items.Add('c:\현황\'+Copy(FrmMAIN.cCompname,1,2)+'-'+FrmDAILYCREW.DateEdit1.Text+'.Txt');
      Attachments.AddStrings(ListBox1.Items);
      Subject := Copy(FrmMAIN.cCompname,1,2)+'-'+FrmDAILYCREW.DateEdit1.Text+'일 현황';
      //Body.Assign(Memo_mailmessage.Lines);
    end;
    StatusBar1.Panels[2].Text := '전송 시작';
    SMTP_procotol.SendMail;
    StatusBar1.Panels[2].Text := '전송 완료';

   Except
    on ESockError do
       begin
          StatusBar1.Panels[1].Text := '전송상태:오류';
          SMTP_procotol.Disconnect;
       end;
   end;
<!--CodeE-->