New-ManagementRoleAssignment
      -name:Impersonata
      -Role:ApplicationImpersonation
      -User:User
      
      
$ExchangeService.Credentials = New-Object Microsoft.Exchange.WebServices.Data.WebCredentials($Mailbox,$Password,$Domain)


$ExchangeService.UserDefaultCredentials = $true