html - 使用 HTMLbody 保留原始段落间距

Question

子冷电子邮件()

Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim lastrow As Long
Dim iCounter As Long
Dim MailDest As String
Dim subj As String
Dim bod As String
Dim ws As Worksheet
Dim signature As String

lastrow = ThisWorkbook.Worksheets("Prospects").Cells(Rows.Count, "D").End(xlUp).Row 'change worksheet

For iCounter = 2 To lastrow

    Set OutLookApp = CreateObject("Outlook.application")
    Set OutLookMailItem = OutLookApp.CreateItem(0)

     signature = Environ("appdata") & "\Microsoft\Signatures\"
    If Dir(signature, vbDirectory) <> vbNullString Then
        signature = signature & Dir$(signature & "*.htm")
    Else:
        signature = ""
    End If
    signature = CreateObject("Scripting.FileSystemObject").GetFile(signature).OpenAsTextStream(1, -2).ReadAll

    With OutLookMailItem

        subj = ""
        MailDest = ""
        bod = ""

        If Cells(iCounter, 13) = "*" Then

            subj = Cells(iCounter, 14).Value
            MailDest = Cells(iCounter, 7).Value
            bod = Cells(iCounter, 16).Value

            .BCC = MailDest
            .Subject = subj
            .HTMLBody = bod & signature
            .Send
        End If

    End With



Next iCounter

End Sub

上面的代码自动将电子邮件发送到一列电子邮件地址，并从 Excel 中的一列中获取正文段落。

我希望我的邮件在 Outlook 中包含我的默认签名，因此我将代码更改为 HTMLbody。

发出的电子邮件不保留原始段落间距:

line 1

line 2

line 3

现在看起来像这样: line1 line2 line3 .

Answer 1

我会回应 Scott Holtzman 关于阅读 HTML 的建议。每当我需要在电子邮件中进行 HTML 格式化时，我发现 <br>是最直接的选择。使用一个 <br>将文本移动到下一行。要创建空白，(例如，段落之间的空行)使用 <br><br> .

您可以将其放入文本所在的单元格中。括号会将其标记为 HTML，并将在电子邮件中呈现为中断而不是可读文本。

换句话说:Thanks,<br>Cthulhu在您的 excel 单元格中，将呈现为
“谢谢，克苏鲁”在您的电子邮件中。