在VBA中格式化HTML_Html_Vba - Fatal编程技术网

在VBA中格式化HTML

html vba

在VBA中格式化HTML,html,vba,Html,Vba,我目前面临将HTML放入VBA以发送电子邮件的问题。格式不是我想要的，我一直在玩弄它我的问题的第一部分是获取字体大小，以显示Outlook的代码状态。如果字体大小为22，则Outlook中显示的字体大小为16.5（第一行）如果字体大小设置为11，则显示为8.5 我有以下问题要回答：字体显示为Times New Roman 12号，而不是Calibri 11号。此外，所有的“列”和“顶行”都没有与顶部对齐语法错了吗 .HTMLBody = "<html><center&g

我目前面临将HTML放入VBA以发送电子邮件的问题。格式不是我想要的，我一直在玩弄它

我的问题的第一部分是获取字体大小，以显示Outlook的代码状态。如果字体大小为22，则Outlook中显示的字体大小为16.5（第一行）

如果字体大小设置为11，则显示为8.5

我有以下问题要回答：字体显示为Times New Roman 12号，而不是Calibri 11号。此外，所有的“列”和“顶行”都没有与顶部对齐

语法错了吗

.HTMLBody = "<html><center><p style='font-family:calibri;font-size:22'>" & "***<u>TEXT AT TOP</u> ***" & "</center></p>" & "<br>" & "<br>" & _
        "<p style='font-family:calibri;font-size:11'>" & "Good afternoon," & "</p>" & "<br>" & _
        "<p style='font-family:calibri;font-size:11'>" & "Attached please find your ... <strong> Please be advised.....</strong>" & "</p>" & _
         "<table><tr><td style='font-family:Calibri:align = top:font-size:11'>Column 1:</td><td style='font-family:Calibri'>Top Line</td></tr>" & "<br>" & _
        "<tr><td style='font-family:Calibri:align = top:font-size:11'>Column 2</td><td style='font-family:Calibri:align = top:font-size:11'>Top Line Row 2 <br> More text</tr></td>" & "<br>" & _
        "<tr><td></td><td style='font-family:Calibri:align = top:font-size:11'>Top Line Row 3 <br> More text </tr></td>" & "<br>" & _
        "<tr><td style='font-family:Calibri:align = top:font-size:11'>Column 3</td><td style='font-family:Calibri:align = top:font-size:11'>Top Line Row 4:</tr></td></table>" & "<br>" & _
        "<p style='font-family:calibri:font-size:11'>" & "Should you have any questions, or require any additional information, please do not hesitate to contact me anytime.  Thank you!" & "</p>" & "<br>" & _
        "<p style='font-family:calibri:font-size:11'>" & "Best regards," & "</p>" & _
         "<table><tr><td style='font-family:Calibri:font-size:12'><strong>Size 12 text</strong> | text <br> text </tr></td>" & _
         "<tr><td style='font-family:Calibri:font-size:12><strong>Name</strong></tr></td><table>"                   .Display

.HTMLBody=“”和“***顶部文本***”和“”&“
”和“
”&”_
“
”和“下午好”&“
”和“
”&”_
“”和“附件请找到您的……请注意……”“&”“&”_
“第1列：顶行”&“
”和_
“第2列顶行第2行更多文本”和“
”和_
“顶行第3行更多文本”&“
”和_
“第3列顶行第4行：”&“
”&”_
“”&“如果您有任何问题或需要任何其他信息，请随时与我联系。谢谢！”&“
”&“
”&”_
“”和“致意”&“”和_
“大小为12的文本”|文本
文本”&_
“您的HTML中有错误提示：

您缺少
您需要指定字体大小的单位。例如22pt
或22px
您在许多地方使用了冒号：
而不是分号；
align=top
不是CSS属性，因此将其移出样式
单元格和行之间不能有

必须在
之后，而不是之前
您没有关闭第二个表和

