Как автоматически загрузить только заголовки писем, отправленных в текущий день, из папки "Отправленные" в Gmail через IMAP на Delphi и Pascal

Delphi , Интернет и Сети , E-mail

Вопрос, поставленный пользователем, касается возможности загрузки только тех заголовков писем, которые были отправлены в текущий день, из папки "Отправленные" в Gmail. Стандартный подход, предложенный в принятом ответе на связанный вопрос, заключается в загрузке всех заголовков писем в папке, а затем фильтрации уже загруженных данных. Однако, это может быть неэффективным и требовать значительных ресурсов, если в папке находится большое количество сообщений.

Подтвержденный ответ

Для решения этой задачи можно использовать функционал IMAP протокола, который позволяет выполнять поиск сообщений по различным критериям. В частности, можно использовать команду SEARCH UID для поиска сообщений, отправленных в текущий день. Для этого необходимо выбрать соответствующую папку и выполнить поиск, используя ключ поиска skSentSince с указанием текущей даты.

Пример кода на Object Pascal (Delphi)

program FetchRecentSentEmails;

{$APPTYPE CONSOLE}

uses
  IdGlobal,
  IdIMAP4;

var
  IMAP: TIdIMAP4;
  EmailDate, Today: TDateTime;
  SearchRec: TIdIMAP4SearchRec;
  SearchRes: TIdIMAP4SearchResult;
begin
  Today := Now;
  with IMAP do
  begin
    Username := 'your-email@gmail.com';
    Password := 'your-password';
    Connect;
    if SelectMailBox('[Gmail]/Sent Mail') then
    begin
      SearchRec := [skSentSince, Today];
      SearchRes := Search(SearchRec);
      if SearchRes.Count > 0 then
      begin
        // Загрузить только сообщения с UID, найденными в SearchRes
        for var SearchResult in SearchRes do
        begin
          // Загрузка заголовков или полного тела сообщения
          // Например, UIDRetrieveHeader(SearchResult.UID);
        end;
      end;
    end;
    Disconnect;
  end;
end.

Альтернативный ответ

В случае, если прямое использование команды SEARCH UID по каким-то причинам невозможно, можно рассмотреть альтернативный подход, который заключается в отслеживании новых сообщений с помощью статусов сообщений, таких как mfRecent. Это позволит загружать только те сообщения, которые были получены после последнего обращения к серверу.

program FetchRecentSentEmailsWithFlags;

{$APPTYPE CONSOLE}

uses
  IdGlobal,
  IdIMAP4;

var
  IMAP: TIdIMAP4;
  Status: TIdStatus;
begin
  with IMAP do
  begin
    Username := 'your-email@gmail.com';
    Password := 'your-password';
    Connect;
    if SelectMailBox('[Gmail]/Sent Mail') then
    begin
      Status := StatusMailbox;
      if Status.Recent then
      begin
        // Загрузить сообщения с флагом mfRecent
        // Например, UIDRetrieveAllEnvelopes;
      end;
    end;
    Disconnect;
  end;
end.

Заключение

Использование IMAP поиска для фильтрации сообщений перед их загрузкой является предпочтительным решением, так как позволяет снизить нагрузку на клиент и ускорить процесс получения данных. Приведенные примеры кода демонстрируют, как можно реализовать эту функциональность в приложениях на Delphi и Pascal.

Создано по материалам из источника по ссылке.

Запрос касается автоматизации загрузки заголовков писем, отправленных в текущий день из папки 'Отправленные' в Gmail, через IMAP-протокол, с использованием языков программирования Delphi и Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: E-mail ::