Like button for Outlook email

Recently my colleague was asking is there a like feature in Outlook.  I showed him the new Icon insert option.  It helped, but he was just looking for a one click solution.

Here the OneClick solution.  You need to have the below macro and introduce this as a new button in outlook menu!

Now you can start liking the emails.

Sub InsertLike()
    'Dim objDoc As Word.Document, objSel As Word.Selection
    On Error Resume Next
   
    '~~> Get a Word.Selection from the open Outlook item
    Set objDoc = Application.ActiveInspector.WordEditor
   
    Set objSel = objDoc.Windows(1).Selection
   
    '~~> Type Relevant Text
    'objSel.TypeText "Sorry cannot help"
    objSel.InlineShapes.AddPicture FileName:="https://hubblecontent.osi.office.net/ContentSVC/Content/Download?provider=MicrosoftIcon&fileName=ThumbsUpSign.svg" _
        , LinkToFile:=False, SaveWithDocument:=True
       
    Set objDoc = Nothing
    Set objSel = Nothing
End Sub