Pasting Clean Text

I apologize in advance for this dealing mainly with pasting clean content into Outlook emails. Outlook used Word directly for email in Office 2003 and earlier. But just last week I was battling the problem of adapting a little Paste Clean macro for use in my Outlook 2019 emails. They use Word in an indirect approach.
So, if Allan wants to reject this for being the wrong app or post-2003, I understand. If he wants to take any or all of this to use elsewhere in Tips, with or without any credit to me, that’s fine, too. I’m just trying to help fellow users. It looks like it should be trivial to copy his code to modern Outlook and paste content into the email you are answering, but guess again. Thanks Microsoft. It requires a bunch of internal tie-ins to get it to work.

My routine follows. It must NOT be placed in the ThisOutlookSession module, rather into a new VBA module. I named mine: EditEmail. See important usage restrictions in my code comments. I attached this to a Quick Access Toolbar in an open email, where it sticks for future emails. (I have other routines that help in Outlook email messages’ QAT, so it does work.)
I have yet to implement a process to attach it to an _effective_ keyboard shortcut. Outlook doesn’t auto-load such shortcuts. It isn’t really a shortcut if, instead of clicking a toolbar button, you must explicitly load an activation routine to use it in an email or a reply/forward. Again, thanks Microsoft. Among many reasons I liked Word 2003.

Sub PasteUnformattedInOutlook()
' Paste unformatted text into an Outlook email message.

' Updated 2025/6/8 by Steve Wells. This is modified from code written for Word
' with additional structural elements provided by ChatGPT for use in Outlook.
' This requires that email composition/editing takes place in its own window
' separate from the email reading pane. The message must be formatted as HTML
' and be popped out for a Reply or Forward. A new email is already popped out.

' This captures the text content of the clipboard, stripping out any of: text
' formatting, images, charts, OLE, and any other non-text content. It pastes
' the resulting unformatted text at the current cursor location.

Dim mail As Outlook.MailItem
Dim insp As Outlook.Inspector
Dim wordDoc As Object ' Word.Document
Dim sel As Object ' Word.Selection

' Get the current email reply
Set insp = Application.ActiveInspector
If insp Is Nothing Then Exit Sub
If insp.CurrentItem.Class <> olMail Then Exit Sub
Set mail = insp.CurrentItem

' Ensure email is using HTML format
If mail.BodyFormat <> olFormatHTML Then
MsgBox "This requires that you set this mail to HTML format.", vbExclamation
Exit Sub
End If

' Get the Word editor and selection
Set wordDoc = insp.WordEditor
Set sel = wordDoc.Application.Selection

' Paste the clipboard as plain text (strips formatting and objects)
On Error GoTo PasteError
sel.PasteSpecial DataType:=2 ' wdFormatText
Exit Sub

PasteError:
MsgBox "The clipboard does not contain valid text content.", vbExclamation
End Sub