Outlook ReportItem.Body returning messed up encoding for some users

Question

We have a weird issue with Outlook lately that is impacting some users.

If certain users automate the Outlook Client to view bounce backs/ReportItems in a shared inb

Answer 1

I came across this issue and I've written a function that solves the issue for me. I thought I'd share it here in case it's of use to anyone else.

Private Sub Example()
    Dim Item As Object
    
    Set Item = Application.ActiveExplorer.Selection(1)
    
    Debug.Print ItemBody(Item)
End Sub

Public Function ItemBody(Item As Variant) As String
On Error Resume Next
    If TypeName(Item) = "ReportItem" Then
        With Item.GetInspector
            ItemBody = .WordEditor.Content
            .Close 1
        End With
    Else
        ItemBody = Item.Body
    End If
End Function