在Word VBA中使用.body而不是.htmlbody，将我的电子邮件正文文本的一部分加粗

我试图在我的电子邮件VBA正文中加粗特定文本。在当前状态下，我无法格式化

.body

下的任何文本

但是，当我更改为

.html body

时，我可以使用粗体文本。例如，如果我使用“作业编号”，文本“作业编号”以粗体显示，但我的整个电子邮件正文将丢失所有行空间

非常感谢你的帮助。谢谢

    Private Sub sendemail_Click()


Dim OL              As Object
Dim EmailItem       As Object
Dim Doc             As Document

Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument
Doc.Save

With EmailItem
    .Subject = "QDR" & " " & TextBox22.Value & "_" & TextBox21.Value & "_" &    ComboBox2.Value & "_" & combobox1.Value
    **.Body** = "Attached QDR Request form is for the following: " & vbCrLf & _
    "" & vbCrLf & _
    "JOB NUMBER: " & vbCrLf & _
    TextBox21.Value & vbCrLf & _
    "" & vbCrLf & _
    "QDR NUMBER: " & vbCrLf & _
    TextBox22.Value & vbCrLf & _
    "" & vbCrLf & _
    "CONDITION: " & vbCrLf & _
    combobox1.Value & vbCrLf & _
    "" & vbCrLf & _
    "HARTNESS PART NUMBER: " & vbCrLf & _
    TextBox23.Value & vbCrLf & _
    "" & vbCrLf & _
    "REQUIRED DATE: " & vbCrLf & _
    TextBox31.Value & vbCrLf & _
    "PART REQUIRED SOONER THAN SET LEAD TIME: " & vbCrLf & _
    TextBox30.Value & vbCrLf & _
    "" & vbCrLf & _
    "BRIEF DESCRIPTION OF REQUEST: " & vbCrLf & _
    TextBox25.Value


    .To = "XXXXX@XXXXX.com;"
    .CC = "XXXXX@XXXXX.com;" & "XXXXX@XXXXX.com;"
    .Importance = olImportanceNormal 'Or olImportanceHigh Or olImportanceLow
    .Attachments.Add Doc.FullName
    .Display
End With

Application.ScreenUpdating = True

Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing


End Sub

---

您可以继续使用HTML，只需将回车替换为换行符的HTML

。请记住，为html内容设置样式的每个内联标记（无css）都是有效的。因此，您可以自由选择字体、颜色、大小，甚至网络图像

msg = "Attached QDR Request form is for the following: <br><br>" _
      & "<b> JOB NUMBER:</b><br>" _
      & TextBox21.Value & "<br><br>" _
      & "<b> QDR NUMBER: </b><br>" _
      & TextBox22.Value & "<br><br>" _
      & "<b> CONDITION: </b><br>" _
      & combobox1.Value & "<br><br>" _
      & "<b> HARTNESS PART NUMBER: <br>" _
      & TextBox23.Value & "<br><br>" _
      & "<b> REQUIRED DATE: </b><br><br>" _
      & "PART REQUIRED SOONER THAN SET LEAD TIME: <br>" _
      & TextBox30.Value & "<br><br>" _
      & "<b>BRIEF DESCRIPTION OF REQUEST: </b><br>" _
      & TextBox25.Value

...
.HTMLBody = msg    

msg=“随附的QDR申请表适用于以下人员：

”_
&“作业编号：
”_
&TextBox21.Value&“

”_
&“QDR编号：
”_
&TextBox22.值和“

”_
&“条件：
”_
&combobox1.Value&“

”_
&“HARTNESS零件号：
”_
&TextBox23.值和“

”_
&“所需日期：

”_
&“所需零件的交货期早于设置的交货期：
”_
&TextBox30.Value&“

”_
&“请求的简要说明：
”_
&TextBox25.值
...
.HTMLBody=msg

或者，使用html表格进行更好的对齐：

msg = "Attached QDR Request form is for the following: <br><br>" _
      & "<table>" _
      & "<tr><td><b> JOB NUMBER: </b></td><td>" & TextBox21.Value & "</td></tr>" _
      & "<tr><td><b> QDR NUMBER: </b></td><td>" & TextBox22.Value & "</td></tr>" _
      & "<tr><td><b> CONDITION: </b></td><td>" & combobox1.Value & "</td></tr>" _
      & "<tr><td><b> HARTNESS PART NUMBER: <b></td><td>" & TextBox23.Value & "</td></tr>" _
      & "<tr><td><b> REQUIRED DATE: </b></td></tr>" _
      & "<tr><td> PART REQUIRED SOONER THAN SET LEAD TIME: </td><td>" & TextBox30.Value & "</td></tr>" _
      & "<tr><td> BRIEF DESCRIPTION OF REQUEST: </td><td>" & TextBox25.Value & "</td></tr>" _
      & "</table>"

...
.HTMLBody = msg

msg=“随附的QDR申请表适用于以下人员：

”_
& "" _
&“作业编号：”&TextBox21.Value&“_
&“QDR编号：”&TextBox22.Value&“_
&条件：“&combobox1.值&”_
&“HARTNESS零件号：”&TextBox23.值&“_
&“所需日期：”_
&“所需零件早于设置的交付周期：”&TextBox30.Value&“_
&请求的简要说明：“&TextBox25.Value&”_
& ""
...
.HTMLBody=msg

。正文是纯文本，纯文本没有格式。格式化需要HTML，这就是.htmlbody工作的原因。您可以使用HTML标记添加行距：

它们都工作得很好。我不太确定如何使用html。非常感谢你的帮助。太棒了！很高兴我能帮忙。谢谢，兄弟。