在Delphi中使用indy SMTP发送gmail邮件（转）

摘自：http://www.sunnyu.com/?p=192

在Delphi中发送email很简单，发送ssl方式的gmail邮件也很简单，只要在使用的idSMTP上附加一个TIdSSLIOHandlerSocket 就可以了。
使用控件

1. procedure sendMail(sToMail, sSubject, sContent: String);
2. var
3.     SMTP: TIdSMTP;
4.     MailMessage: TIdMessage;
5.     SSLSocket: TIdSSLIOHandlerSocket;
6. begin
7.   SMTP        := TIdSMTP.Create(nil);
8.   SSLSocket := TIdSSLIOHandlerSocket.Create(nil);
9.   MailMessage:= TIdMessage.Create(nil);
10.  
11.   SMTP.IOHandler := SSLSocket;
12.   SMTP.Port   := 465;
13.   SMTP.Host := 'smtp.gmail.com';
14.   SMTP.AuthenticationType  := atLogin;
15.  
16.   smtp.UserName     := 'SunnyYu2000';
17.   smtp.Password      := 'xxxxxx';
18.  
19.   // 设置邮件的信息
20.   MailMessage.From.Address := 'SunnyYu2000@gmail.com';
21.   MailMessage.Recipients.EMailAddresses := sToMail;
22.   MailMessage.Subject := sSubject;  
23.   MailMessage.Body.Text := sContent;
24.  
25.   //发送邮件
26.   try
27.     try
28.       SMTP.Connect(1000);
29.       SMTP.Send(MailMessage);
30.       ShowMessage('发送成功');
31.     except on E:Exception do
32.       ShowMessage('发送失败: ' + E.Message);
33.     end;
34.   finally
35.     if SMTP.Connected then
36.       SMTP.Disconnect;
37.   end;
38.  
39.   MailMessage.Free;
40.   SSLSocket.Free;
41.   SMTP.Free;
42. end;

编译后需要SSL动态库支持，支持库可以到Indy网站上下载到。
如果需要发送附件，可以再发送前添加如下类似代码

1.    // 添加邮件的附件
2.    TIdAttachment.Create(MailMessage.MessageParts, sAttachmentFileName);

————–
Indy需要的SSL支持dll下载地址 http://www.indyproject.org/Sockets/SSL.EN.aspx