The problem is undoubtedly the use of CommandBars code.

It is difficult to see the point of your process or why you need to remove chr(74) - Upper case J from the message, as the process doesn't appear to work here in 2010 either.

If we can assume that you are running the code from Outlook VBA and not from another Office product then the following should create a reply to the currently selected message and copy the content to the clipboard. I can see that it doesn't go quite far enough, but you will need to explain the process in more detail to get a handle on it.

Option Explicit
Sub CopyAll_and_openSite()

Dim olMailItem As Outlook.MailItem
Dim olReply As Outlook.MailItem
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object

    Set olMailItem = ActiveExplorer.Selection.Item(1)
    Set olReply = olMailItem.Reply 'create a reply to the current mail item

    With olReply
        .BodyFormat = olFormatHTML
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range
        oRng.Copy
        .Display 'This line is required even if later you send the message
        With oRng.Find
            Do While .Execute(FindText:=Chr$(74), MatchCase:=True)
                oRng.Text = "" 'Remove 'J' from the reply body?
            Loop
        End With
        '.Send 'Send the reply
    End With
    olMailItem.Close olDiscard 'close the opriginal mail message

lbl_Exit:
    Set olMailItem = Nothing
    Set olReply = Nothing
    Set olInsp = Nothing
    Set wdDoc = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub