' replace the With block with your code
       With objSel
       ' Formatting code goes here
            .Font.Color = wdColorBlue
            .Font.Size = 18
            .Font.Bold = True
            .Font.Italic = True
            .Font.Name = "Arial"
       End With

 
objSel.PasteSpecial Link:=False, DataType:=wdPasteText

 
Public Sub PasteUnformatted_OutlookVersion()
    Dim objItem As Object
    Dim objInsp As Outlook.Inspector
 
    ' Add reference to Word library
    ' in VBA Editor, Tools, References
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim objSel As Word.Selection
 
   'On Error Resume Next ' <--- Do not use this unless you have a specific purpose
 
'Reference the current Outlook item
    Set objItem = Application.ActiveInspector.CurrentItem
    If Not objItem Is Nothing Then
        If objItem.Class = olMail Then
            Set objInsp = objItem.GetInspector
            If objInsp.EditorType = olEditorWord Then
                Set objDoc = objInsp.WordEditor
                Set objWord = objDoc.Application
                Set objSel = objWord.Selection
 
                objSel.PasteSpecial Link:=False, DataType:=wdPasteText
 
            End If
        End If
    End If
 
    Set objItem = Nothing
    Set objWord = Nothing
    Set objSel = Nothing
    Set objInsp = Nothing
End Sub