## deleteemail.ps1: Delete all email from a particular sender ## deletes emails from an IMAP or POP server. ## Returns a collection of objects containing information about deleted emails (from, to, subject) or mailboxes (name, flags) in a mail server. ##  ## By default, IMAP will be used.  To use pop, add set the pop argument to 1.  param( [string] $server = "",
  [System.Management.Automation.PSCredential] $cred,
  [string] $sender = "someperson@somewhere.com",
  [int] $pop = 0,
  [int] $imapexpunge = 0
  )

function get-emailaddress($header) {
  [int]$index = $header.IndexOf("<")
  if ($index -gt -1) {
    $retval = $header.Substring($index+1)
    $index = $retval.IndexOf(">")
    $retval = $retval.Remove($index)
    return $retval;
  }
  else {
    return $header;
  }
}

if ($server -eq "") {
  $server = read-host "Mail Server [localhost]"   if ($server -eq "") { $server = "localhost" }
} 

if ($pop -eq 1) {
  $msgs = (get-pop -server $server -cred $cred)
}
else {
  $msgs = (get-imap -server $server -cred $cred)
}

Foreach ($msg in $msgs) { 
  $address = get-emailaddress($msg.From)
  if ($address -eq $sender) {
    $msg
    if ($pop) {            
      get-pop -server $server -cred $cred -deletemessage $msg.Id
    }
    else {
      set-imap -server $server -cred $cred -message $msg.Id -expunge:$imapexpunge -delete
    }
  }
}
    
trap{
  write-host "Exception occurred (please find more information below), script execution was terminated."   break }