以下是已清理的HTML：
"<html><body><center><p style='font-family:calibri;font-size:22px;'>" & _
"***<u>TEXT AT TOP</u> ***</center></p><br><br>" & _
"<p style='font-family:calibri;font-size:11px;'>" & _
"Good afternoon,</p><br>" & _
"<p style='font-family:calibri;font-size:11px;'>" & _
"Attached please find your ... <strong> Please be advised.....</strong></p>" & _
"<table><tr><td style='font-family:Calibri;font-size:11px;' align='top'>Column 1:</td>" & _
"<td style='font-family:Calibri;'>Top Line</td></tr>" & _
"<tr><td style='font-family:Calibri;font-size:11px;' align='top'>Column 2</td>" & _
"<td style='font-family:Calibri;font-size:11px;' align='top'>Top Line Row 2 <br> More text</td></tr>" & _
"<tr><td></td><td style='font-family:Calibri;font-size:11px;' align='top'>Top Line Row 3 <br> More text </td></tr>" & _
"<tr><td style='font-family:Calibri;font-size:11px' align='top'>Column 3</td>" & _
"<td style='font-family:Calibri;font-size:11px;' align='top'>Top Line Row 4:</td></tr></table><br>" & _
"<p style='font-family:calibri;font-size:11px;'>Should you have any questions, or require any additional information, please do not hesitate to contact me anytime.  Thank you!</p><br>" & _
"<p style='font-family:calibri;font-size:11px;'>Best regards,</p>" & _
"<table><tr><td style='font-family:Calibri;font-size:12px;'><strong>Size 12 text</strong> | text <br> text </td></tr>" & _
"<tr><td style='font-family:Calibri;font-size:12px;><strong>Name</strong></td></tr></table></body></html>"

”" & _
“***顶部的文本***


”&_
“" & _
“下午好，

”&_
“" & _
“附件请找到您的请注意……“&_
“第1栏：”&_
"顶线"及_
"第二栏及_
“顶行第2行
更多文本”&_
“顶行第3行
更多文本”&_
"第三栏及_
“顶行第4行：
”&_
“如果您有任何问题，或需要任何其他信息，请随时与我联系。谢谢大家!
 
“&_
“致以最诚挚的问候，“&_
“大小为12的文本”|文本
文本”&_
“您的HTML中有错误提示：

您缺少
您需要指定字体大小的单位。类似于22pt
或22px
您使用了冒号：
而不是分号在许多地方

align=top
不是CSS属性，因此将其移出样式
单元格和行之间不能有

必须在
之后，而不是之前
您没有关闭第二个表和

以下是已清理的HTML：
"<html><body><center><p style='font-family:calibri;font-size:22px;'>" & _
"***<u>TEXT AT TOP</u> ***</center></p><br><br>" & _
"<p style='font-family:calibri;font-size:11px;'>" & _
"Good afternoon,</p><br>" & _
"<p style='font-family:calibri;font-size:11px;'>" & _
"Attached please find your ... <strong> Please be advised.....</strong></p>" & _
"<table><tr><td style='font-family:Calibri;font-size:11px;' align='top'>Column 1:</td>" & _
"<td style='font-family:Calibri;'>Top Line</td></tr>" & _
"<tr><td style='font-family:Calibri;font-size:11px;' align='top'>Column 2</td>" & _
"<td style='font-family:Calibri;font-size:11px;' align='top'>Top Line Row 2 <br> More text</td></tr>" & _
"<tr><td></td><td style='font-family:Calibri;font-size:11px;' align='top'>Top Line Row 3 <br> More text </td></tr>" & _
"<tr><td style='font-family:Calibri;font-size:11px' align='top'>Column 3</td>" & _
"<td style='font-family:Calibri;font-size:11px;' align='top'>Top Line Row 4:</td></tr></table><br>" & _
"<p style='font-family:calibri;font-size:11px;'>Should you have any questions, or require any additional information, please do not hesitate to contact me anytime.  Thank you!</p><br>" & _
"<p style='font-family:calibri;font-size:11px;'>Best regards,</p>" & _
"<table><tr><td style='font-family:Calibri;font-size:12px;'><strong>Size 12 text</strong> | text <br> text </td></tr>" & _
"<tr><td style='font-family:Calibri;font-size:12px;><strong>Name</strong></td></tr></table></body></html>"

“”和_
“***顶部的文本***


”&_
“”&_
“下午好，

”&_
“”&_
“附上您的……请注意……”&_
“第1栏：”&_
"顶线"及_
"第二栏及_
“顶行第2行
更多文本”&_
“顶行第3行
更多文本”&_
"第三栏及_
“顶行第4行：
”&_
“”&_
“大小为12的文本”|文本
文本”&_
“等等，从来没有人提出过一个COM类型库，它公开了使用对象生成正确HTML标记的功能？获取想法…#SeeANeed#filleneed省去你的痛苦，把格式化的HTML放在一个单元格中，然后为HTMLBody获取该单元格的值。在VBE中键入它并不是一件有趣的事。等等，没有人会这样做。”创建一个COM类型库，该库公开了使用对象生成正确HTML标记的功能？获取想法…#SeeANeed#filleneed省去你的痛苦，将格式化的HTML放在一个单元格中，然后为HTMLBody获取该单元格的值。在VBE中键入它并不是一件有趣的事。