0

I'm trying to create an Outlook meeting invite.

The meeting invite is created. Subject and other fields are also updated.

I get an empty body when I use .HTMLBody.

Code I tried:

Set OutApp = Outlook.Application
Set OutMeet = OutApp.CreateItem(olAppointmentItem)

With OutMeet
    .Subject = Subj
    .RequiredAttendees = ActiveSheet.Range("G9").Value
    ThisWorkbook.Sheets("Sheet1").Select
    .Start = ThisWorkbook.Worksheets("Sheet1").Range("D2").Value
    .Duration = 10
    .Importance = olImportanceHigh
    .ReminderMinutesBeforeStart = 15
    ThisWorkbook.Sheets("Sheet2").Select
    .BodyFormat = olFormatHTML
    .HTMLBody = "<html><head></head><body>Hi</body></html>"
    Application.Visible = True
    MeetingStatus = olMeeting
    .Location = "Microsoft Teams"
    .Display
End With
Set OutMeet = Nothing
Set OutApp = Nothing
End Sub
Community
  • 1
  • 1
Parsu
  • 83
  • 5

3 Answers3

1

There is no HTMLBody for appointment items.

See https://social.msdn.microsoft.com/Forums/en-US/1e7cc383-bd2f-4d18-8cd1-9489bb3011ea/getset-appointment-body-type-fromto-rtfhtml-plain-text?forum=outlookdev

Tim Williams
  • 154,628
  • 8
  • 97
  • 125
0

Make sure you have your outlook reference libraries turned on and then try

.Body = "Hi"

This worked for me

Brett
  • 351
  • 1
  • 5
0

There is a work around for this detailed by AjimOthy that works like a charm. I initially hit this thread, but found this solution when I was trying to figure out how to easily switch over to RTF format.

https://stackoverflow.com/a/24249250/17749494

Essentially you create two Outlook items, use Word editor to copy the formatted message from an email that DOES allow .HTMLBody to the appointment/meeting that does NOT allow .HTMLBody.

Only segment I had to add was

objMyMsgItem.Delete

At the end of my Sub to close the Mail object that remains open.

Masterofrpm
  • 1
  • 2