VBA邮件编程中如何用粗体突出显示整数值

VBA邮件编程中如何用粗体突出显示整数值,vba,excel,Vba,Excel,尊敬的专家们,我只想在下面的VBA邮件编程中用粗体突出显示整数值 请查找我的以下代码: Dim FTD_Target As Integer FTD_Target = Round(Cells(49, 5), 2) ''--I want this value should be highlighted in Bold in .HTMLBody Dim rng As Range Dim OutApp As Object Dim OutMa

尊敬的专家们,我只想在下面的VBA邮件编程中用粗体突出显示整数值

请查找我的以下代码:

    Dim FTD_Target As Integer

      FTD_Target = Round(Cells(49, 5), 2) ''--I want this value should be highlighted in Bold in .HTMLBody

    Dim rng As Range
        Dim OutApp As Object
        Dim OutMail As Object
        Dim strbody As String

        With Application
            .EnableEvents = False
            .ScreenUpdating = False
        End With

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

     With OutMail
        .Display
        End With
            Signature = OutMail.HTMLBody
        On Error Resume Next
        With OutMail
            .To = "mail id"
            .CC = ""
            .BCC = ""
            .Subject = "This is the Subject line"
            .HTMLBody = "Hi," & "<br>" & "Please find the Daily Target:-" & 
FTD_Target

    End With
Dim FTD_目标为整数
FTD_Target=Round(单元格(49,5),2)“--我希望这个值应该以粗体显示在.HTMLBody中
变暗rng As范围
Dim OutApp作为对象
将邮件变暗为对象
像弦一样暗的链子
应用
.EnableEvents=False
.ScreenUpdate=False
以
Set-OutApp=CreateObject(“Outlook.Application”)
Set-OutMail=OutApp.CreateItem(0)
发邮件
.展示
以
签名=OutMail.HTMLBody
出错时继续下一步
发邮件
.To=“邮件id”
.CC=“”
.BCC=“”
.Subject=“这是主题行”
.HTMLBody=“嗨,&”
“&”请找到每日目标:-“&” FTD_目标 以

请参考相同的指南。

快速且肮脏的解决方案:

    .HTMLBody = "Hi," & "<br>" & "Please find the Daily Target:-" & "<b>" & 
FTD_Target & "</b>"
.HTMLBody=“嗨,&”
“&”请找到每日目标:-“&”&” FTD_目标&“
最佳解决方案:

 .HTMLBody = "Hi," & "<br>" & "Please find the Daily Target:-" & "<div style='font-weight: bold;'>" & FTD_Target & "</div>"
.HTMLBody=“Hi,&”
“&”请查找每日目标:-“&”&FTD\u目标&”