Indy10收發Hotmail郵件

hotmail開放了pop3，可使用客戶端工具收取郵件了。

POP 服務器: pop3.live.com （端口 995）
須要 POP SSL？: 是的
用戶名: Windows Live ID, 好比：livesino@hotmail.com
密碼: 對應 Windows Live ID 的密碼
SMTP 服務器: smtp.live.com （端口 25）
須要身份驗證？: 是的
須要 TLS/SSL？: 是的

使用indy，須要SSL認證，到網上查閱 ，看到了Marco Cantù的文章：

 

Send mail to GMail using Indy

 

Once you've moved your email accounts to GMail (or even entire domains), you have to fix the code you use in your Delphi programs for generating and sending email automatically. In fact, GMail uses the SMTP protocol for sending email, but with a specific form of SSH encryption called TLS.

 

To make things even more complicated, different clients use different ports and configurations. In particular, Outlook (which providees no TLS support) has different settings. For Indy, you can follow the settings used by other client programs, like those provided for Thunderbird. More info on the various ports in this newsgroup post:

Gmail uses 25, 465 and 587 for SMTP, but since almost all isps block 25, 465 is the preferred SMTP with SSL for gmail, and 587 is the preferred SMTP with TLS port.

 

Here is the code of a demo program, with the DFM file and the actual Delphi code (which is the same you'd generally use):

 

  object IdSMTP1: TIdSMTP
    OnStatus = IdSMTP1Status
    IOHandler = IdSSLIOHandlerSocketOpenSSL1
    Host = 'smtp.gmail.com'
    Password = '***'
    Port = 587
    SASLMechanisms = <>
    UseTLS = utUseExplicitTLS
    Username = '****'
  end
  object IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL
    Destination = 'smtp.gmail.com:587'
    Host = 'smtp.gmail.com'
    MaxLineAction = maException
    Port = 587
    SSLOptions.Method = sslvTLSv1
    SSLOptions.Mode = sslmUnassigned
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0
    OnStatusInfo = IdSSLIOHandlerSocketOpenSSL1StatusInfo
  end
      

 

      IdSMTP1.Connect;
      IdSMTP1.Send(IdMessage1);
      IdSMTP1.Disconnect;
      

 

Where IdMessage1 is the message you want to send. Of course, you can both send messages to your gmail account or to any other account from you GMail account.

Notice: If you don't use "explicit TLS" you'll have to make extra initialization calls (like: IdSMTP1.SendCmd('STARTTLS', 220);). Finally, the IdSSLIOHandlerSocketOpenSSL1StatusInfo event handler produces a report like this:

      SSL status: "before/connect initialization"
      SSL status: "before/connect initialization"
      SSL status: "SSLv3 write client hello A"
      SSL status: "SSLv3 read server hello A"
      SSL status: "SSLv3 read server certificate A"
      SSL status: "SSLv3 read server done A"
      SSL status: "SSLv3 write client key exchange A"
      SSL status: "SSLv3 write change cipher spec A"
      SSL status: "SSLv3 write finished A"
      SSL status: "SSLv3 flush data"
      SSL status: "SSLv3 read finished A"
      SSL status: "SSL negotiation finished successfully"
      status: "SSL negotiation finished successfully"
      Cipher: name = [...]; description = [...] SSLv3 Kx=RSA Au=RSA  Enc=3DES(168)

 

 

我沒有測試gmail，鏈接hotmail，出錯，後來反覆嘗試，將idpop的useTLS屬性改成utUseImplicitTLS就順利經過了。

注意：SSL須要下載DLL支持：

http://www.indyproject.org/Sockets/SSL.EN.aspx