如何在vba中维护outlook中的格式答案

【问题标题】：how maintain the format in outlook in vba如何在vba中维护outlook中的格式
【发布时间】：2017-08-24 17:55:14
【问题描述】：

这是我在 vba 中通过 Outlook 发送电子邮件的代码的一部分。但是，我想用粗体发送第一句话。例如：我在第一个正文中写文本的位置（我如何命名每个段落的单元格），我可以选择我希望文本加粗的位置，但是当 vba 创建电子邮件时这些格式不会保留

有什么想法吗？

EX：我叫维尼修斯。我来自巴西，喜欢足球

    pretit = Sheets(CurrSh).Range("pretit").Value
    midtit = Sheets(CurrSh).Range("midtit").Value
    prebod = Sheets(CurrSh).Range("prebod").Value
    bod = Sheets(CurrSh).Range("bod").Value
    postbod = Sheets(CurrSh).Range("postbod").Value
    body2 = Sheets(CurrSh).Range("body2").Value
    body3 = Sheets(CurrSh).Range("body3").Value
    body4 = Sheets(CurrSh).Range("body4").Value
    report = Sheets(CurrSh).Range("report").Value 

 If Sheets(CurrSh).Range("body4").Value <> vbEmpty Then

                            'Set ObjApp = CreateObject("Outlook.Application")
                            While (Sheets(CurrSh).Range("emailad_ini").Offset(n, 0).Value <> "")
                            emailad = Sheets(CurrSh).Range("emailad_ini").Offset(n, 0).Value
                            firstname = Sheets(CurrSh).Range("firstname_ini").Offset(n, 0).Value


                            Set objMail(n) = ObjApp.CreateItem(0)

                            objMail(n).display
                            objMail(n).To = emailad
                            objMail(n).Subject = pretit & " " & firstname & midtit
                            objMail(n).HtmlBody = "<HTML><BODY><FONT FACE='Arial'><FONT SIZE='2'>" & prebod & " " & firstname & "," & "<br>" & "<br>" & bod & "<br>" & "<br>" & body2 & "<br>" & "<br>" & body3 & "<br>" & "<br>" & body4 & "<br>" & "<br>" & postbod & objMail(n).HtmlBody & "</FONT></FONT></BODY></HTML>"
                            objMail(n).Attachments.Add (report)

【问题讨论】：

标签： vba excel outlook

【解决方案1】：

假设您使用的是.HTMLBody，您只需将所有想要加粗的内容括在 HTML 粗体标记中，如下所示：

Not Bold <b>This is bold</b> This is no longer bold.

【讨论】：

我试过这个，但我想要更灵活一些。我的意思是，我想编写每天都在变化的文本，并且 vba 与 excel 单元格保持相同的格式。正如我在上面所展示的，有些部分/单词会以粗体显示，而另一些则不会。
这就是它允许你做的事情。
您的意思是希望您在 Excel 中执行的格式应用于电子邮件？为此，您需要使用：rondebruin.nl/win/s1/outlook/bmail2.htm
我想要一个复制和粘贴特殊格式的代码，其格式与我在 Excel 单元格中编写的格式相同。自动方式。
我在问我在说什么时在上面添加了一张图片