实现发送邮件的功能

 1  begin
 2    IdSMTP1 := TIdSMTP.Create(nil);
 3    IdMessage1 := TIdMessage.Create(nil);
 4    try
 5      IdSMTP1.AuthType:= atDefault; //设置登陆类型
 6      IdSMTP1.Username:=‘username‘; //设置登陆帐号
 7      IdSMTP1.Password:=‘password‘; //设置登陆密码
 8      IdSMTP1.Host:=‘smtp.yeah.net‘; //设置SMTP地址
 9      IdSMTP1.Port:=25; //设置端口   必须转化为整型
10      IdSMTP1.Authenticate;
11      IdSMTP1.Connect;   //开始连接服务器
12    except
13     // Showmessage(‘连接失败,请重试!‘);
14      Exit; //连接失败 的话 退出该执行过程
15    end;
16    IdMessage1.Body.Clear;   //先清空上次发送的内容
17    with IdMessage1 do
18      begin
19       Subject := ‘这是邮件标题‘;   //设置邮件发送的标题
20       Body.Text := ‘这是最新的邮件‘; //设置邮件发送的主体
21       From.Address :=‘yourname@yeah.net‘; //设置邮件的发件人
22       ReplyTo.EMailAddresses :=‘yourname@yeah.net‘;  //回复地址
23       Recipients.EMailAddresses := ‘yourname@yeah.net‘;   //收件人的地址
24       CharSet := ‘UTF-8‘;
25      end;
26    try
27      idSMTP1.Send(IdMessage1);
28     // Showmessage(‘邮件发送成功!‘);
29    finally
30      IdSMTP1.Disconnect;
31      IdSMTP1.FreeOnRelease;
32      IdMessage1.FreeOnRelease;
33      //Showmessage(‘邮件发送失败!‘);
34    end;
35   end;