2.8.1.6. Удаление старых писем из почтового ящика

Внимание!

При большом объёме почтового ящика скрипт может не успеть удалить письма за один проход и может потребоваться повторный запуск.

Скрипт позволяет удалять письма за определенный интервал времени, который можно указать относительно текущего дня или фиксированные даты.

<?php
$Host           = isset($argv[1]) ? $argv[1] : "mail.adm.tools:143";
$User           = isset($argv[2]) ? $argv[2] : "user@example.com";
$Password       = isset($argv[3]) ? $argv[3] : "example_password";
$Before         = isset($argv[4]) ? date("Y-m-d", strtotime($argv[4])) :  date("Y-m-d", strtotime("-1 year"));
$After          = isset($argv[5]) ? date("Y-m-d", strtotime($argv[5])) :  date("Y-m-d", strtotime("1970-01-01")); //Older date
 
$Before = 'BEFORE "' . $Before . '"';
$After = 'SINCE "' . $After . '"';
 
$mbox = imap_open("{" . $Host . "/novalidate-cert}INBOX", $User, $Password) or die("Can't connect: " . imap_last_error());
 
try {
    if (empty(imap_check($mbox))) {
        throw new Exception("Error is occurred");
    }
    $emails = imap_search($mbox, "$Before $After");
    if (empty($emails)) {
        throw new Exception("Don't have mail " . strtolower($Before));
    }
    foreach ($emails as $email_id) {
        imap_delete($mbox, $email_id);
        preg_match_all(
            '/([^: ]+): (.+?(?:\r\n\s(?:.+?))*)\r\n/m',
            imap_fetchheader($mbox, $email_id),
            $matches
        );
        $headers = array_combine($matches[1], $matches[2]);
        print_r("$email_id : " . imap_utf8($headers['Subject']) . " => " . $headers['Date'] . "\n<br>");
    }
    imap_expunge($mbox);
    echo "Deleted " . count($emails) . " letters " . strtolower($Before) . "\n";
} catch (Exception $e) {
    echo $e->getMessage(), "\n";
}

Необходимые для работы скрипта данные можно указать как в самом скрипте, так и в командной строке при запуске:

Host — адрес и порт IMAP-сервера.
User — название почтового ящика.
Password — пароль почтового ящика.
Before — письма ранее указанной даты будут удалены. Указать дату можно заменив -1 year на конкретную дату, в формате ГГГГ-ММ-ДД (2010-02-23) или отнимая от текущей даты определенное количество времени в формате -1 year или -1 month или -1 day.
After — письма позже указанной даты будут удалены. Указать дату можно заменив 1970-01-01 на конкретную дату, в формате ГГГГ-ММ-ДД (2010-02-22) или отнимая от текущей даты определенное количество времени в формате -1 year или -1 month или -1 day.

Запуск скрипта в консоли или задаче cron выполняется командой вида:

/usr/local/bin/php /home/example/file.php mail.adm.tools:143 admin@example.com "password" "2022-03-24" "2015-04-28"

2.8.1.6. Удаление старых писем из почтового ящика

Внимание!

Содержание