删除HTML电子邮件中的随机换行
我现在有一个问题，我根本无法解释为什么会发生。 我目前正在从Excel发送HTML电子邮件。 它大部分工作得很好，但是我在一些段落中得到了这些随机的换行符。 这是我的代码VBAfunction：
Public Function EmailRapport(ByVal MailTo As String, UgeNr As String, ByVal Kunde As String, MailAtc As String) Dim Mail As New Message Dim Config As Configuration: Set Config = Mail.Configuration Config(cdoSendUsingMethod) = cdoSendUsingPort Config(cdoSMTPServer) = "SMTPServer" Config(cdoSMTPServerPort) = 25 Config(cdoSMTPAuthenticate) = cdoBasic Config(cdoSMTPUseSSL) = True Config(cdoSendUserName) = "Email" Config(cdoSendPassword) = "Password" Config.Fields.Update Mail.MimeFormatted = True Mail.To = MailTo Mail.Subject = "Subject" Dim HTMLSource as string HTMLSource = "<html>" HTMLSource = HTMLSource & "<head>" HTMLSource = HTMLSource & "<style> p {font-family: verdana; font-size: 14px; margin:0px; padding:0px;}</style>" HTMLSource = HTMLSource & "</head>" HTMLSource = HTMLSource & "<body style=""background-color:#EEEEEE; margin: 0px"">" HTMLSource = HTMLSource & "<table style=""width:100%; max-width: 630px; min-width: 260px; margin: 0 auto; border-collapse: separate; border-spacing: 5px;""><tr><td><img src=""http://synsbasen.dk/images/synsbasen_logo_tekst.png"" height=""85px;""></td></tr>" HTMLSource = HTMLSource & "<tr>" HTMLSource = HTMLSource & "<td style=""background-color: white; padding: 15px; border:1px solid #e1e1e1; "">" HTMLSource = HTMLSource & "<p>Hej " & Kunde & "</p><br>" HTMLSource = HTMLSource & "<p>Synsbasen tilbyder nu et statistikværktøj udviklet til at hjælpe de individuelle synshaller. " HTMLSource = HTMLSource & "Med Synsbasen får du nemt og overskueligt et overblik over din synsvirksomhed, samt mulighed for at " HTMLSource = HTMLSource & "sammenligne dig på kryds og tværs med dine nærmeste konkurrenter.</p>" HTMLSource = HTMLSource & "<br>" HTMLSource = HTMLSource & "<p><b>Hvordan virker det?</b></p>" HTMLSource = HTMLSource & "<p>Synsbasen indsamler alt tilgængeligt data vedrørende syn og køretøjer mm, som indgår i vores ugentlige " HTMLSource = HTMLSource & "rapporter. En rapport sammenligner som udgangspunkt sin egen virksomhed med 3 nærtliggende synshaller. " HTMLSource = HTMLSource & "Vores rapporter er inddelt i 3 hovedkategorier.</p>" HTMLSource = HTMLSource & "<br>" HTMLSource = HTMLSource & "<p><b>Standard:</b></p>" HTMLSource = HTMLSource & "<p>Standard rapporten indeholder antal syn for hver af de valgte synshaller og den tilsvarende markedsandel " HTMLSource = HTMLSource & "som de hver i sær har, samt et kig på udviklingen af markedsandel over de seneste 13 uger. Antal syn og " HTMLSource = HTMLSource & "markedsandel kan både ses på ugebasis, såvel som de individuelle dage i den aktuelle uge.</p>" HTMLSource = HTMLSource & "<br>" HTMLSource = HTMLSource & "<p><b>Udvidet:</b></p>" HTMLSource = HTMLSource & "<p>Den udvidede rapport yderligere information om fordelingen af synsarter og synstyper, samt hvornår på " HTMLSource = HTMLSource & "døgnet de enkelte syn er foretaget.</p>" HTMLSource = HTMLSource & "<br>" HTMLSource = HTMLSource & "<p><b>Individuel:</b></p>" HTMLSource = HTMLSource & "<p>Ønskes yderligere statistik kan vi tilbyde en række tilkøb, herunder:<br>" HTMLSource = HTMLSource & "• Fordelingen af køretøjernes km-stand<br>• Fordelingen af køretøjernes alder<br>" HTMLSource = HTMLSource & "• Gennemsnits antal fejl / bil<br>" HTMLSource = HTMLSource & "• Meddele hvornår de valgte synshaller har haft tilsyn af Trafikstyrelsen, og herunder om de er gået op eller ned i karakter.!</p>" HTMLSource = HTMLSource & "<br>" HTMLSource = HTMLSource & "<p>Fælles for alle kategorier er, at de udgives ugentligt for den forhenværende uge. Der er vedhæftet et eksempel på en standard " HTMLSource = HTMLSource & "og en udvidet rapport. Har jeres synsvirksomhed nogle specielle ønsker eller forslag, er du meget velkommen til at kontakte mig.</p>" HTMLSource = HTMLSource & "<br>" HTMLSource = HTMLSource & "<p><b>Hvad koster det?</b></p>" HTMLSource = HTMLSource & "<p>Du tegner et løbende abonnement på 6 mdr. af gangen.<br>" HTMLSource = HTMLSource & "Standard Rapport: 2.500 kr. / 6 mdr. (eks. moms.)<br>" HTMLSource = HTMLSource & "Udvidet Rapport: 3.500 kr. / 6 mdr. (eks. moms.)<br>" HTMLSource = HTMLSource & "Oprettelsesgebyr: 1.000 kr. (eks. moms.)<br>" HTMLSource = HTMLSource & "Ændringer i valgte synshaller mm: 500 kr. (eks. moms.)</p>" HTMLSource = HTMLSource & "<br>" HTMLSource = HTMLSource & "<p>Har du spørgsmål eller kommentarer er du alti velkommen til at kontakte mig på info@synsbasen.dk eller tlf. 30 202 606. " HTMLSource = HTMLSource & "Jeg kontakter dig en gang i næste uge, hvis ikke jeg hører fra dig inden.</p>" HTMLSource = HTMLSource & "<br>" HTMLSource = HTMLSource & "<p>Med venlig hilsen<br>Tobias Knudsen</p>" HTMLSource = HTMLSource & "</td>" HTMLSource = HTMLSource & "</tr>" HTMLSource = HTMLSource & " <tr><td><p style=""text-align: center; font-family: verdana; font-size: 12px; margin:0px; padding:0px;""> Synsbasen</p></td></tr></table></body></html>" Mail.HTMLBody = HTMLSource On Error Resume Next Mail.Send If Err.Number <> 0 Then MsgBox Err.Description, vbCritical, "There was an error" Exit Function Else End If End Function 在这里，您可以看到我收到的邮件中的图片。 “Forhenværende”一词不应该被分割成一个空格，而且在VBA代码中用一个单词清楚拼写。
我无法在我的VBA代码中find额外的空间，所以我检查了电子邮件中的HTML代码。 在这里我发现了一些有趣 它增加了一个换行符，如下图所示：
当我将HTML源代码保存为.html文件并在浏览器中打开它时，它将显示应该显示的邮件。 有没有人遇到类似的问题？
添加了这个，问题就解决了。
Mail.HTMLBodyPart.ContentTransferEncoding = "quoted-printable"
感谢所有帮助过的人！