如何更改通过 Excel VBA 代码通过 Outlook 发送的电子邮件的字体格式？

Posted 2023-04-19

技术标签:

【中文标题】如何更改通过 Excel VBA 代码通过 Outlook 发送的电子邮件的字体格式？【英文标题】：How to change the font formatting on an email sent through Outlook via Excel VBA code? 【发布时间】：2014-02-19 21:45:36 【问题描述】：

我有使用 Excel 通过 Outlook 发送大量电子邮件的 VBA 代码。

它将每个联系人的姓名输入电子邮件正文（亲爱的某某），将公司名称/发票编号输入主题行（Company ABC Invoice 123），为每个联系人附加不同的文件（发票123.pdf），将邮件标记为高重要性，请求已读回执，代表我用于发票的辅助电子邮件帐户而不是我的个人电子邮件帐户发送，密件抄送到辅助电子邮件，并在底部添加电子邮件签名有图片。

大部分代码（如果不是全部，实际上）来自this wonderful Ron de Bruin site。

我将大量代码粘贴在一起以达到我现在的位置，但我完全不知道我是如何让它工作的。

我尝试了许多不同的“标签”来尝试更改字体格式。

我尝试更改 Outlook 的模板设置并取出代码，希望它可以使用“Outlook 默认”字体输入。

我的代码中有样式标签，但它们没有太大的作用。它设置为 Times New Roman 尺寸 18。

“亲爱的某某”输入为 Times New Roman Size 12。电子邮件正文输入为 Calibri 13.5。我的签名输入为我在签名设置中设置的任何内容。

我希望它们都是相同的字体、大小、颜色等。

Sub Mail_Outlook_With_Signature_html_1()
' Working in Office 2000-2013
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim strbody As String
Dim cell As Range
Dim FileCell As Range
Dim rng As Range

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

Set sh = Sheets("Sheet1")

Set OutApp = CreateObject("Outlook.Application")

For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants)

  Set rng = sh.Cells(cell.Row, 1).Range("C1:Z1")

  If cell.Value Like "?*@?*.?*" And _
    Application.WorksheetFunction.CountA(rng) > 0 Then

      Set OutMail = OutApp.CreateItem(0)

      strbody = "<P STYLE='font-family:Times New Roman;font-size:18'>This is the message text for each message. This is all the same for each contact!</P>"

      On Error Resume Next

      With OutMail
       .Display
       .To = cell.Value
       .CC = ""
       .BCC = "MyCompanyEmail@company.com"
       .Subject = Cells(cell.Row, "D").Value
       .HTMLBody = "Dear " & Cells(cell.Row, "A").Value & "," & "<br>" & "<br>" & strbody & .HTMLBody
       .Importance = 2
       .ReadReceiptRequested = True
       .SentOnBehalfOfName = """My Company Email Name"" <MyCompanyEmail@company.com>"

        For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
            If Trim(FileCell) <> "" Then
                If Dir(FileCell.Value) <> "" Then
                    .Attachments.Add FileCell.Value
                End If
            End If
        Next FileCell

         .Display
        End With

        On Error GoTo 0

        Set OutMail = Nothing

    End If

Next cell

Set OutApp = Nothing

With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With

End Sub

编辑： Roland Shaw 注意到字体大小没有任何关于 18 是什么的说明。 18分？ 18 像素？ 18寸？所以我将代码更改为以下内容。

strbody = "<P STYLE='font-family:Times New Roman;font-size:18pt'>

这使文本的正文更改了格式，但并未更改电子邮件的“亲爱的某某”部分。仍然希望那里有一些变化。

第二次编辑：h4xpace 建议查看this article 以获得一些指导。我已经尝试在发布之前遵循本指南，但我无法让它发挥作用。我回去尝试添加我认为是更改正文字体所需的相关代码位。以下代码的添加和更改：

 With OutMail
    .Display
    .To = cell.Value
    .CC = ""
    .BCC = "MyCompanyEmail@company.com"
    .Subject = Cells(cell.Row, "D").Value
    **.BodyFormat = olFormatHTML**
    .HTMLBody = **"<HTML><BODY><b>"**Dear " & Cells(cell.Row, "A").Value & "," & "<br>" & "<br>" & strbody & .HTMLBody **</b></BODY></HTML>"**
    .Importance = 2
    .ReadReceiptRequested = True
    .SentOnBehalfOfName = """My Company Email Name"" <MyCompanyEmail@company.com>"

