$Mailboxes = Get-Mailbox -Result Unlimited
$Mailboxes | foreach{
    for ($i=0;$i -lt $_.EmailAddresses.Count; $i++)
    {
        $address = $_.EmailAddresses[$i]
        if ($address.IsPrimaryAddress -eq $false -AND $address.SmtpAddress -like "*" -AND $address.SmtpAddress -notlike "*@jalldredge.net" -AND $address.prefix -notmatch "SIP" -AND $address.prefix -notmatch "X400")
        {
            Write-output($_.alias + "," + $_.prefix + "," + $address.AddressString.ToString() | out-file c:\temp\MbxAddressesRemoved.txt -append )
            $_.EmailAddresses.RemoveAt($i)
            $i--
        }
    }
    Set-Mailbox -Identity $_.Identity -EmailAddresses $_.EmailAddresses
}