使用 Excel VBA 发送电子邮件时字体大小与代码中指定的大小不匹配

Question

这是代码：

Sub SendEmail(Body as String, EmailTo as String, EmailCC as String, EmailSubject as String, Message as String, Title as String)
Dim EmailApp As Outlook.Application
Set EmailApp = New Outlook.Application

Dim Email As Outlook.MailItem

Body = "<font face=""Calibri""; size= ""11pt""; color:""#000000"">" & Message & "</font>"
Signature = "<font face=""Arial""; size=""11pt""; color=""#808080"">Kind regards<br><br></font>" & _
            "<font face=""Arial""; size=""10pt""; color=""#808080"">" & Title & "</font>"

Set Email = EmailApp.CreateItem(olMailItem)
Email.To = EmailTo
Email.CC = EmailCC
Email.Subject = EmailSubject
Email.HTMLBody = Body & vbNewLine & vbNewLine & Signature
Email.Send
End Sub

在发送的电子邮件中，颜色和字体是正确的，但字体大小是 36，而不是我想要的 11 和 10。有人知道为什么会这样吗？

Answer 1

您可以使用 HTML 字体元素代码中的“size”属性指定网页上的文本大小。如果网页上的文本没有定义大小，则 Web 浏览器将以大小 3 显示文本。

您为尺寸属性输入的值是代表七种不同相对尺寸中任意一种的数字。这些数字分别是 1 到 7。

指定文本大小的另一种方法是输入 1 到 4 之间的数字，该数字可以增加或减少

basefont

的大小。在没有

basefont

声明的情况下，默认

basefont

尺寸为 3。通过为尺寸属性输入值“+1”，您可以指定要显示的文本大一号，等于尺寸 4。同样值“+2”等于字体大小 5。从另一个方向看，值“-1”等于大小 2，“-2”等于大小 1（

basefont

大小 3 - 2 = 字体大小） 1).

如果您需要在标记中使用

px

或

pt

，您可以尝试使用 CSS 字体大小。