这也不起作用。

我对 VBA 的了解不够，无法添加必要的代码片段而不改变我已有的内容。

最终改动

代码按照我最初的预期工作。两个主要变化是以下几行。在 strbody 上，我需要将“pt”添加到字体大小。我还需要将格式信息放在任何“消息内容”之前。

strbody = "<P STYLE='font-family:TimesNewRoman;font-size:12.5pt;color: rgb(31,73,125)'>This is the message text for each message. This is all the same for each contact!</P>"

.HTMLBody = "<P STYLE='font-family:TimesNewRoman;font-size:12.5pt;color: rgb(31,73,125)'>Dear " & Cells(cell.Row, "A").Value & "," & "<br>" & "<br>" & strbody & .HTMLBody

【问题讨论】：

@Kiquenet 我做到了。下面的 0 票用户实际上是在引导我朝着正确的方向前进。我必须在输入文本之前添加格式......我将 .HTMLBody 代码更改为以下内容：

.HTMLBody = "&lt;P STYLE='font-family:Times New Roman;font-size:18'&gt;Hello " &amp; Cells(cell.Row, "B").Value &amp; "," &amp; "&lt;br&gt;" &amp; "&lt;br&gt;" &amp; strbody &amp; .HTMLBody

@Chonchos 你可以投票给他 【参考方案1】：

你快到了，您正在将电子邮件正文创建为

.HTMLbody = 'SomeText' + strbody(Formatting + MoreText)

因为格式化部分是通过它只影响它后面的文本的一部分。制作.HTMLBody 从您的格式信息开始，接下来的所有内容都会将其选中。

【讨论】：

【参考方案2】：

我认为 OP 和我正在尝试解决相同的问题，即发送具有正常格式的消息并通过 ron debruin's method 保留签名。

我通过添加解决了我的问题：

.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><BODY>" & strbody & "</BODY></HTML>" & .HTMLBody

到 .OutMail 对象

【讨论】：

【参考方案3】：

对我有用的是：

.HTMLBody = strbody & TextLine1 & vbcrlf & strbody & TextLine2

即将格式化字符串放在每一行文本之前。

【讨论】：

【参考方案4】：

您需要将 OutMail 对象的 .BodyFormat 属性设置为 olFormatHTML。

请参阅此处提供的示例： http://msdn.microsoft.com/en-us/library/office/aa171418(v=office.11).aspx

【讨论】：

我试过这个。我本来打算将其包含在我的帖子中，但忘记了。它对我不起作用。我不断收到“预期的表达式结束”错误。这很奇怪，这适用于 Office 2007。但是，您应该为正文使用完整的 HTML 文档。您是否已经尝试过这种方法？ "

我的 HTML 页面。

我的正文。" 让我把它放回原处并尝试在此处的 cmets 中发布代码......也许如果你看到我在做什么你可能会看到我做错了什么。顺便说一句，我正在使用 Outlook/Excel 2010……如果这有什么不同的话。我开始尝试将该代码附加到我已经拥有的代码中......我意识到我不知道如何使用已经存在的代码“使其工作”。例如，我使用的是“With OutMail”而不是“With ObjMail”。我对 VBA 的了解不够，无法在保留格式代码的同时对现有代码进行必要的更改。 ://

以上是关于如何更改通过 Excel VBA 代码通过 Outlook 发送的电子邮件的字体格式？的主要内容，如果未能解决你的问题，请参考以下文章

尝试通过 ADODB/SQLiteODBC 更改 SQLite 数据库的日志模式时，Excel/VBA 挂起

如何通过VBA代码获取Excel 2012条件格式的色标制作的颜色

Excel VBA通过单击形状更改形状的背景图像

通过 VBA 将查询从 Access 导入 Excel 并删除单个单元格

如何在Excel表格中将系统导出的部门的代码，用公式或者vba转换成文字？

如何在当前打开的数据库上通过 excel VBA 运行访问宏？