使用 VBA 在 HTML 电子邮件中绘制垂直边框线答案

【问题标题】：Draw vertical border line in HTML email using VBA使用 VBA 在 HTML 电子邮件中绘制垂直边框线
【发布时间】：2021-02-15 05:19:07
【问题描述】：

我正在使用 VBA 用户表单，用户可以从中发送电子邮件。

如何创建如下所示的垂直橙色线？

在 HTML 中，它会是这样的：

style="border-left: solid 4px #FF6801;">

编辑：根据蒂姆的回答回答：

Dim ol As Outlook.Application, m As Outlook.MailItem

Set ol = New Outlook.Application
        
Set m = ol.CreateItem(olMailItem)
m.Display
m.BodyFormat = olFormatHTML
        
m.HTMLBody = "<p style='border-left: solid 4px #FF6801;padding: 24px;margin-left:24px;'>" & VariableName.Value & "</p>"

【问题讨论】：

你应该发布你的代码给你一个答案。但通常您可以将电子邮件的正文设置为 HTML 或纯文本。尝试一个简单的标签，如粗体<b> test </b>，如果它不起作用，这可能是问题所在。 Check this link, the property should be .bodyformat
获得帮助的最佳第一步是发布代码的相关部分。

标签： html vba email

【解决方案1】：

这对我有用：

Dim ol As Outlook.Application, m As Outlook.MailItem

Set ol = New Outlook.Application
        
Set m = ol.CreateItem(olMailItem)
m.Display
m.BodyFormat = olFormatHTML
        
m.HTMLBody = "<p>No border</p>" & _
             "<p style='border-left: solid 4px #FF6801;'>With border</p>" & _
             "<p>No border</p>"

【讨论】：

谢谢蒂姆！效果很好，但是，如果我想从一行到下一行添加一点边距，比如说 24px（如屏幕截图所示）？
编辑：下一个 = 文本
通过添加边距和内边距让它工作！我会更新原帖