Delphi의 TidSMTP 및 TidMessage 컨트롤 사용 설명

 delphi     TIdSMTP   TIdMessage           

           ：

TIdSMTP，TIdMessage，Button

      ：idsmtp,idmessage,btnSend

                ：

 
  
      ：
  
procedure TForm1.btnSendClick(Sender: TObject);
begin
  idSMTP.Host := 'smtp.sina.cn'; //       
  try
    idSMTP.Connect;
  except
     ShowMessage('          ！');
     Exit;
  end;
  idSMTP.AuthenticationType := atLogin; //      
  idSMTP.UserId := '[email protected]';   //      
  idSMTP.Password := 'sina@521';  //      
  try
    idSMTP.Authenticate
  except
    ShowMessage('          ！');
    idSMTP.Disconnect;
    Exit;
  end;
  idMessage.From.Address := '[email protected]';  //   
  idMessage.Recipients.EMailAddresses := '[email protected]'; //   
  idMessage.Subject := 'Delphi     ';       //    
  idMessage.Body.Text := '        ！';   //    
  try
    idSMTP.Send(idMessage);
    ShowMessage('      ！');
  except
    ShowMessage('      !');
  end;
  idSMTP.Disconnect;
end;
  
주의해야 할 점:
idSMTP.Host := 'smtp.sina.cn';//메일 발송 서버 {163의 메일이면 smtp.163.com 시나닷컴의 메일이면 smtp.sina.cn sohu의 메일이면 smtp.sohu.com} idSMTP.Host := 'smtp.sina.cn';//메일 발송 서버 idSMTP.Connect; idSMTP.AuthenticationType := atLogin;//서버에서 idSMTP를 확인해야 합니다.UserId := '[email protected]';//메일박스 로그인 계정 idSMTP.Password := '******';//메일박스 로그인 비밀번호 idSMTP.Authenticate idMessage.From.Address := '[email protected]';//보낸 사람 idMessage.Recipients.EMailAddresses := '[email protected]';//받는 사람 idMessage.Subject: ='Delphi가 보낸 메시지',//메일 테마 idMessage.Body.Text: ='이곳은 메일의 본문입니다!'//메일 내용 idSMTP.Send(idMessage); idSMTP.Disconnect;