2016-08-19 4 views
0

Screeshot Ich habe den folgenden Code in VBA, die Newline (vbnewline/vbcrlf) enthält. Dann rufe ich die Variable "Clientname" in .htmlbody auf. Aber es wird die gesamte Zeichenfolge in einer Zeile setzen die Newline beseitigenHTML NewLine Ausgabe

'Variable "un" will be assigned a value using a "For loop" above this code 

Reading Text file: 

Set oFS = oFSO.OpenTextFile("c:\test.txt") 
TxtPro = oFS.ReadAll 

If Not (InStr(ClientName, un)) > 0 Then 
    ClientName = ClientName & vbNewLine & un 
End If 

with objmail 
.bodyformat = olformatHTML 
.htmlbody = "<HTML><BODY> " & clientname & _ 
    "<Br> Your File is given below <br> " & txtpro & "</body></html>" 
end with 

Antwort

1

HTML nicht/Parse versteht Linie in der gleichen Art und Weise speist wie VBA tut. Verwenden Sie <BR> Tag für HTML.

Ändern Sie diese Zeile ClientName = ClientName & vbNewLine & un-ClientName = ClientName & "<BR>" & un

bearbeiten wie pro Ihre aktualisierte Frage:

Sub test() 

    Dim oFSO   As New Scripting.FileSystemObject 
    Dim oFS   As Object 

    Dim txtPro  As String 
    Dim strHTML  As String 
    Dim clientName As String 

    Set oFS = oFSO.OpenTextFile("C:\temp\test.txt") 
    txtPro = oFS.ReadAll() 

    '/ This will replace linefeeds with <BR> to render line breaks in HTML 
    txtPro = Replace(txtPro, vbCrLf, "<BR>") 

    strHTML = "<HTML><BODY> " & clientName & _ 
    "<Br> Your File is given below <br> " & txtPro & "</body></html>" 

End Sub 
+0

Genau wie dieser ehh ... Es funktionierte. Kannst du mir bitte im selben Atemzug auch sagen, warum es das Format, das es bereits hat, durcheinander bringt. Es liest eine Textdatei und ordnet sie einer Variablen txtpro zu. Aber wenn ich es in der .htmlbody erinnere, ist das Format völlig durcheinander. Die ursprüngliche Codierung wurde oben geändert. – user3323922

+0

hat dich nicht bekommen. Können Sie das Bild des zu erwartenden Formats im Vergleich zum Format anzeigen, das Sie erhalten? Auch die TxtPro-Variable wird nie nach der Zuweisung verwendet. – cyboashu

+0

Ein Screenshot der korrekten und falschen Formate wird aktualisiert. Auch die Codierung geändert, um txtpro Variable – user3323922