Question

我的宏包含以下提供的代码。我想将它分成多于1行，但每次尝试我都有错误消息

预期：行号或标签或声明或声明结尾“，自动引用标记添加在第一行末尾和代码中断。

newYou = "<HTML><BODY><font face=""Gill Sans MT""><font size=""3""><font color=""black"">
Dear " & sTitle & " " & sSurname & " <p><u>LONG text LONG text LONG text LONG text LONG text 
LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text 
LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text
LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text 
LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text
 LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text 
 LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text
 LONG text LONG text LONG text LONG text LONG text LONG text <p></font></font> 
</BODY></HTML>"

Answer 1

不是完整的内容，但你明白了。这种情况可以更容易地将文本存储在工作表单元格中（假设您正在使用Excel）或从文本文件中读取文本并使用您的变量替换标记。

newYou = "<HTML><BODY><font face=""Gill Sans MT""><font size=""3"">" & _
    "<font color=""black"">Dear " & sTitle & " " & sSurname & _
     " <p><u>LONG text LONG text LONG text LONG text LONG text LONG text LONG text " & _
    " LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG" & _
    "text <p></font></font> </BODY></HTML>"

Answer 2

我找到了解决方案。简单地决定拆分消息所以看起来像这样。

msg1 = "<HTML><BODY><font face=""Gill Sans MT""><font size=""3""><font color= ""black"">Dear " & sTitle & " " & sSurname & " <p><u>LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text LONG text <p></font></font> </BODY></HTML>"

msg2 = "second part of the message............."

之后

myItem.HTMLBody = msg1 & msg2

Vba .htmlbody长文本无法创建新行

2 个答案: