时间戳

首页 > 解决方案 > 将文本格式添加到 excel 生成的电子邮件中的特定文本

excel - 将文本格式添加到 excel 生成的电子邮件中的特定文本

问题描述

我正在使用 excel vba 将电子邮件正文中的某些文本设置为粗体

这是我的代码

xFirstName = Sheets("Sheet1").Range("C2")
xMembershipDate = Sheets("Sheet1").Range("G2")

On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)

xMailBody = "Hello " & xFirstName & vbNewLine & _
"Your membership has been verified last " & xMembershipDate & vbNewLine & _
"" & vbNewLine & _
"Thank you."

我想将 xFirstName 和 xMembershipDate 设置为在电子邮件正文中显示为粗体。任何帮助是极大的赞赏。谢谢你。

标签： excelvba

解决方案

您必须使用 HTML 标签。

    xFirstName = Sheets("Sheet1").Range("C2")
    xMembershipDate = Sheets("Sheet1").Range("G2")

    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)

    With xOutMail
        .HTMLBody = "<p>Hello <b>" & xFirstName & "</b></p>" & _
                    "<p>Your membership has been verified last <b>" & xMembershipDate & "</b></p>" & _
                    "" & vbNewLine & _
                    "<p>Thank you.</p>"
    End With

推荐阅读