将电子邮件正文部分加粗答案

【问题标题】：Make portions of email body bold将电子邮件正文部分加粗
【发布时间】：2020-11-09 11:09:25
【问题描述】：

我正在使用 Excel VBA 代码通过 Outlook 发送电子邮件。

如何使代码中固定的特定文本加粗：

Event/Activity、Department、Date of Event、Description。

Dim wStat As Range, i As Long
Dim dam As Object

For Each wStat In Range("I2", Range("I" & Rows.Count).End(xlUp))
    If wStat.Value = "Overdue" Then
        i = wStat.Row
        Set dam = CreateObject("Outlook.Application").CreateItem(0)
        dam.To = Range("F" & i).Value
        dam.Cc = Range("G" & i).Value
        dam.Subject = Range("C" & i).Value
        dam.htmlBody = "    Hi " & Range("E" & i).Value & "," & vbCr & vbCr & vbCr & _
          " This is to remind you that the " & Range("C" & wStat.Row).Value & _
          " is overdue. The details are as follows:" & vbCr & vbCr & _
          " Event / Activity : " & Range("C" & i).Value & vbCr & vbCr & _
          " Department : " & Range("D" & i).Value & vbCr & vbCr & _
          " Date of event : " & Range("A" & i).Value & vbCr & vbCr & _
          " Description : " & Range("H" & i).Value & vbCr & vbCr & _
          " Please update your status as soon as possible! Thanks." & vbCr & vbCr & vbCr & _
          " Best Regards," & vbCr & _
          " XX Department"
        '
        dam.Display
    End If
Next
MsgBox "Reminder sent"
End Sub

【问题讨论】：

它只是作为字符串一部分的基本 HTML... 像这样 " Date of event : " - 添加  以“打开”粗体，然后使用  “关闭”粗体.
感谢您的快速响应，它正在工作。但是，我现在遇到的问题是它忽略了我的 vbCr 代码。有什么解决办法吗？
不要使用vbCr - 那不是HTML，你必须使用HTML...换行，在你的字符串中使用  - " Date of event : "
riptutorial.com/html/example/1715/bold--italic--and-underline

标签： html vba outlook

【解决方案1】：

Outlook 项目的 HTMLBody 属性设置表示指定项目的 HTML 正文的字符串。 HTMLBody 属性应该是 HTML 语法字符串并且格式正确。否则，您最终可能会得到错误的文档外观。设置HTMLBody 属性将始终立即更新Body 属性。

Sub CreateHTMLMail() 
 'Creates a new email item and modifies its properties. 
 Dim objMail As Outlook.MailItem 
 'Create email item 
 Set objMail = Application.CreateItem(olMailItem) 
 With objMail 
 'Set body format to HTML 
 .BodyFormat = olFormatHTML 
 .HTMLBody = _ 
 "<HTML><BODY>Enter the <b>bold</b> message text here. </BODY></HTML>"
 .Display 
 End With 
End Sub

这是一个 HTML 标记示例，可帮助您根据需要标记文本：

<b>This text is bold</b>
<strong>This text is strong</strong>
<i>This text is italic</i>
<h2>HTML <mark>Marked</mark> Formatting</h2>
<p>This is <sup>superscripted</sup> text.</p>

【讨论】：