.HTMLBody not working

[Nishantv02]

Hi,
I was using this code for the past 4 months to send email by setting up a template for the main body so that my template is intact in HTML format with my signature and link but it stopped working today.

Can anyone help?

Option Explicit

Sub Send_email_fromexcel()

Dim EApp As Object

Set EApp = CreateObject("Outlook.Application")



Dim Eitem As Object



'Dim EApp As Outlook.Application

Set EApp = New Outlook.Application



'Dim Eitem As Outlook.MailItem

Set Eitem = EApp.CreateItem(olMailItem)



Dim path As String

path = "File path"



Dim RList As Range

Set RList = Range("B2", Range("b2").End(xlDown))



Dim R As Range



For Each R In RList

Set Eitem = EApp.CreateItem(0)



With Eitem

.To = R.Offset(0, 0)

.Subject = "Ebill: " & R.Offset(0, 1)

.Attachments.Add (path & R.Offset(0, 2))

.Display



.HTMLBody = "Good Morning!" & .HTMLBody





End With



Next R





End Sub

It is populating only the attachment with the body as- Good Morning! but not retrieving the template

 

[DanteAmor]

Welcome to MrExcel!

path = "File path"

Are you filling in the full folder name where the files are located?
Do the names of the files you have in column D exist in that folder?
At the end of the path are you putting "\"?

Does it send you an error message?
What does the error message say?
On which line of the macro does execution stop?

Help us help you, try to provide all the relevant information.