delphi indy控件 idsmtp 邮件发送 gmail

普通的邮件发送服务器直接设置

 

IdSMTP1.Host := smtp服务
IdSMTP1.Port：=端口，默认25

IdSMTP1.AuthenticationType := atLogin; //保证登录模式为Login
IdSMTP1.Username := 用户名

IdSMTP1.Password := 密码

最后idSMTP.Connect(), 
      IdSMTP1.Authenticate

      IdSMTP1.Send(IdMessage1)

 

但对gmail 这招不太好使，

因为gmail邮箱是需要SSL加密的，需要添加indy 控件    TIdSSLIOHandlerSocket

并设置TIdSSLIOHandlerSocket.SSLOptions.Method:=sslvSSLv3

然后

IdSMTP1.IOHandler:= IdSSLIOHandlerSocket1  //区别在这儿哟

IdSMTP1.Host := smtp服务
IdSMTP1.Port：=端口，默认25--gmail smtp port 465

IdSMTP1.AuthenticationType := atLogin; //保证登录模式为Login
IdSMTP1.Username := 用户名

IdSMTP1.Password := 密码

最后idSMTP.Connect(), 
      IdSMTP1.Authenticate

      IdSMTP1.Send(IdMessage1)

 

这点小区别费了我老大劲，哎，2010-12 记录，不能保证以后gmail没变啊

pop的话应该大致相同吧，因为没做，也就不贴了