如何使用TIdIMAP4组件登录到Gmail帐户并获取INBOX邮箱中的邮件数?
解决方法
要获取Gmail收件箱中的邮件总数,您需要先使用凭据连接到Gmail IMAP服务器,然后选择Gmail的收件箱邮箱,并为所选邮箱读取
TotalMsgs
属性的值.
在代码中它可能如下所示(此代码需要OpenSSL,因此不要忘记将libeay32.dll和ssleay32.dll库放到项目可见的路径中;您可以在不同版本和平台上下载Indy的OpenSSL库from here
):
uses IdIMAP4,IdSSLOpenSSL,IdExplicitTLSClientServerBase; function GetGmailMessageCount(const UserName,Password: string): Integer; var IMAPClient: TIdIMAP4; OpenSSLHandler: TIdSSLIOHandlerSocketOpenSSL; begin Result := 0; IMAPClient := TIdIMAP4.Create(nil); try OpenSSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try OpenSSLHandler.SSLOptions.Method := sslvSSLv3; IMAPClient.IOHandler := OpenSSLHandler; IMAPClient.Host := 'imap.gmail.com'; IMAPClient.Port := 993; IMAPClient.UseTLS := utUseImplicitTLS; IMAPClient.Username := UserName; IMAPClient.Password := Password; IMAPClient.Connect; try if IMAPClient.SelectMailBox('INBOX') then Result := IMAPClient.MailBox.TotalMsgs; finally IMAPClient.Disconnect; end; finally OpenSSLHandler.Free; end; finally IMAPClient.Free; end; end; procedure TForm1.ConnectButtonClick(Sender: TObject); begin ShowMessage('Total count of messages in inbox: ' + IntToStr(GetGmailMessageCount('UserName@gmail.com','Password'))); end;
您可以选择下载包含用于32位应用程序的i386平台的OpenSSL v1.0.1c
库的demo project
(在Delphi 2009中编译).
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。