問題 : 實際上有信件, 但是程式說 0 個信件
Google IdSSLIOHandlerSocketOpenSSL1 IdPOP3 文章只有 3 篇, 測試過都是這樣
請問程式哪裡出錯了 ? (附件有完整程式, 記得將帳號密碼改為自己的)


<textarea class="delphi" rows="10" cols="60" name="code"> { 程式 : 列出Gmail信箱中信件主旨 開發工具 : Delphi 2007 Enterprise for Win32 參考 : http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_22020179.html 元件 : Standard 面板 TListBox 和 TButton , Indy Clients 面板 TIdPOP3 , Indy Misc 面板 TIdMessage, Indy I/O Handlers 面板 TIdSSLIOHandlerSocketOpenSSL 程式庫 : 請去 http://indy.fulgan.com/SSL/ 下載 indy_OpenSSL096m.zip , 解壓縮 libeay32.dll 和 ssleay32.dll 放到相同目錄 參考文章 : http://www.blogger.com/feeds/22521822/posts/default } procedure TForm1.Button1Click(Sender: TObject); var n,i:integer; begin IdPOP31.IOHandler := IdSSLIOHandlerSocketOpenSSL1; IdPOP31.Host := 'pop.gmail.com'; IdPOP31.Username := '請填自己帳號'; // 請填自己帳號 IdPOP31.UseTLS := utUseImplicitTLS; IdPOP31.Password := '請填自己帳號'; // 請填自己密碼 IdPOP31.Port := 995; IdSSLIOHandlerSocketOpenSSL1.Host := 'pop.gmail.com'; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv2; IdPOP31.Connect; n:=IdPOP31.CheckMessages; listbox1.Items.Add(format('There are %d messages',[n])); for i:=0 to n-1 do begin IdPOP31.Retrieve(i,IdMessage1); listbox1.Items.Add(format('%d - %s',[i,IdMessage1.Subject])); application.ProcessMessages; end; IdPOP31.Disconnect; end; end. </textarea>

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

附加檔案：46b02d0207176_GmailPOP3test.zip

這跟 HINET WEBMAIL 是一樣的作法的.
Webmail 的信件是從 POP 拷貝一份得來的.

檢查gmail 設定

[Forwarding and POP] -> [When messages are accessed with POP] 有三個選項
所以你 POP 裡的動作並不會影響 webmail, 除非你選用第三選項[Delete from Gmail copy]吧.

編輯記錄

>檢查gmail 設定
小弟平常用 Outlook Express 收發 Gmail 信件, 所以Gmail 確實可以用POP收信
如果帳號或密碼錯誤, 會蹦出錯誤訊息, 沒有蹦出表示正確
上面程式並沒有要收下後刪除, 只是列出目前有幾封
但是程式都說 0 封 (實際上不是)

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

編輯記錄

應該是GMAIL的pop功能也要開啟的問題
而Gmail於10月5日已開啟，不用手動在開，你再試試

POP 下載: 更多資訊

1. 狀態: 所有自 10月5日 起收到的郵件都已啟用 POP 功能

想要問如何讀Yahoo的信箱，除了port = 110及host = pop.mail.yahoo.com.tw還要改什麼才能讀