0

I have some code written in VBA designed to run in excel which is supposed to send a html email. This worked fine originally but I have tried to late bound me code, an email is still sent however the HTML appears as plain text to the recipient. The code I have is:

Dim oAPP As Object
Dim oItem As Object
Const olMailItem As Long = 0
Set oAPP = CreateObject("Outlook.Application")
Set oItem = oAPP.CreateItem(olMailItem)
With oItem
    .To = Worksheets("Emails").Cells(1, 2).Value
    .Subject = "Product set-up request"
    .BodyFormat = 2
    .Body = emailbody
    .send
End With
Community
  • 1
  • 1
skifans
  • 125
  • 1
  • 6

1 Answers1

1

Change .Body = emailbody to .HTMLBody = emailbody

Dan Donoghue
  • 6,056
  • 2
  • 18
  • 36