Purge messages with search mailbox

Connect-ExchangeOnline -SkipLoadingCmdletHelp

param(
    [string] $StartDate = "1-Jan-2019",
    [string] $EndDate = "13-Sep-2024"
)
 
If ($DeleteItems -ne $True -and $DeleteItems -ne $False) { Write-Host "No mode specified - please rerun" ; break }
 
$Status = Get-ConnectionInformation -ErrorAction SilentlyContinue
If (!($Status)) {
  Connect-ExchangeOnline -SkipLoadingCmdletHelp
}
 
Clear-Host
Switch ($DeleteItems) {
  $True {
     $Mode = "delete"
     $SearchMessage = "Searching mailbox to delete items" }
  $False {
     $Mode = "estimate"
     $SearchMessage = "Searching mailbox to estimate items" }
} #EndSwitch
 
# Some information to identify the messages we want to purge
$BadSender = "no-reply@microsoft.com"
# Date range for the search - make this as precise as possible
$BodyText = "Your month in review"
$Subject = "MyAnalytics"
 
$SearchQuery = "From:" + $BadSender + " Sent:" + $StartDate + ".." + $EndDate
If ([string]::IsNullOrWhiteSpace($BodyText) -eq $False) { $SearchQuery = $SearchQuery + ' Body: "*' + $BodyText + '*"' }
If ([string]::IsNullOrWhiteSpace($Subject) -eq $False) { $SearchQuery = $SearchQuery + ' Subject:"*' + $Subject + '*"' }
 
Write-Host ("Finding user and shared mailboxes to run query {0} against in (1) mode" -f $SearchQuery, $Mode)
[array]$Mbx = Get-ExoMailbox -RecipientTypeDetails UserMailbox, SharedMailbox -ResultSize Unlimited
Clear-Host
$CSVOutput = "C:\temp\ExoSearchRemovals.CSV"
$Report = [System.Collections.Generic.List[Object]]::new();
$Successes=0
$Failures=0
$TotalItems=0
$ProgDelta = 100/($Mbx.Count); $CheckCount = 0; $MbxNumber = 0
ForEach ($M in $Mbx) {
   $MbxNumber++
   $MbxStatus = $M.DisplayName + " ["+ $MbxNumber +"/" + $Mbx.Count + "]"
   Write-Progress -Activity $SearchMessage -Status $MbxStatus -PercentComplete $CheckCount
   $CheckCount += $ProgDelta
 
   If ($DeleteItems -eq $True) { #Go ahead and delete items
      $SearchOutput = Search-Mailbox -Identity $M.ExternalDirectoryObjectId -SearchQuery $SearchQuery -DeleteContent -Force -WarningAction SilentlyContinue -SearchDumpster
    }
    ElseIf ($DeleteItems -eq $False) { # Estimate Search
      $SearchOutput = Search-Mailbox -Identity $M.ExternalDirectoryObjectId -SearchQuery $SearchQuery -EstimateResultOnly -Force -WarningAction SilentlyContinue -SearchDumpster
   }
   Switch ($SearchOutput.Success) {
     "True" { # Success
        $Successes++
        $TotalItems = $TotalItems + $SearchOutput.ResultItemsCount
        $ReportLine = [PSCustomObject][Ordered]@{
          Name     = $M.DisplayName
          UPN      = $M.UserPrincipalName
          ObjectId = $M.ExternalDirectoryObjectId
          Items    = $SearchOutput.ResultItemsCount
          ItemSize = $SearchOutput.ResultItemsSize.Substring(0,$SearchOutput.ResultItemsSize.IndexOf("("))
          Status   = "Success"
          Mode     = $Mode
          Date     = (Get-Date -format g)}
     $Report.Add($ReportLine) }
     "False" { # Whoops!
        $Failures++
        $ReportLine = [PSCustomObject][Ordered]@{
          Name     = $M.DisplayName
          UPN      = $M.UserPrincipalName
          ObjectId = $M.ExternalDirectoryObjectId
          Items    = 0
          ItemSize = 0
          Status   = "Failure"
          Mode     = $Mode
          Date     = (Get-Date -format g)}
       $Report.Add($ReportLine) }
     } # End Switch
 
} # End ForEach
Switch ($DeleteItems) {
   $True   { Write-Host ("{0} mailboxes processed and {1} items removed." -f $Mbx.Count, $TotalItems) }
   $False  { Write-Host ("{0} mailboxes processed and {1} items found. " -f $Mbx.Count, $TotalItems) }
}
$Report | Where-Object {$_.Items -gt 0} | Out-GridView
Export-CSV -Notypeinformation $CSVOutput