Powershell Microsoft.Exchange.WebServices get attchment i mail

Add-Type -Path "C:\Program Files\Microsoft\Exchange Server\V15\Bin\Microsoft.Exchange.WebServices.dll"

$EmailAccount = "xxxxx@xxxxx.dk"

$EWS = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2013_SP1)
$EWS.AutodiscoverUrl($EmailAccount)

$inbox = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($ews,[Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Inbox)
$mailitems = $inbox.FindItems(10)
$mailitems | ForEach {$_.Load()}

foreach ($mail in $mailitems)
{
if ($mail.HasAttachments)
{
  $ZipFileName = $mail.Subject
  foreach ($attach in $mail.Attachments)
  {
  $attach.Load()
  $FileName = "c:\temp\? + $attach.Name.ToString()
  $FileName
  $fiFile = new-object System.IO.FileStream($FileName, [System.IO.FileMode]::Create)
  $fiFile.Write($attach.Content, 0, $attach.Content.Length)
  $fiFile.Close()
 
  $shell = new-object -com shell.application
  $zip = $shell.NameSpace(?$FileName?)
  foreach($item in $zip.items())
  {
    $shell.Namespace(?c:\temp\?).copyhere($item)
    } 
 
  }
  }
}