zoukankan      html  css  js  c++  java
  • 在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
  • 相关阅读:
    远程云服务器开启sql 远程连接
    代码性能优化第一篇
    sql server 字符串按最后数字排序
    Ocelot 自定义权限中间件,自定义中间件添加
    abp vnext 快速搭建项目框架
    Sqlplus报错ORA-12547
    OGG参数PURGEOLDEXTRACTS
    OGG低版本Trail文件6位,如何达到序列阈值999999后如何处理?
    OGG-Oracle 11.2.0.1 ->19.3 pdb 使用Ogg 同步版本相关问题学习整理
    OGG-00423 Could not find definition
  • 原文地址:https://www.cnblogs.com/honeynm/p/4196087.html
Copyright © 2011-2022 走看看