powershell-scripts/Get All Office 365 Email Addresses/GetAllOffice365EmailAddresses.ps1

123 lines
4.7 KiB
PowerShell
Raw Normal View History

<#
=============================================================================================
Name: List all Office 365 email address using PowerShell
Version: 1.0
Website: m365scripts.com
Script by: M365Scripts Team
For detailed script execution: https://m365scripts.com/microsoft365/get-all-office-365-email-address-and-alias-using-powershell
============================================================================================
#>
Param
(
[Parameter(Mandatory = $false)]
[string]$UserName,
[string]$Password,
[switch]$UserMailboxOnly,
[switch]$SharedMailboxOnly,
[Switch]$DistributionGroupOnly,
[Switch]$DynamicDistributionGroupOnly,
[switch]$GroupMailboxOnly,
[switch]$GuestOnly,
[switch]$ContactOnly
)
Function Connect_Exo
{
#Check for EXO v2 module inatallation
$Module = Get-Module ExchangeOnlineManagement -ListAvailable
if($Module.count -eq 0)
{
Write-Host Exchange Online PowerShell V2 module is not available -ForegroundColor yellow
$Confirm= Read-Host Are you sure you want to install module? [Y] Yes [N] No
if($Confirm -match "[yY]")
{
Write-host "Installing Exchange Online PowerShell module"
Install-Module ExchangeOnlineManagement -Repository PSGallery -AllowClobber -Force
Import-Module ExchangeOnlineManagement
}
else
{
Write-Host EXO V2 module is required to connect Exchange Online.Please install module using Install-Module ExchangeOnlineManagement cmdlet.
Exit
}
}
Write-Host Connecting to Exchange Online...
#Storing credential in script for scheduling purpose/ Passing credential as parameter - Authentication using non-MFA account
if(($UserName -ne "") -and ($Password -ne ""))
{
$SecuredPassword = ConvertTo-SecureString -AsPlainText $Password -Force
$Credential = New-Object System.Management.Automation.PSCredential $UserName,$SecuredPassword
Connect-ExchangeOnline -Credential $Credential
}
else
{
Connect-ExchangeOnline
}
}
Connect_Exo
if($UserMailboxOnly.IsPresent)
{$RecipientType="UserMailbox"}
elseif($SharedMailboxOnly.IsPresent)
{$RecipientType="SharedMailbox"}
elseif($DistributionGroupOnly.IsPresent)
{$RecipientType="MailUniversalDistributionGroup"}
elseif($GroupMailboxOnly.IsPresent)
{$RecipientType="GroupMailbox"}
elseif($DynamicDistributionGroupOnly.IsPresent)
{$RecipientType="DynamicDistributionGroup"}
elseif($GuestOnly.IsPresent)
{$RecipientType="GuestMailUser"}
elseif($ContactOnly.IsPresent)
{$RecipientType="MailContact"}
else
{$RecipientType='RoomMailbox', 'LinkedRoomMailbox', 'EquipmentMailbox', 'SchedulingMailbox',
'LegacyMailbox', 'LinkedMailbox', 'UserMailbox', 'MailContact', 'DynamicDistributionGroup', 'MailForestContact', 'MailNonUniversalGroup', 'MailUniversalDistributionGroup', 'MailUniversalSecurityGroup',
'RoomList', 'MailUser', 'GuestMailUser', 'GroupMailbox', 'DiscoveryMailbox', 'PublicFolder', 'TeamMailbox', 'SharedMailbox', 'RemoteUserMailbox', 'RemoteRoomMailbox', 'RemoteEquipmentMailbox',
'RemoteTeamMailbox', 'RemoteSharedMailbox', 'PublicFolderMailbox', 'SharedWithMailUser'}
$ExportResult=""
$ExportResults=@()
$OutputCSV=".\Office365EmailAddressesReport_$((Get-Date -format yyyy-MMM-dd-ddd` hh-mm` tt).ToString()).csv"
$Count=0
#Get all Email addresses in Microsoft 365
Get-Recipient -ResultSize Unlimited -RecipientTypeDetails $RecipientType | ForEach-Object {
$Count++
$DisplayName=$_.DisplayName
Write-Progress -Activity "`n Retrieving email addresses of $DisplayName.."`n" Processed count: $Count"
$RecipientTypeDetails=$_.RecipientTypeDetails
$PrimarySMTPAddress=$_.PrimarySMTPAddress
$Alias= ($_.EmailAddresses | Where-Object {$_ -clike "smtp:*"} | ForEach-Object {$_ -replace "smtp:",""}) -join ","
If($Alias -eq "")
{
$Alias="-"
}
#Export result to CSV file
$ExportResult=@{'Display Name'=$DisplayName;'Recipient Type Details'=$RecipientTypeDetails;'Primary SMTP Address'=$PrimarySMTPAddress;'Alias'=$Alias}
$ExportResults= New-Object PSObject -Property $ExportResult
$ExportResults | Select-Object 'Display Name','Recipient Type Details','Primary SMTP Address','Alias' | Export-Csv -Path $OutputCSV -Notype -Append
}
#Open output file after execution
If($Count -eq 0)
{
Write-Host No objects found
}
else
{
Write-Host `nThe output file contains $Count records
if((Test-Path -Path $OutputCSV) -eq "True")
{
Write-Host `nThe Output file availble in $OutputCSV -ForegroundColor Green
$Prompt = New-Object -ComObject wscript.shell
$UserInput = $Prompt.popup("Do you want to open output file?",`
0,"Open Output File",4)
If ($UserInput -eq 6)
{
Invoke-Item "$OutputCSV"
}
}
}
#Disconnect Exchange Online session
Disconnect-ExchangeOnline -Confirm:$false -InformationAction Ignore -ErrorAction SilentlyContinue