Report teams channel email addresses

Connect-MgGraph -AppId $AppId -TenantId $TenantId -ClientSecret $AppSecret -NoWelcome

param(
    [string] $TenantId = "",
    [string] $AppId = "s716b32c-0edb-48be-9385-30a9cfd96155"
)
 
Clear-Host
# Define the values applicable for the application used to connect to the Graph (these are specific to a tenant)
$AppSecret = 'j_rkvIn1oZ1cNceUBvJ2or1lrrIsb*:='
# Construct URI and body needed for authentication
$uri = "https://login.microsoftonline.com/$tenantId/oauth2/v2.0/token"
$body = @{
    client_id     = $AppId
    scope         = "https://graph.microsoft.com/.default"
    client_secret = $AppSecret
    grant_type    = "client_credentials"
}
 
# Get OAuth 2.0 Token
$tokenRequest = Invoke-WebRequest -Method Post -Uri $uri -ContentType "application/x-www-form-urlencoded" -Body $body -UseBasicParsing
 
# Unpack Access Token
$token = ($tokenRequest.Content | ConvertFrom-Json).access_token
 
# Base URL
$uri = "https://graph.microsoft.com/beta/"
$headers = @{Authorization = "Bearer $token"}
$ctype = "application/json"
 
# Create list of Teams in the tenant
Write-Host "Fetching list of Teams in the tenant"
[array]$Teams = Invoke-WebRequest -Method GET -Uri "$($uri)groups?`$filter=resourceProvisioningOptions/Any(x:x eq 'Team')" -ContentType $ctype -Headers $headers | ConvertFrom-Json
$TeamsHash = @{}
$Teams.Value.ForEach( {
   $TeamsHash.Add($_.Id, $_.DisplayName) } )
$NextLink = $Teams.'@Odata.NextLink'
While ($null -ne $Nextlink) {
   $Teams = Invoke-WebRequest -Method GET -Uri $NextLink -ContentType $ctype -Headers $headers | ConvertFrom-Json
   $Teams.Value.ForEach( {
      $TeamsHash.Add($_.Id, $_.DisplayName) } )
   $NextLink = $Teams.'@odata.NextLink' }
 
# All teams found...
Clear-Host
Write-Host "Processing" $TeamsHash.Count "Teams..."
# Loop through each team to examine its channels and discover if any are email-enabled
$i = 0; $EmailAddresses = 0; $Report = [System.Collections.Generic.List[Object]]::new() # Create output file for report; $ReportLine = $Null
ForEach ($Team in $TeamsHash.Keys) {
      $i++
      $TeamId = $($Team); $TeamDisplayName = $TeamsHash[$Team]  #Populate variables to identify the team
      $ProgressBar = "Processing Team " + $TeamDisplayName + " (" + $i + " of " + $TeamsHash.Count + ")"
      Write-Progress -Activity "Checking Teams Information" -Status $ProgressBar -PercentComplete ($i/$TeamsHash.Count*100)
      Try { # Get owners of the team
       $TeamOwners = Invoke-WebRequest -Method GET -Uri "$($uri)groups/$($TeamId)/owners" -ContentType $ctype -Headers $headers | ConvertFrom-Json
       If ($TeamOwners.Value.Count -eq 1) {$TeamOwner = $TeamOwners.Value.DisplayName}
       Else { # More than one team owner, so let's split them out and make the string look pretty
         $Count = 1
         ForEach ($Owner in $TeamOwners.Value) {
            If ($Count -eq 1) {  # First owner in the list
               $TeamOwner = $Owner.DisplayName
               $Count++ }
            Else { $TeamOwner = $TeamOwner + "; " + $Owner.DisplayName }
       }}}
     Catch {Write-Host "Unable to get owner information for team" $TeamDisplayName }
 
     Try {  # Fetch list of channels for the team
      $Channels = Invoke-WebRequest -Method GET -Uri "$($uri)teams/$($TeamId)/channels" -ContentType $ctype -Headers $headers | ConvertFrom-Json
      ForEach ($Channel in $Channels.Value) {
       If (-Not [string]::IsNullOrEmpty($Channel.Email)) {
          $EmailAddresses++
          $ReportLine = [PSCustomObject][Ordered]@{
              Team                = $TeamDisplayName
              TeamEmail           = $Team.Mail
              Owners              = $TeamOwner
              Channel             = $Channel.DisplayName
              ChannelDescription  = $Channel.Description
              ChannelEmailAddress = $Channel.Email
              TeamId              = $TeamId  }
            # And store the line in the report object
            $Report.Add($ReportLine) }}
     }
    Catch { Write-Host "Unable to fetch channels for" $Team.DisplayName }
}
$Report | Sort-Object Team | Export-CSV C:\Temp\TeamsChannelsWithEmailAddress.Csv -NoTypeInformation
Write-Host $EmailAddresses "mail-enabled channels found. Details are in C:\Temp\TeamsChannelsWithEmailAddress.Csv"
 
# Graph SDK version
 
[array]$Teams = Get-MgGroup -Filter "resourceProvisioningOptions/Any(x:x eq 'Team')" -All
If (!($Teams)) {Write-Host "Can't find any teams - exiting"; break}
$Teams = $Teams | Sort-Object DisplayName
$ChannelsList = [System.Collections.Generic.List[Object]]::new()
[int]$i = 0
ForEach ($Team in $Teams) {
   $i++
   $ProgressBar = "Processing Team " + $Team.DisplayName + " (" + $i + " of " + $Teams.Count + ")"
   Write-Progress -Activity "Checking Teams Information" -Status $ProgressBar -PercentComplete ($i/$Teams.Count*100)
   Try {
      [array]$Channels = Get-MgTeamChannel -Teamid $Team.Id -ErrorAction SilentlyContinue
      ForEach ($Channel in $Channels) {
      If ($Channel.Email) {
         $ChannelLine = [PSCustomObject][Ordered]@{  # Write out details of the private channel and its members
            Team           = $Team.DisplayName
            Channel        = $Channel.DisplayName
            Description    = $Channel.Description
            EMail          = $Channel.Email
            Id             = $Channel.Id }
          $ChannelsList.Add($ChannelLine) }
      }  #End Foreach Channel
   } Catch {
      Write-Output ("Whoops - had a problem processing the {0} team" -f $Team.displayName)
   }
} # End ForEach Team
# Elminate the General channel
$TeamsEmailAddresses = $ChannelsList | Where-Object {$_.Email -Like "*.teams.ms"}
$TeamsEmailAddresses | Out-GridView