excel - 从 Excel 内容格式化电子邮件正文

Question

我有一个包含给定数据的工作表，

我需要使用 Microsoft Outlook 以特定日期所需的格式通过电子邮件发送数据。

假设日期是 2015 年 1 月 5 日。

这就是电子邮件的外观，

代码是在Excel 2007工作簿的模块中编写的，

Public Function FormatEmail(Sourceworksheet As Worksheet, Recipients As Range, CoBDate As Date)

    Dim OutApp As Object
    Dim OutMail As Object
    Dim rows As Range

    On Error GoTo FormatEmail_Error

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    For Each rows In Recipients.Cells.SpecialCells(xlCellTypeConstants)

        If rows.value Like "?*@?*.?*" Then

            Set OutMail = OutApp.CreateItem(0)

            On Error Resume Next
            With OutMail
                .To = rows.value
                .Subject = "Reminder"
                .Body = "Hi All, " & vbNewLine & _
                         vbNewLine
                .display
            End With
            On Error GoTo 0

            Set OutMail = Nothing

        End If

    Next rows

    On Error GoTo 0
    Exit Function

FormatEmail_Error:

    Set OutApp = Nothing
    Application.ScreenUpdating = True
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure FormatEmail of Module modOutlook"

End Function

Answer 1

如果您想创建格式良好的 Outlook 电子邮件，那么您需要生成具有格式的电子邮件。纯文本电子邮件显然是不够的，因此您必须寻找 HTML 格式的电子邮件。如果是这种情况，您可能希望使用 VBA 动态创建 HTML 代码，以模仿 Excel 的精美视觉表示。

在以下链接下http://www.quackit.com/html/online-html-editor/您会发现一个在线 HTML 编辑器，它允许您准备格式良好的电子邮件，然后向您显示获得此格式所需的 HTML 代码。之后，您只需使用 VBA 将电子邮件正文设置为此 HTML 代码

.HTMLBody = "your HTML code here"

而不是

.Body = "pure text email without formatting"

如果这还不够，并且您想要将 Excel 的部分内容复制/粘贴到该电子邮件中，那么您必须复制 Excel 的部分内容，将它们另存为图片，然后将图片添加到您的电子邮件中(一旦再次使用 HTML)。如果这是您想要的，那么您将在这里找到解决方案: Using VBA Code how to export excel worksheets as image in Excel 2003?