使用VBA创建Outlook会议邀请时出现HTMLBody为空的问题

核心错误点 #

• 代码中MeetingStatus = olMeeting缺少.前缀，实际是给无关的临时变量赋值，并未生效修改会议对象的状态属性
• Application.Visible = True是对Excel应用的操作，和Outlook对象无关，属于冗余代码可删除
• 属性设置顺序不合理，会议状态配置需要放在正文设置之前，避免后续属性修改清空已设置的正文内容
• 代码中无用的ThisWorkbook.Sheets("Sheet1").Select、ThisWorkbook.Sheets("Sheet2").Select属于冗余操作，不需要选中工作表即可直接引用对应工作表的单元格内容，多余的选中操作容易引发非预期的活动工作表切换问题

修正后代码 #

Sub 创建Outlook会议()
    ' 提前定义常量，避免未引用Outlook类型库时报错
    Const olAppointmentItem = 1
    Const olImportanceHigh = 2
    Const olFormatHTML = 2
    Const olMeeting = 1
    
    Dim OutApp As Object, OutMeet As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMeet = OutApp.CreateItem(olAppointmentItem)

    With OutMeet
        .Subject = Subj ' 注意Subj变量需要提前赋值
        .RequiredAttendees = ActiveSheet.Range("G9").Value
        .Start = ThisWorkbook.Worksheets("Sheet1").Range("D2").Value
        .Duration = 10
        .Importance = olImportanceHigh
        .ReminderMinutesBeforeStart = 15
        ' 先设置会议状态
        .MeetingStatus = olMeeting
        .Location = "Microsoft Teams"
        ' 最后设置正文格式和内容
        .BodyFormat = olFormatHTML
        .HTMLBody = "<html><head></head><body>Hi</body></html>"
        .Display
    End With
    Set OutMeet = Nothing
    Set OutApp = Nothing
End Sub

补充说明 #

如果运行后正文还是为空，可以先替换为.Body = "Hi"验证基础正文写入功能是否正常，确认无其他权限限制后再调整为HTML格式内容。

内容的提问来源于stack exchange，提问作者Parsu