VBA Update the body from a template email|VBA & Macros|Excel Forum|My Online Training Hub

Hi, I'm new here. I have a problem when creating a new outlook email from a template(.oft or .msg), hope somebody can help.
The code as below, I don't know why the line ".HTMLBody = Replace(.HTMLBody, "Index1", "Data1")" always report an error 287, but the .subject can be replaced.
Does anybody know why that happens? Thanks a lot.

Sub MailTemplate()

Set FileDialogObject = Application.FileDialog(msoFileDialogFilePicker)

With FileDialogObject

.Title = "Please select the template "
.InitialFileName = ThisWorkbook.Path & "\"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Outlooktemplate Files", "*.oft,*.msg"

If .Show Then
Dim weeklyMSGName As String
weeklyMSGName = .SelectedItems.Item(1)
End If

End With

'Update the tempalte email

Dim OLKapp As Object
Set OLKapp = CreateObject("Outlook.Application")

Dim weeklyMSG As Outlook.MailItem
Set weeklyMSG = OLKapp.CreateItemFromTemplate(weeklyMSGName)
weeklyMSG.Display

With weeklyMSG
.Subject = Replace(.Subject, "Review", "Test") 'Works fine
.HTMLBody = Replace(.HTMLBody, "Index1", "Data1") 'Reporting error
End With

Set weeklyMSG = Nothing
Set OLKapp = Nothing

End Sub