[EWS]Using Oauth authentication with EWS in Office 365

#NOTE - Disclaimer

#Following programming examples is for illustration only, without warranty either expressed or implied,

#including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. 

#This sample code assumes that you are familiar with the programming language being demonstrated and the tools 

#used to create and debug procedures. This sample code is provided for the purpose of illustration only and is 

#not intended to be used in a production environment. 

# Load ADAL Assemblies

$adal = "C:\Nugets\Microsoft.IdentityModel.Clients.ActiveDirectory.2.19.208020213\lib\net45\Microsoft.IdentityModel.Clients.ActiveDirectory.dll"

$adalforms = "C:\Nugets\Microsoft.IdentityModel.Clients.ActiveDirectory.2.19.208020213\lib\net45\Microsoft.IdentityModel.Clients.ActiveDirectory.WindowsForms.dll"

[System.Reflection.Assembly]::LoadFrom($adal)

[System.Reflection.Assembly]::LoadFrom($adalforms)

# Set Azure AD Tenant name; not used in this script

$adTenant = "domain.onmicrosoft.com"

# Set well-known client ID from Azure AD for this application

# It is in the form of a guid 1a2b34c5-da6b-7777-ef8a-g9h001i23456

$clientId = "client-id" 

# Set redirect URI from Azure AD for this application

#e.g https://myapp/reply

$redirectUri = "reply-url"

# Set Resource URI to Office 365 in this case

$resourceAppIdURI = "https://outlook.office365.com/"

# Set Authority to Azure AD Tenant

#http://stackoverflow.com/questions/26384034/how-to-get-the-azure-account-tenant-id

$authority = "https://login.windows.net/<tenant-id>/oauth2/authorize"

# Create Authentication Context tied to Azure AD Tenant

$authContext = New-Object "Microsoft.IdentityModel.Clients.ActiveDirectory.AuthenticationContext" -ArgumentList $authority

# Acquire token

$authResult = $authContext.AcquireToken($resourceAppIdURI, $clientId, $redirectUri, "Auto")

## Code From http://poshcode.org/624

## Create a compilation environment

$Provider=New-Object Microsoft.CSharp.CSharpCodeProvider

$Compiler=$Provider.CreateCompiler()

$Params=New-Object System.CodeDom.Compiler.CompilerParameters

$Params.GenerateExecutable=$False

$Params.GenerateInMemory=$True

$Params.IncludeDebugInformation=$False

$Params.ReferencedAssemblies.Add("System.DLL") | Out-Null

$TASource=@'

  namespace Local.ToolkitExtensions.Net.CertificatePolicy{

    public class TrustAll : System.Net.ICertificatePolicy {

      public TrustAll() { 

      }

      public bool CheckValidationResult(System.Net.ServicePoint sp,

        System.Security.Cryptography.X509Certificates.X509Certificate cert, 

        System.Net.WebRequest req, int problem) {

        return true;

      }

    }

  }

'@ 

$TAResults=$Provider.CompileAssemblyFromSource($Params,$TASource)

$TAAssembly=$TAResults.CompiledAssembly

## We now create an instance of the TrustAll and attach it to the ServicePointManager

$TrustAll=$TAAssembly.CreateInstance("Local.ToolkitExtensions.Net.CertificatePolicy.TrustAll")

[System.Net.ServicePointManager]::CertificatePolicy=$TrustAll

Import-Module -Name "C:\Program Files\Microsoft\Exchange\Web Services\2.2\Microsoft.Exchange.WebServices.dll"

$service = new-object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2010_SP2)

$service.Url = new-object System.Uri("https://outlook.office365.com/ews/exchange.asmx")

$service.Credentials  = new-object  Microsoft.Exchange.WebServices.Data.OAuthCredentials($authResult.AccessToken)

$inbox = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($service, [Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Inbox)

""

"Total items in Inbox : " + $inbox.TotalCount

$view = New-Object Microsoft.Exchange.WebServices.Data.ItemView(5)

$findItemResults = $service.FindItems([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Inbox,$view)

""

"Printing subject of last five items from Inbox:"

""

$item = [Microsoft.Exchange.WebServices.Data.Item]

$i = 1

foreach ($item in $findItemResults)

{

"Subject " + $i + ": " + $item.Subject

$i = $i + 1 

""

}