VBAで会議依頼を生成したいのですが・・・

エクセルの表を基に、VBAを使ってHTML形式の会議依頼を生成したいのですが、妙なところで躓いています。まるで会議依頼ではHTMLをサポートしないかのような・・・。

以下のソースの、「予定をHTML形式に」の objAppt.BodyFormat = 3　のところで止まってしまい、438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。のエラーメッセージが表示されます・・・。

Microsoft Outlook 16.0 Object LibraryおよびMicrosoft Internet Controlsは参照しています。

よろしくお願いいたします。

----以下ソース----

Sub CreateMeeting_Click()

Dim olkApp 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Dim html1 As String
Dim tmp As String
Dim buf As String

' 会議出席依頼のもとになる予定アイテムを作成
Set olkApp = CreateObject("Outlook.Application")
Set objAppt = olkApp.CreateItem(1) 

' 予定を会議に変更
objAppt.MeetingStatus = 1

' 予定をHTML形式に
objAppt.BodyFormat = 2

' 表からHTMLを生成するルーチン、ここは動いている様子。
Call CreateHtml1

html1 = ActiveWorkbook.Path & "\table.html"
Open html1 For Input As #2
Do Until EOF(2)
Line Input #2, tmp
buf = buf & tmp
Loop
Close #2

With objAppt
.Subject = ThisWorkbook.Worksheets(1).Cells(3, 2)

With objAppt.GetInspector.WordEditor.Windows(1).Selection
.HTMLBody = buf

End With

Application.CutCopyMode = False
End With

' 会議出席依頼を表示
objAppt.Recipients.ResolveAll
objAppt.Display