Report teams emojis

Connect-MgGraph -Scopes "User.ReadBasic.All"

param(
    [int] $LookbackDays = 360,
    [string] $StartDate = (Get-Date).AddDays(-$LookbackDays),
    [string] $EndDate = (Get-Date).AddDays(1)
)
 
Connect-MgGraph -Scopes "User.ReadBasic.All"
 
$UserInfoAvailable = $false
 
# Fetching user information
[array]$Users = Get-MgUser -All -PageSize 999 -Property DisplayName, UserPrincipalName
 
If ($Users) {
    Write-Output ("Fetched {0} users from the tenant." -f $Users.Count)
    $UserHash = @{}
    ForEach ($User in $Users) {
        $UserHash.Add($User.UserPrincipalName, $User.DisplayName)
    }
    $UserInfoAvailable = $true
 
}   Else {
    Write-Output "No users found in the tenant."
    Break
}
 
# Check if Exchange Online is already connected - otherwise connect
If ($Null -eq (Get-ConnectionInformation)) {
    Write-Host "Connecting to Exchange Online..."
    Connect-ExchangeOnline -ShowBanner:$false
}
 
# Build hash table to resolve reaction name to the emoji shown in Teams
$Emojis = @{}
$Emojis.Add("head shaking vertically", "🤦‍♂️")
$Emojis.Add("head shaking horizontally", "🤦‍♀️")
$Emojis.Add("thumbs up", "👍")
$Emojis.Add("thumbs down", "👎")
$Emojis.Add("like", "👍")
$Emojis.Add("heart", "❤️")
$Emojis.Add("laugh", "😂")
$Emojis.Add("peekingeye", "🙈")
$Emojis.Add("surprised", "😮")
$Emojis.Add("sad", "😢")
$Emojis.Add("saddog", "🐶")
$Emojis.Add("angry", "😠")
$Emojis.Add("yes-tone1", "👍🏻")
$Emojis.Add("blankface", "😐")
$Emojis.Add("bowing", "🙇")
$Emojis.Add("call", "📞")
$Emojis.Add("cool", "😎")
$Emojis.Add("cry", "😢")
$Emojis.Add("coolkoala", "🦘")
$Emojis.Add("eyeinspeechbubble", "👁️‍🗨️")
$Emojis.Add("fire", "🔥")
$Emojis.Add("fistbump", "👊")
$Emojis.Add("follow", "👣")
$Emojis.Add("grinningfacewithsmilingeyes", "😁")
$Emojis.Add("handsinair", "🙌")
$Emojis.Add("heartblue", "💙")
$Emojis.Add("hearteyes", "😍")
$Emojis.Add("happyface", "😊")
$Emojis.Add("loudlycrying", "😭")
$Emojis.Add("personmotorwheelchairright2tone1", "🧑🏻‍🦼")
$Emojis.Add("rainbowsmileyface", "🌈")
$Emojis.Add("clap", "👏")
$Emojis.Add("smilingfacewithtear", "🥲")
$Emojis.Add("squintingfacewithtongue", "😜")
$Emojis.Add("2714_heavycheckmark", "✔️")
$Emojis.Add("mickeymouse;0-neu-d1-63cc7d1c9164d9a1b23ae85714dd20fa", "🐭")
$Emojis.Add("think", "🤔")
$Emojis.Add("1f51c_soon", "🔜")
$Emojis.Add("1f6a2_ship", "🚢")
$Emojis.Add("1f4ce_paperclip", "📎")
$Emojis.Add("relieved", "😌")
$Emojis.Add("rofl", "🤣")
$Emojis.Add("peekingeyes", "🙈")
$Emojis.Add("1f3a8_artistpalette", "🎨")
$Emojis.Add("1f458_kimono", "👘")
$Emojis.Add("1f4a4_zzz", "💤")
$Emojis.Add("1f4af_hundredpointssymbol", "💯")
$Emojis.Add("1f603_grinningfacewithbigeyes", "😃")
$Emojis.Add("1f920_facewithcowboyhat", "🤠")
$Emojis.Add("1f627_anguishedface", "😧")
$Emojis.Add("1f911_moneymouthface", "🤑")
$Emojis.Add("1f915_facewithheadbandage", "🤕")
$Emojis.Add("1f4a1_electriclightbulb", "💡")
$Emojis.Add("1f917_huggingface", "🤗")
$Emojis.Add("1f97a_pleadingface", "🥺")
$Emojis.Add("1f92a_zanyface", "🤪")
$Emojis.Add("1f9b7_tooth", "🦷")
$Emojis.Add("203c_doubleexclamationmark", "‼️")
$Emojis.Add("1f440_eyes", "👀")
$Emojis.Add("2795_heavyplussign", "➕")
$Emojis.Add("2796_heavyminussign", "➖")
$Emojis.Add("1f389_partypopper", "🎉")
$Emojis.Add("screamingfear", "😱")
$Emojis.Add("womanraisinghand", "🙋‍♀️ ")
$Emojis.Add("support", "🆘")
$Emojis.Add("callme", "🧘‍♂️")
$Emojis.Add("Vampire-tone3", "🧛🏽‍♂️")
$Emojis.Add("sweatgrinning", "😅")
$Emojis.Add("ttm", "🈶")
$Emojis.Add("oreoyum", "🍪")
$Emojis.Add("victory", "✌️")
$Emojis.Add("vulcansalute", "🖖")
$Emojis.Add("rainbowsmile", "🌈")
$Emojis.Add("smile", "😄")
$Emojis.Add("womandeveloper", "👩‍💻")
$Emojis.Add("whew", "😮‍💨")
 
