实现发送邮件的功能

该功能网上一大批，就不说了。

其中一点就是在测试时，出现好多问题。因为不明白原因，导致一头雾水，花费不少时间。实际上归结一条：

你的网上邮箱pop3和smtp是否开通。没有开通时出现的形形式式的错误提示会一头雾水。现在一般邮箱要你自己手动开通。只有开通后才能测试成功。

 begin
   IdSMTP1 := TIdSMTP.Create(nil);
   IdMessage1 := TIdMessage.Create(nil);
   try
     IdSMTP1.AuthType:= atDefault; //设置登陆类型
     IdSMTP1.Username:='username'; //设置登陆帐号
     IdSMTP1.Password:='password'; //设置登陆密码
     IdSMTP1.Host:='smtp.yeah.net'; //设置SMTP地址
     IdSMTP1.Port:=25; //设置端口   必须转化为整型
     IdSMTP1.Authenticate;
     IdSMTP1.Connect;   //开始连接服务器
   except
    // Showmessage('连接失败,请重试!');
     Exit; //连接失败 的话 退出该执行过程
   end;
   IdMessage1.Body.Clear;   //先清空上次发送的内容
   with IdMessage1 do
     begin
      Subject := '这是邮件标题';   //设置邮件发送的标题
      Body.Text := '这是最新的邮件'; //设置邮件发送的主体
      From.Address :='yourname@yeah.net'; //设置邮件的发件人
      ReplyTo.EMailAddresses :='yourname@yeah.net';  //回复地址
      Recipients.EMailAddresses := 'yourname@yeah.net';   //收件人的地址
      CharSet := 'UTF-8';
     end;
   try
     idSMTP1.Send(IdMessage1);
    // Showmessage('邮件发送成功!');
   finally
     IdSMTP1.Disconnect;
     IdSMTP1.FreeOnRelease;
     IdMessage1.FreeOnRelease;
     //Showmessage('邮件发送失败!');
   end;
35   end;