小编Pab*_*blo的帖子

我想使用 Excel VBA 在 Outlook 邀请中插入具有格式（链接、粗体、突出显示...）的文本。

我有一个从 Excel 发送邀请的程序。正文包含纯文本。我正在使用 .body，但恐怕我将不得不使用不同的方法（.HTMLBody 不适用于邀请，而 RTFbody 从我读到的内容来看似乎过于复杂）。

我在 Word 中、在 Outlook 中、在剪贴板和其他一些地方都有正文模板作为快速部分。

代码：

Sub Invite_Merge(meeting_date As Date, meeting_time As Double,         
    meeting_duration As Integer, client_email As String, meeting_subject As String,
    meeting_location As String, client_name As String, meeting_body As String,
    meeting_sender As String)


Dim O As Outlook.Application
Set O = New Outlook.Application

Dim OAPT As Outlook.AppointmentItem
Set OAPT = O.CreateItem(olAppointmentItem)
OAPT.MeetingStatus = olMeeting

Dim meeting_start
meeting_start = DateValue(meeting_date) + meeting_time

With OAPT

    .Recipients.Add (client_email)
    .Subject = …