代码如下:
 
 with IdSMTP do
    begin
      Host := edtHost.Text; //SMTP狝叭竟
      Port := strtoint(edtpost.text); //SMTP狝叭竟狠
      UserName := edtUser.Text;   //ノめ姐腹
      Password := edtPwd.Text;    // ノめ盞絏
      if CKSever.Checked then AuthenticationType:=atLogin else AuthenticationType:=atNone ;      try
        Connect(); //秸ノ Connect硈钡狝叭
      except
        Memo.Lines.Add(DateTimeToStr(Now) + '<Connection Server failure!>');
        Memo2.Lines.Clear ;
        Disconnect();
        abort ;
      end;      try
        Send(IdMessage);
        Memo1.Lines.Add(DateTimeToStr(Now) + '<Email send success!>');
      except
        Memo.Lines.Add(DateTimeToStr(Now) + '<Email send failure!>');
        Memo2.Lines.Clear ;
        Disconnect();
        abort ;
      end;
      Disconnect();
    end;