VBA传递带格式序数词至Outlook时格式丢失，如何解决？

你的问题核心在于Outlook的.Body属性是纯文本格式，它会丢弃所有富文本格式（比如上标）。要保留格式，得改用支持HTML的.HTMLBody属性，同时传递带格式的HTML内容，而非纯文本。

原代码的问题 #

你从Excel单元格取Cells(1,1).Value时，只会拿到纯文本"2nd"，单元格里设置的上标格式不会被包含进去，所以传到Outlook后自然丢失格式。另外原代码里Characters(2, 3)参数有误："2nd"共3个字符，从第2个字符开始的有效长度是2（对应"nd"），不是3，会导致格式设置失效。

两种解决方法 #

方法1：直接构造HTML格式的序数词

不用依赖Excel单元格格式，直接用HTML的<sup>标签定义上标，传给Outlook的.HTMLBody：

Dim OutApp As Outlook.Application
Dim OutAppoint As Outlook.AppointmentItem

Set OutApp = New Outlook.Application
Set OutAppoint = OutApp.CreateItem(olAppointmentItem)

' 构造带HTML上标的序数词
Dim Ordinal_number As String
Ordinal_number = "2<sup>nd</sup>"

With OutAppoint
   .HTMLBody = Ordinal_number
   .Display
End With

方法2：从Excel单元格提取带格式的HTML内容

如果必须复用Excel中已设置好的格式，可以把单元格内容转换成HTML格式后传递：

Dim OutApp As Outlook.Application
Dim OutAppoint As Outlook.AppointmentItem
Dim Ordinal_html As String

Set OutApp = New Outlook.Application
Set OutAppoint = OutApp.CreateItem(olAppointmentItem)

' 设置Excel单元格内容和正确的上标格式
Cells(1, 1).Value = "2nd"
Cells(1, 1).Characters(2, 2).Font.Superscript = True

' 将单元格内容复制为HTML格式
Cells(1, 1).Copy
Ordinal_html = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text/html")

With OutAppoint
   .HTMLBody = Ordinal_html
   .Display
End With

补充说明 #

• 方法1更简洁，适合直接生成序数词的场景；
• 方法2适合需要复用Excel中已排版内容的场景；
• 若要添加更多正文内容，可直接拼接HTML代码（比如Ordinal_number = "这是第" & "2<sup>nd</sup>" & "个会议"）。

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