空间和马车退货正在添加到HTML电子邮件中

Question

我们有一个服务器生成的HTML文件（ myfile.html ），该文件嵌入了发送给客户的电子邮件中。多年来，我们一直在使用这种方法，但问题很小。我们通过II6将Windows Server 2012与SMTP服务器一起使用。最近，HTML在电子邮件中倾斜。在检查源文件时，一切看起来都很好。直接打开HTML文件以在浏览器中查看，如您所期望的。这是我们用来将文件读取到内存中以准备电子邮件的代码：

        Set objFile = objFSO.OpenTextFile(strFilePath)
        Do While objFile.AtEndOFStream <>True
            line = objFile.ReadLine
            If Instr(1, line, "<table") > 0 And strHeaderWritten = "N" Then
                strHeaderWritten = "Y"
                strFileContent=strFileContent & strHeader
            End If
            strFileContent=strFileContent & line
        Loop
        set objFile = Nothing

然后我们将内容添加到电子邮件中并发送：

    strBody = strFileContent
    Set objMail = CreateObject("CDO.Message")

    Set objMail.Configuration = cdoConfig
    objMail.From = strFrom
    objMail.ReplyTo = strReplyTo
        
    objMail.To = strTo
    
    objMail.Subject = strSubject
    objMail.HTMLBody = strBody

    objMail.Fields("urn:schemas:httpmail:importance").Value = strImportance
    objMail.Send

以下是电子邮件中它列出的示例。来源没有错误：

其他人是否有这种情况发生在他们身上？

在这个数小时一直在寻找解释。非常感谢您的阅读！

我尝试使用ADO流方法进行电子邮件，但它仍然相同：

        Dim objStream
        Set objStream = Server.CreateObject("ADODB.Stream")
        objStream.Type = 2 'adTypeText
        objStream.CharSet = Application("CharacterSet")
        objStream.Open
        objStream.LoadFromFile strFilePath

        Do While Not objStream.EOS
            line = objStream.ReadText(-2)
            If Instr(1, line, "<table") > 0 And strHeaderWritten = "N" Then
                strHeaderWritten = "Y"
                strFileContent=strFileContent & strHeader
            End If
            If Instr(1, line, "< table") > 0 Then
                strFileContent=strFileContent & "<h3>Broken HTML</h3>"
            End If
            strFileContent=strFileContent & line
        Loop
        objStream.Close
        Set objStream = Nothing

如您所见，我还为我看到的一个持续错误之一添加了检查，我看到了 space 在＆lt; 和表之间插入。以这种方式检查输出不会像检查添加空间的文本一样捕获问题。因此，它必须在编写后发生，否则我需要使用正则表达式进行测试。接下来我会尝试的。我仍然在多个电子邮件客户端看到它。这是ADO流的示例后测试：

Answer 1

这似乎是CDO中的一个常见问题。我在网上发现了一些问题，即空间被随机插入到HTML体中。

一个答案是使HTML主体不是一个长的字符串，因为CDO然后将插入随机空间，而是自己包含空格，以便CDO不必这样做。
您可以尝试添加 vbcrlf 或仅在您发送的文本中的普通空间。

第二个建议对我来说更有意义。这可能是编码问题。这也解释了为什么添加自己的空格可能是解决方法。
反正; CDO允许在发送之前设置CDO.Message对象的编码。
尝试 objmail.bodypart.contenttransferencoding =“引用打印机” 查看是否解决了。

Answer 2

问题是Windows使用线路断路和carrage返回。我建议将文本的正文加载并用VBLF替换所有实例，您会发现您不会再有双间隔了。

例如

body = replace(body, vbcrlf, vblf)