ASP CLASSIC中的邮件功能在体内发送字面上的html标签

时间:2015-03-16 09:54:15

标签: html email asp-classic

几周前,我在ASP Classic代码中实现了一个邮件功能,但它产生了一些奇怪的标记/样式错误。

当使用Mail函数发送邮件时,它有时会在语法正确的情况下输出html标签。

请参阅下面的图片了解文字html输出:

enter image description here

正如您在下面的图片中看到的那样,字体标记在字面上显示,而它与其他列完全相同,可以正确显示。关于它的奇怪之处在于它有时会显示错误的字体,然后是一些随机的<TR>标签,然后是1个未显示的边框或者href被弄乱了(点击了href会生成一些随机的%20个字符,而将鼠标悬停在它上面会显示href(应该)。

这是某种ASP经典邮件功能的bug还是..?似乎只有一个html标签从字面上显示,并且从不超过1.有时它也根本不生成任何文字标签(因此输出正确)。

邮件功能如下:

Function SendMail(sBody,sEmail)

            set mail=server.createobject("Persits.MailSender")
            Mail.Host = "spamfilter.myWebsite.com" ' Required
            Mail.Port = 587 ' Optional. Port is 25 by default 

            Mail.From = "support@mywebsite.com"

            Mail.FromName = "My Name"

            sEmail = Uploader.Form("EMail")

            Mail.AddAddress sEmail

            Mail.Subject = "Tickets: " & FormSubject
            Mail.Body = sBody
            Mail.IsHTML = True 
            Mail.send

End Function

这是邮件正文的生成方式:

sBody="<font face=""Verdana, Arial"" size=2 color=""black"">Geachte " & FormNaam & ",<br><br>"
                sBody=sBody & "Recentelijk heeft u een ticket aangemaakt betreffende '<b>" & FormSubject &  "</b>'.<br>"
                sBody=sBody & "Wij zullen proberen uw ticket zo snel mogelijk te behandelen. Informatie over uw ticket kunt u hieronder terug vinden." & "<br><br>"

                sBody=sBody &  "<br>"

                sBody=sBody &  "<table>"
                sBody=sBody &  "<tr><th style=""border: 1px solid black;""><font face=""Verdana, Arial"" size=2 color=""#000080"">Verstuur datum</th><th style=""border: 1px solid black;""><font face=""Verdana, Arial"" size=2 color=""#000080"">Voor afdeling</th><th style=""border: 1px solid black;""><font face=""Verdana, Arial"" size=2 color=""#000080"">Soort ticket</th><th style=""border: 1px solid black;""><font face=""Verdana, Arial"" size=2 color=""#000080"">Onderwerp</th><th style=""border: 1px solid black;""><font face=""Verdana, Arial"" size=2 color=""#000080"">Ticket beschrijving</th></tr>"

                sBody=sBody &  "<tr bgcolor=""#BEC0F7"">"

                sBody=sBody & "<td style=""border: 1px solid black;""><font face=""Verdana, Arial"" size=2 color=""black"">"
                sBody=sBody &  day(sToday)&"-" & month(sToday) & "-" & year(sToday) 
                sBody=sBody & "</td>"

                sBody=sBody & "<td style=""border: 1px solid black;""><font face=""Verdana, Arial"" size=2 color=""black"">"
                sBody=sBody & FormAutomatiseringClean
                sBody=sBody & "</td>"

                sBody=sBody & "<td style=""border: 1px solid black;""><font face=""Verdana, Arial"" size=2 color=""black"">"
                sBody=sBody & FormProbleemClean
                sBody=sBody & "</td>"

                sBody=sBody & "<td style=""border: 1px solid black;""><font face=""Verdana, Arial"" size=2 color=""black"">"
                sBody=sBody & FormOnderwerp
                sBody=sBody & "</td>"

                sBody=sBody & "<td style=""border: 1px solid black;""><font face=""Verdana, Arial"" size=2 color=""black"">"
                sBody=sBody & FormBeschrijving
                sBody=sBody & "</td></tr>"

                sBody=sBody & "</table><br>"

                    Randomize
                    intLength = 100000
                    intRandom = CInt((Rnd * 10000)Mod intLength) + 1

                'SELECT LAST ID OR ID OF THE SENDER/SUBJECT/SOMETHING UNIQUE
                sBody=sBody & "De status van uw ingediende ticket kunt u bijhouden via de onderstaande knop:<br><br>"
                sBody=sBody & "<table cellspacing=""0"" cellpadding=""0""><tr>" 
                sBody=sBody & "<td align=""center"" width=""200"" height=""35"" bgcolor=""#000091"" style=""-webkit-border-radius: 5px; -moz-border-radius: 5px; border-radius: 5px; color: #ffffff; display: block;"">"
                sBody=sBody & "<a href=""http://mywebsite/ticket.asp?type=ticket&ticketid="&TicketID&"&validatie="&FormRecode&""" style=""font-size:16px; font-weight: bold; font-family: Helvetica, Arial, sans-serif; text-decoration: none; line-height:40px; width:100%; display:inline-block""><span style=""color: #FFFFFF"">Ticket Status</span></a><br><br>"
                sBody=sBody & "</td></tr> </table><br>"
                sBody=sBody & "Indien de knop het niet doet kunt u de volgende link volgen: http://mywebsite/ticket.asp?type=ticket&ticketid="&TicketID&"&validatie="&FormRecode&"<br><br>"

                sBody=sBody & "With kind regards," & "<br><br>"

                sBody=sBody & "My Company B.V." & "<br><br>"
                sBody=sBody & "<font face=""Calibri, Arial"" style=""font-size:10pt;"" color=""black""><i>My company BV</i>" & "<br>"
                sBody=sBody & "<font face=""Calibri, Arial"" style=""font-size:10pt;"" color=""gray"">GSome adress 22 | Some postal zip | Place" & "<br>"
                sBody=sBody & "<font face=""Calibri, Arial"" style=""font-size:10pt;"" color=""gray"">Some text | Percel number 100" & "<br>"
                sBody=sBody & "<font face=""Calibri, Arial"" style=""font-size:10pt;"" color=""black"">T: " & "<font face=""Verdana, Arial"" size=1 color=""gray"">0416-322792" & "<br>"
                sBody=sBody & "<font face=""Calibri, Arial"" style=""font-size:10pt;"" color=""black"">F: " & "<font face=""Verdana, Arial"" size=1 color=""gray"">0416-322582" & "<br>"
                sBody=sBody & "<font face=""Calibri, Arial"" style=""font-size:10pt;"" color=""black"">E: support@mysite.com" & "<br>"
                sBody=sBody & "<font face=""Calibri, Arial"" style=""font-size:10pt;"" color=""black"">W: www.mysite.com" & "<br><br>"

                err=SendMail(sBody,sEmail)

1 个答案:

答案 0 :(得分:1)

使用Persits.MailSender 的经验(pointed out@John这是第三方组件,默认情况下不可用,内置替代方案是CDO)我总是发现,如果HTML格式不正确(即缺少标记终止符),结果将不会始终如预期那样。

在这种特定情况下,它是一个HTML片段而不是真正的文档,因为它没有正确定义;

<html>
  <head>
  </head>
  <body>
  </body>
</html>

使用<font>的{​​{1}}代码也没有终止,我怀疑这是导致此问题的原因。

但我建议您编写将来通过验证的HTML以避免此类问题。