VBA Update the body from a template email

[hhj8810]

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(weeklyMSG.HTMLBody, "Index1", "Data1")" always report an error 287, but the .subject can be replace.
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

    'Dim xbody As String
    'xbody = weeklyMSG.HTMLBody

    With weeklyMSG
        .Subject = Replace(.Subject, "Review", "Test")
        .HTMLBody = Replace(weeklyMSG.HTMLBody, "Index1", "Data1")
    End With

    Set weeklyMSG = Nothing
    Set OLKapp = Nothing

End Sub

 

[James006]

Hi,
Have you tested :

With weeklyMSG
        .Subject = Replace(.Subject, "Review", "Test")
        .HTMLBody = Replace(.HTMLBody, "Index1", "Data1")
    End With

 

[hhj8810]

Hi,
Have you tested :

With weeklyMSG
        .Subject = Replace(.Subject, "Review", "Test")
        .HTMLBody = Replace(.HTMLBody, "Index1", "Data1")
    End With

Yes, I have tested :

.HTMLBody = Replace(.HTMLBody, "Index1", "Data1")

Actually .subject is only for comparison here, I don't need to change the subject, but I don't konw why it works for subject, while it's not working for .HTMLBody.

By the way, the codes are in excel, and I intend to use it to update data from excel sheet.

 

[hhj8810]

Hi,
Have you tested :

With weeklyMSG
        .Subject = Replace(.Subject, "Review", "Test")
        .HTMLBody = Replace(.HTMLBody, "Index1", "Data1")
    End With

when debug, the error always comes from this line. I see some examples using replace , I almost copied their codes, but I don't know why it does not work.


View attachment 88490

 

[James006]

Hi again,

For HTML, see if you can adapt following post :

VBA .HTMLBody not working

I have the below code to send an email. I'd leave it working as is except I want to make some of the cell references bold. Have read many other threads about changing the .body to .htmlbody and changing the carriage returns to . Unfortunately, I can't get anything to work, apart from the below...

www.mrexcel.com

 

[hhj8810]

Hi again,

For HTML, see if you can adapt following post :

VBA .HTMLBody not working

I have the below code to send an email. I'd leave it working as is except I want to make some of the cell references bold. Have read many other threads about changing the .body to .htmlbody and changing the carriage returns to . Unfortunately, I can't get anything to work, apart from the below...

www.mrexcel.com

Hi, thanks for the reply. I don't thinks that will solve the problem. that's to define a string, and then make the body = string, i know the basic rules of HTML.
but my situation is that i have a temple which has the body, I don't need to define a new string, I just need to update the numbers in the body.
kina of like this:

Using VBA to send email template with Replace Method

Hey Guys, I've been searching the forums and have found answers that should technically work however they don't and I'm not to sure where I'm going wrong. I have a code set from excel to open a email template and email specific contacts in my data sheet. The Email template in HTML format...

www.mrexcel.com

 

[hhj8810]

Hi again,

For HTML, see if you can adapt following post :

VBA .HTMLBody not working

I have the below code to send an email. I'd leave it working as is except I want to make some of the cell references bold. Have read many other threads about changing the .body to .htmlbody and changing the carriage returns to . Unfortunately, I can't get anything to work, apart from the below...

www.mrexcel.com

here's another example

Redirecting

 

[Siddharth Rout]

Error 287 is Application-defined or object-defined error.

Quick question... What happens when you use

Replace(.Body, "Index1", "Data1")

 

[hhj8810]

Error 287 is Application-defined or object-defined error.

Quick question... What happens when you use

Replace(.Body, "Index1", "Data1")

Thanks for the reply.
Also error 287. I've tried several ways to fix this, and even tried define a new string like below, it reports error 287 too. so I cannot get the body out and edit it.
Dim xbody As String
xbody = weeklyMSG.HTMLBody

 

[Siddharth Rout]

In that case, it could be a security issue (I could be wrong about this). Which MS Office version are you using?