我正在尝试创建Outlook会议邀请。
会议邀请已创建。主题和其他字段也将更新。
当我使用.HTMLBody时，得到一个空的主体。
我尝试的代码：
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
3条答案
按热度按时间kxkpmulp1#
约会项目没有
HTMLBody。参见https://social.msdn.microsoft.com/Forums/en-US/1e7cc383-bd2f-4d18-8cd1-9489bb3011ea/getset-appointment-body-type-fromto-rtfhtml-plain-text?forum=outlookdev
xmd2e60i2#
请确保您的outlook参考库已打开，然后尝试
.正文=“嗨”
这对我很有效
plupiseo3#
有一个工作围绕这一详细的AjimOthy，工程就像一个魅力。我最初击中这个线程，但发现这个解决方案时，我试图找出如何轻松切换到RTF格式。
https://stackoverflow.com/a/24249250/17749494
本质上，您创建两个Outlook项目，使用Word编辑器将格式化的消息从允许.HTMLBody的电子邮件复制到不允许. HTMLBody的约会/会议。
我唯一要添加的片段是
在我的Sub结束时关闭仍然打开的Mail对象。