VB6应用程序发送HTML电子邮件.请看下面的代码.收到的电子邮件中删除了所有空白区域,即第7行的所有空格都被删除,发送的电子邮件说:"这是一个测试".有没有办法发送包含所有空格的HTML电子邮件.
strMailText = strMailText & "<b><font size=""2"" face=""Arial""><br>Test Email</font></b><br><br>"
strMailText = strMailText & "<table border='1'>"
strMailText = strMailText & "<tr>"
strMailText = strMailText & "<td><b><font size=""2"" face=""Arial"">Test Column</font></b></td>"
strMailText = strMailText & "</tr>"
strMailText = strMailText & "<td><font size=""2"" face=""Arial"">This is a test</font></td>"
strMailText = strMailText & "<tr>"
strMailText = strMailText & "table"
SendEMail strEmailServer, "test@test.com", strEMailTo, _
"Test Email", strMailText, True
Run Code Online (Sandbox Code Playgroud)
使用 而不是空格.
  在基于计算机的文本处理和数字排版中,不间断空间,不间断空间或不可破坏空间(NBSP)是空间字符的变体,可防止其位置处的自动换行(换行).
所以这一行
`strMailText = strMailText & "<td><font size=""2"" face=""Arial"">This is a test</font></td>"`
Run Code Online (Sandbox Code Playgroud)
应该写成:
strMailText = strMailText & "<td><font size=""2"" face=""Arial"">This is a test</font></td>"
Run Code Online (Sandbox Code Playgroud)
编辑:
或另一种方法
使用<span>标记而不是空格,并给它填充或边距这样
<span style='padding-left: 15px;'></span>
Run Code Online (Sandbox Code Playgroud)
所以看起来应该是这样的:
strMailText = strMailText & "<td><font size=""2"" face=""Arial"">This is<span style='padding-left: 15px;'></span>test</font></td>"
Run Code Online (Sandbox Code Playgroud)