修复Excel导出区域到Outlook新邮件正文时表格底边框缺失问题

通过VBA实现Excel选定区域导出为表格、插入Outlook新建邮件正文的功能整体运行正常，存在一处固定异常：

• 表格插入邮件正文后，底边框始终无法显示
• 手动调整表格高度或宽度后，底边框可正常显示
• 因完整代码篇幅过长，仅展示疑似存在问题的HTML拼接相关代码段
  

关联代码段 #

'--- Create a New Email
    Set objOutlookApp = New Outlook.Application
    Set objNewEmail = objOutlookApp.CreateItem(olMailItem)

'--- Read the HTML File data and insert into the Email Body
    objNewEmail.BodyFormat = olFormatHTML
    objNewEmail.Display

    Set objTextStream = objFileSystem.OpenTextFile(strTempHTMLFile)

    Strbody = "<h4> </h4>" & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span style='font-size:11.5pt'> "

    objNewEmail.HTMLBody = Strbody & "<table style='Margin-Left:5pt'>" & _
                           objTextStream.ReadAll & "</Table>" & "<br>" & objNewEmail.HTMLBody

Outlook 2007及之后版本使用Word内核渲染HTML邮件，该内核对表格的渲染存在已知计算bug：拼接HTML时未给table标签显式声明边框合并规则，且表格闭合后无强制渲染占位，内核计算表格高度时会将最后一行底边框划入可视区域外，导致边框丢失；手动调整尺寸触发重绘后，高度重新计算才会正常显示边框。

修改HTML拼接逻辑，给table标签补全边框相关样式，同时在表格闭合标签后增加一个极小的空段落强制引擎计算完整表格高度，替换原有拼接代码即可：

' 为table补充边框合并、边距清零样式，追加1pt高度空段落触发表格完整渲染
objNewEmail.HTMLBody = Strbody & "<table style='Margin-Left:5pt;border-collapse:collapse;border-spacing:0'>" & _
                       objTextStream.ReadAll & "</Table><p style='font-size:1pt;margin:0;padding:0'>&nbsp;</p><br>" & objNewEmail.HTMLBody

如果替换后仍存在偶发底边框丢失，检查导出的临时HTML文件中最后一行单元格是否显式声明了底边框样式，Word渲染内核对CSS继承样式的识别兼容性差，不要依赖父节点继承的边框属性。

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