1

他是一个小问题，但让我感到困惑。我正在自动从excel发送一封电子邮件。出于某种原因，下面的代码使最后一行的间距大于正常间距：

Sub emailspacing()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
    .HTMLBody = "<p style='font-family:calibri;font-size:14.5'>Thanks for your help</p>"
    .display
End With

然而，当我删除 P 样式部分时，生成的电子邮件具有完美的行距？？？

Sub emailspacing()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
    .HTMLBody = "Thanks for your help"
    .display
End With

有谁知道将程式化的 HTML 文本与正常行距相结合的方法？

4

1 回答 1

1

破解它！这需要添加到 p 样式中：

边距底部：.0001pt；

于 2013-02-27T11:30:27.003 回答