在Delphi中使用indy SMTP发送gmail邮件[转]

在Delphi中使用indy SMTP发送gmail邮件[转]  

2012-01-01 22:44:30|  分类： Delphi |  标签： |举报 |字号大中小 订阅

 

 

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

使用控件

 

procedure sendMail(sToMail, sSubject, sContent: String);

var

    SMTP: TIdSMTP;

    MailMessage: TIdMessage;

    SSLSocket: TIdSSLIOHandlerSocket;

begin

  SMTP        := TIdSMTP.Create(nil);

  SSLSocket := TIdSSLIOHandlerSocket.Create(nil);

  MailMessage:= TIdMessage.Create(nil);

 

  SMTP.IOHandler := SSLSocket;

  SMTP.Port   := 465;

  SMTP.Host := 'smtp.gmail.com';

  SMTP.AuthenticationType  := atLogin;

 

  smtp.UserName     := 'SunnyYu2000';

  smtp.Password      := 'xxxxxx';

 

  // 设置邮件的信息

  MailMessage.From.Address := 'SunnyYu2000@gmail.com';

  MailMessage.Recipients.EMailAddresses := sToMail;

  MailMessage.Subject := sSubject;  

  MailMessage.Body.Text := sContent;

 

  //发送邮件

  try

    try

      SMTP.Connect(1000);

      SMTP.Send(MailMessage);

      ShowMessage('发送成功');

    except on E:Exception do

      ShowMessage('发送失败: ' + E.Message);

    end;

  finally

    if SMTP.Connectedthen

      SMTP.Disconnect;

  end;

 

  MailMessage.Free;

  SSLSocket.Free;

  SMTP.Free;

end;

编译后需要SSL动态库支持，支持库可以到Indy网站上下载到。

如果需要发送附件，可以再发送前添加如下类似代码

 

   // 添加邮件的附件

   TIdAttachment.Create(MailMessage.MessageParts, sAttachmentFileName);

————–

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