Alex.ps1

function Search-ABMEmails {
    [CmdletBinding()]
    param(
        [Parameter(Mandatory, ValueFromPipeline, ValueFromPipelineByPropertyName)]
        [string[]]
        $MessageId
    )
    begin{}
    process{
        foreach ($Id in $MessageId) {
            Get-MessageTrace -MessageId $Id |
                Select-Object -Property RecipientAddress, SenderAddress, Subject
        }
    }
    end{}
}

function Remove-ABMEmails {
    [CmdletBinding()]
    param(
        [Parameter(Mandatory, ValueFromPipeline, ValueFromPipelineByPropertyName)]
        [string[]]
        $MessageId
    )
    process {
        foreach ($Id in $MessageId) {
            $Trace = SearchABMEmails -MessageID $Id
            foreach ($Identity in $Trace) {
                Search-Mailbox -Identity $RecipientAddress -SearchQuery "Subject:$Subject AND From:$SenderAddress" -DeleteContent
            }
        }
    }
}