# Find audit records for Teams emoji reactions
Write-Output "Looking for audit records..."
[array]$Records = Search-UnifiedAuditLog -StartDate $StartDate -EndDate $EndDate -Operations ReactedToMessage -Formatted -SessionCommand ReturnLargeSet -ResultSize 5000
If ($Records.Count -eq 0) {
    Write-Output "No Teams emoji reaction records found"
    Break
}   Else {
    $Records = $Records | Sort-Object Identity -Unique
    Write-Output ("Found {0} Teams emoji reaction records to process..." -f $Records.Count)
    $Report = [System.Collections.Generic.List[Object]]::new()
}
 
# Genreate the report
ForEach ($Rec in $Records) {
 
    $AuditData = $Rec.AuditData | ConvertFrom-Json
    Try {
        $Emoji = $Emojis[$AuditData.MessageReactionType]
    } Catch {
        $Emoji = $null
    }
    If ($Null -eq $Emoji) {
        $Emoji = $AuditData.MessageReactionType
    }
    # Is the message from a chat or a channel conversation?
    $Channel = $AuditData.ChannelName
    $Team = $AuditData.TeamName
    If ($Null -eq $Channel) {
        $Channel = "Chat"
        $Team = $null
    }
 
    $Reaction = $AuditData.MessageReactionType
    If ($null -eq $Reaction) {
       $Reaction = $AuditData.OldValue + " (Removed)"
    }
 
    # Get user displayname if user info is available
    If ($UserInfoAvailable) {
        $UserDisplayName = $UserHash[$Rec.UserIds]
        If ($Null -eq $UserDisplayName) {
            $UserDisplayName = $Rec.UserIds
        }
    }   Else {
        $UserDisplayName = $Rec.UserIds
    }
 
    $ReportLine = [PSCustomObject][Ordered]@{
        User            = $UserDisplayName
        Reaction        = $Reaction
        Emoji           = $Emoji
        ReactionTime    = $Rec.CreationDate
        Channel         = $Channel
        Team            = $Team
        ParentMessageId = $AuditData.ParentMessageId
        UserId           = $Rec.UserIds
    }
    $Report.Add($ReportLine)
}
 
$Report = $Report | Sort-Object {$_.ReactionTime -as [datetime]}
$Report | Out-GridView -Title "Teams Emoji Reactions Report"
 
Write-Output ""
Write-Output "Top Ten Emoji reactions used in Teams"
$Report | Group-Object Reaction -NoElement | Sort-Object Count -Descending | Select-Object -First 10 | Format-Table Name,  @{name="Emoji"; Expression = { $Emojis[$_.Name] }}, Count -AutoSize
Write-Output ""
Write-Output "Top Ten Users who reacted with Emojis in Teams"
$Report | Group-Object User -NoElement | Sort-Object Count -Descending | Select-Object -First 10 | Format-Table Name, Count
Write-Output ""
 
# Export the report as an Excel worksheet or CSV file
If (Get-Module ImportExcel -ListAvailable) {
    $ExcelGenerated = $true
    Import-Module ImportExcel -ErrorAction SilentlyContinue
    $ExcelOutputFile = ((New-Object -ComObject Shell.Application).Namespace('shell:Downloads').Self.Path) + "\TeamsEmojiReport.xlsx"
    If (Test-Path $ExcelOutputFile) {
        Remove-Item $ExcelOutputFile -ErrorAction SilentlyContinue
    }
    $Report | Export-Excel -Path $ExcelOutputFile -WorksheetName "Teams Emoji Reactions" -Title ("Teams Emoji Reactions Report {0}" -f (Get-Date -format 'dd-MMM-yyyy')) -TitleBold -TableName "TeamsEmojiReactions"
} Else {
    $CSVOutputFile = ((New-Object -ComObject Shell.Application).Namespace('shell:Downloads').Self.Path) + "\TeamsEmojisReport.CSV"
    $Report | Export-Csv -Path $CSVOutputFile -NoTypeInformation -Encoding Utf8
}
 
If ($ExcelGenerated) {
    Write-Output ("Excel worksheet output written to {0}" -f $ExcelOutputFile)
} Else {
    Write-Output ("CSV output file written to {0}" -f $CSVOutputFile)
}
 
Write-Output "All done - enjoy the emoji data!"