Email 使用VBScript将表插入Outlook电子邮件

我在Microsoft Word文档中有一个表，我想在Outlook电子邮件的邮件中间插入该表。当我手动将表格复制到电子邮件草稿中时，它会保留格式，但当我不这样做时，格式会更改为列表样式。例如，这是表格的外观：

9898苹果色

1394香蕉蓝

有边框，但在发送的电子邮件中，它显示为

9898

苹果

颜色

1394

香蕉

蓝色的

我不得不在上面添加额外的行，因为Stack Overflow并没有将其显示为单独一行中的每个元素

在我的代码中，我将表连接到构成电子邮件消息的字符串中。我认为这可能是问题所在，但我不确定如何将其更改为单独包含该表。这是我的密码：

message = "Dear " & owner & ", " & vbCrLf & vbCrLf
message = message & "Here is the data we have: " & vbCrLf
message = message & vbCrLf & vbCrLf & textToTable(fileName, file)
message = message & "Can you please email us back with the updated data?"
message = message & vbCrLf & vbCrLf & "Thank you."  

Set MyItem = ol.CreateItem(0)
With MyItem
    .To = me
    .CC = ""
    .BCC = ""
    .Subject = "Table"
    .BodyFormat = 3
    .Body = message
    .Send
End With

---

我在我的textToTable函数中使用了很多代码，它似乎按预期工作。唯一的问题是让Outlook保留表的格式；有人对如何做到这一点有什么建议吗？非常感谢你

您正在设置纯文本正文属性。创建一个HTML表，并将HTMLBody属性指定给属性格式的HTML字符串