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

 

[Siddharth Rout]

thanks, I think I will work with WORD and then manually copy to email.

While searching, I came across THIS post. My suspision was corrent. It is a security issue as mentioned by jainashish.

As far as word editor is concerned, you do not need to manually copy it. You can use the MailItem.GetInspector property. You can use it like GetInspector.WordEditor to automaticaly get the data into your email without manually copying it. If you search the web there are lot of examples using GetInspector.WordEditor

 

[hhj8810]

While searching, I came across THIS post. My suspision was corrent. It is a security issue as mentioned by jainashish.

As far as word editor is concerned, you do not need to manually copy it. You can use the MailItem.GetInspector property. You can use it like GetInspector.WordEditor to automaticaly get the data into your email without manually copying it. If you search the web there are lot of examples using GetInspector.WordEditor

Thank you so much for your help, I'm kind of fresh for VBA,, I don't understand too many methods, I'll try to work it out.

 

[RoryA]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at:

Excel Forum

VBA Update the body from a template email

www.myonlinetraininghub.com

There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.