Excel VBA实现Outlook会议邀请文字变色及插图技术求助

一、设置部分文字的自定义样式 #

你的现有代码使用.Body属性仅支持纯文本，要实现差异化文字样式，需要改用.HTMLBody属性，通过HTML标签定义样式规则。

修改后的代码如下：

Option Explicit

Sub MeetingInviteWithStyledText()
    Dim OutApp As Outlook.Application
    Dim OutMeet As Outlook.AppointmentItem
    Set OutApp = Outlook.Application
    Set OutMeet = OutApp.CreateItem(olAppointmentItem)
    
    With OutMeet
        .Subject = "Invitation to "
        .RequiredAttendees = "john.cena@gmail.com"
        .Start = #1/10/2023 1:00:00 PM#
        .Duration = 60
        .Importance = olImportanceHigh
        .ReminderMinutesBeforeStart = 15
        ' 用HTML标签设置hello为蓝色18号字体，其余内容保持默认样式
        .HTMLBody = "<span style=""color:blue;font-size:18px;"">hello</span>all"
        .MeetingStatus = olMeeting
        .Location = "Zoom"
        .Display
    End With
    
    Set OutMeet = Nothing
    Set OutApp = Nothing
End Sub

说明：

• 用<span>标签包裹需要自定义样式的文字，通过style属性设置颜色（color:blue）和字号（font-size:18px，可按需调整数值）
• .HTMLBody会覆盖纯文本内容，所有需展示的内容都要以HTML格式编写

二、在会议邀请正文中插入图片 #

有两种常用实现方式，可根据需求选择：

方式1：通过HTML引用本地/网络图片 #

直接在.HTMLBody中添加<img>标签，指定图片路径：

Option Explicit

Sub MeetingInviteWithImage_HTML()
    Dim OutApp As Outlook.Application
    Dim OutMeet As Outlook.AppointmentItem
    Dim imgPath As String
    ' 替换为你的本地图片路径（格式要求：file:/// + 绝对路径，斜杠用/）
    imgPath = "file:///C:/Users/YourName/Pictures/meeting_banner.jpg"
    
    Set OutApp = Outlook.Application
    Set OutMeet = OutApp.CreateItem(olAppointmentItem)
    
    With OutMeet
        .Subject = "Invitation to "
        .RequiredAttendees = "john.cena@gmail.com"
        .Start = #1/10/2023 1:00:00 PM#
        .Duration = 60
        .Importance = olImportanceHigh
        .ReminderMinutesBeforeStart = 15
        ' 组合富文本内容与图片
        .HTMLBody = "<span style=""color:blue;font-size:18px;"">hello</span>all" & _
                    "<br><br>" & ' 添加换行
                    "<img src=""" & imgPath & """ width=""400"" height=""200"">" ' 自定义图片显示尺寸
        .MeetingStatus = olMeeting
        .Location = "Zoom"
        .Display
    End With
    
    Set OutMeet = Nothing
    Set OutApp = Nothing
End Sub

说明：

• 本地图片路径需转换为file:///开头的格式，Windows原生路径的反斜杠\要替换为斜杠/
• 可通过width和height属性调整图片显示大小

方式2：通过WordEditor嵌入图片（更稳定，适合本地图片） #

Outlook会议邀请的WordEditor属性可调用Word对象模型，直接将图片嵌入正文：

Option Explicit

Sub MeetingInviteWithImage_WordEditor()
    Dim OutApp As Outlook.Application
    Dim OutMeet As Outlook.AppointmentItem
    Dim doc As Word.Document
    Dim imgPath As String
    imgPath = "C:\Users\YourName\Pictures\meeting_banner.jpg" ' 本地图片绝对路径
    
    Set OutApp = Outlook.Application
    Set OutMeet = OutApp.CreateItem(olAppointmentItem)
    
    With OutMeet
        .Subject = "Invitation to "
        .RequiredAttendees = "john.cena@gmail.com"
        .Start = #1/10/2023 1:00:00 PM#
        .Duration = 60
        .Importance = olImportanceHigh
        .ReminderMinutesBeforeStart = 15
        .MeetingStatus = olMeeting
        .Location = "Zoom"
        .Display ' 必须先执行Display才能获取WordEditor对象
        
        ' 获取Word文档对象
        Set doc = .GetInspector.WordEditor
        ' 插入基础文本
        doc.Range.Text = "all"
        ' 在开头插入带样式的hello
        doc.Range(0, 0).InsertAfter "hello"
        With doc.Range(0, Len("hello")).Font
            .Color = RGB(0, 0, 255) ' 设置蓝色
            .Size = 18 ' 设置字号
        End With
        ' 换行后插入图片
        doc.Range(doc.Content.End - 1, doc.Content.End - 1).InsertParagraphAfter
        doc.InlineShapes.AddPicture _
            FileName:=imgPath, _
            LinkToFile:=False, _
            SaveWithDocument:=True
    End With
    
    Set doc = Nothing
    Set OutMeet = Nothing
    Set OutApp = Nothing
End Sub

说明：

• 使用此方法需先在VBA编辑器中引用Microsoft Word xx.x Object Library（路径：工具→引用）
• LinkToFile:=False和SaveWithDocument:=True确保图片嵌入到会议邀请中，收件人无需访问本地路径即可查看

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