diff --git a/Get All Office 365 Email Addresses/GetAllOffice365EmailAddresses.ps1 b/Get All Office 365 Email Addresses/GetAllOffice365EmailAddresses.ps1 new file mode 100644 index 0000000..a8ef2a8 --- /dev/null +++ b/Get All Office 365 Email Addresses/GetAllOffice365EmailAddresses.ps1 @@ -0,0 +1,123 @@ +<# +============================================================================================= +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 \ No newline at end of file