delphi - 如何使用TIdIMAP4登录Gmail帐户并获取邮箱中的邮件数量？

Question

如何使用 TIdIMAP4 组件登录 Gmail 帐户并获取 INBOX 邮箱中的邮件数量？

Answer 1

要获取 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;

您可以选择下载demo project其中包括OpenSSL v1.0.1c用于 32 位应用程序的 i386 平台的库(在 Delphi 2009 中编译)。