Можно ли удалить вложения из писем?

Question

[Gynaecologist]

Здравствуйте, задача почистить ящики нерадивых пользователей.
Существует ли командлет (или иной способ) для удаления вложений из уже существующих писем?
Exchange 2019, не облако.

Answer 1

[MVV]

Иной способ существует: написать скрипт, проходящий по всем письмам в п/я и удалить из них вложения. Комндлета для EMS для этого нет (AFAIK), но в PowerShell для этого можно использовать EWS Managed API.

Только вот написать скрипт, да ещё чтобы он работал без ошибок и ничего не попортил в процессе отладки - это не так просто. Да и разрешения нужно ему дать (стандартных разрешений админинистратора не хватит). Так что лучше IMHO этим не заморачиваться, а для повышения радивости пользователей поставить им квоты на п/я: пусть чистят сами.

Comments

[Gynaecologist]

скрипт на PowerShell, реализующий сабж. Механизм удаления реализован через EWS, как вы и предполагали. Удаляет в письмах нужного размера за нужный период во всех подпапках у нужного пользователя все вложения. Авторство - ChatGPT. Практически не дописывал, работает отлично!

cls
# Загрузка сборки EWS Managed API
Add-Type -Path "C:\Program Files\Microsoft\Exchange\Web Services\2.2\Microsoft.Exchange.WebServices.dll"

# Создание объекта службы EWS
$service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2013)

# Указание учетных данных пользователя
$service.Credentials = New-Object Microsoft.Exchange.WebServices.Data.WebCredentials("----\-----", "-------")

# Указание URL сервера EWS
$service.Url = New-Object Uri("https://---.-------.ru/EWS/Exchange.asmx")

# Указание периода и диапазона размера письма
$startDate = [DateTime]::Parse("2022-01-01")
$endDate = [DateTime]::Parse("2023-01-01")
$minSize = 1048576   # Минимальный размер в байтах
$maxSize = 10485760  # Максимальный размер в байтах

# Функция для рекурсивного обхода всех папок
function SearchEmailsInFolder {
    param (
        [Microsoft.Exchange.WebServices.Data.Folder]$folder
    )

    # Создание фильтра по дате
    $dateFilter = New-Object Microsoft.Exchange.WebServices.Data.SearchFilter+IsGreaterThanOrEqualTo([Microsoft.Exchange.WebServices.Data.ItemSchema]::DateTimeSent, $startDate)
    $dateFilter2 = New-Object Microsoft.Exchange.WebServices.Data.SearchFilter+IsLessThanOrEqualTo([Microsoft.Exchange.WebServices.Data.ItemSchema]::DateTimeSent, $endDate)

    # Создание фильтра по размеру
    $sizeFilter = New-Object Microsoft.Exchange.WebServices.Data.SearchFilter+IsGreaterThanOrEqualTo([Microsoft.Exchange.WebServices.Data.ItemSchema]::Size, $minSize)
    $sizeFilter2 = New-Object Microsoft.Exchange.WebServices.Data.SearchFilter+IsLessThanOrEqualTo([Microsoft.Exchange.WebServices.Data.ItemSchema]::Size, $maxSize)

    # Объединение фильтров
    $searchFilterCollection = New-Object Microsoft.Exchange.WebServices.Data.SearchFilter+SearchFilterCollection([Microsoft.Exchange.WebServices.Data.LogicalOperator]::And)
    $searchFilterCollection.Add($dateFilter)
    $searchFilterCollection.Add($dateFilter2)
    $searchFilterCollection.Add($sizeFilter)
    $searchFilterCollection.Add($sizeFilter2)

    # Создание запроса на поиск элементов в текущей папке
    $itemView = New-Object Microsoft.Exchange.WebServices.Data.ItemView(50)  # Получаем до 50 элементов за один запрос
    $findResults = $folder.FindItems($searchFilterCollection, $itemView)

    # Вывод списка найденных писем
    foreach ($item in $findResults.Items) {
        $email = [Microsoft.Exchange.WebServices.Data.EmailMessage]::Bind($service, $item.Id)

        # Проверка на наличие вложений
        if ($email.HasAttachments -and $email.Attachments.Count -gt 0) {
            Write-Host "Письмо с вложениями найдено! Удаление вложений..."
            $attachmentsToRemove = @()

            foreach ($attachment in $email.Attachments) {
                try {
                    # Добавляем вложения в список для удаления
                    $attachmentsToRemove += $attachment
                    Write-Host "Вложение для удаления: " $attachment.Name
                } catch {
                    Write-Host "Ошибка при подготовке вложения для удаления: " $_.Exception.Message
                }
            }

            # Удаление вложений из письма
            foreach ($attachment in $attachmentsToRemove) {
                try {
                    $email.Attachments.Remove($attachment)  # Удаляем вложение из коллекции Attachments
                    Write-Host "Вложение удалено: " $attachment.Name
                } catch {
                    Write-Host "Ошибка при удалении вложения: " $_.Exception.Message
                }
            }

            # Сохранение изменений после удаления вложений
            $email.Update([Microsoft.Exchange.WebServices.Data.ConflictResolutionMode]::AlwaysOverwrite)
        }

        Write-Host "Тема: " $email.Subject
        Write-Host "Кому: " $email.ToRecipients.Address
        Write-Host "Дата отправки: " $email.DateTimeSent
        Write-Host "Размер: " $email.Size " байт"
        Write-Host "Папка: " $folder.DisplayName
        Write-Host "-------------------------"
    }

    # Поиск и обработка подкаталогов (рекурсивно)
    $folderView = New-Object Microsoft.Exchange.WebServices.Data.FolderView(100)  # Получаем до 100 папок за один запрос
    $subfolders = $folder.FindFolders($folderView)

    foreach ($subfolder in $subfolders.Folders) {
        SearchEmailsInFolder -folder $subfolder  # Рекурсивно вызываем функцию для каждой подкатегории
    }
}

# Получение корневой папки "MsgFolderRoot"
$rootFolder = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($service, [Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::MsgFolderRoot)

# Запуск поиска по всем папкам
SearchEmailsInFolder -folder $rootFolder

Answer 2

[Роман Безруков]

Если задача именно у в удалении вложений, то основной метод, как уже сказал MVV - это EWS Managed API (примеры)
Можно упростить задачу и использовать командлеты Search-Mailbox или связку New-ComplianceSearch/New-ComplianceSearchAction (для Exchange 2016/2019/M365) для централизованного удаления писем (если такой вариант действий подходит).
Я также двумя руками за квоты на почтовые ящики пользователей - это сильно их дисциплинирует, особенно когда срабатывает ограничение одновременно и на отправку и на прием (тут они быстро начинают вычищать старые письма).
В качестве дополнительных ограничений можно использовать транспортные правила, ограничить максимальный размер писем в конфиге транспорта организации Exchange (по умолчанию там 35МБ).

Answer 3

[Zettabyte]

Обычно письма и вложения хранятся как одно целое, причём UUE encoded.
Соответственно, если удалить вложения, письмо изменится, изменится и дата его отправки / получения.

Для отдельных писем такое раньше можно было делать в Thunderbird, но вот можно ли там это сделать массово - не подскажу.