VBA email format - html vs. plain

[karolina1406]

hi,
I am using vba to create an email from the UserForm. One of my TextBoxes (called "WorkInstructionsTX") in the form has multiline. How can I create an email so the information from this particular TextBox is multiline in an email body as well? I am using the below code:

.htmlbody = "Hi " & EngineerNameTX.Value & "," & "<br><br>" _
& "<b> text 1" & TOANoTX.Value & " </b> text 2" & SiteNameTX.Value & " on " & StartDateTX.Value & "< br > " _
& "</b>text 2" & "<br><br>" _
& "<b>Work required:" & "</b><br>" _
& WorkInstructionsTX.Text

 

[Trevor_S]

I'm assuming that line breaks in the text box are either character 10 or 13 (or both) - but in the html you need to use <br>

If so, could you use the replace function to change the line breaks? Before your line of code, put this:

HtmlWITX = WorkInstructionsTX.Text
HtmlWITX = Replace(HtmlWITX, chr(10), "<br>")
HtmlWITX = Replace(HtmlWITX, chr(13), "<br>")
HtmlWITX = Replace(HtmlWITX, "<br><br>", "<br>")

Then in your code, change WorkInstructionsTX.Text to HtmlWITX
This should convert the line break characters to html and prevent a double line break if both have been used.

 

[karolina1406]

I'm assuming that line breaks in the text box are either character 10 or 13 (or both) - but in the html you need to use <br>

If so, could you use the replace function to change the line breaks? Before your line of code, put this:

HtmlWITX = WorkInstructionsTX.Text
HtmlWITX = Replace(HtmlWITX, chr(10), "<br>")
HtmlWITX = Replace(HtmlWITX, chr(13), "<br>")
HtmlWITX = Replace(HtmlWITX, "<br><br>", "<br>")

Then in your code, change WorkInstructionsTX.Text to HtmlWITX
This should convert the line break characters to html and prevent a double line break if both have been used.

hi,
thank you for this. but i think i am not sure where exacly in my code I need to put it. Can you re-write my code to include what you mentioned?

 

[Trevor_S]

They are separate lines before your code. Although your code covers a number of lines, it is a single piece of code setting the value of .htmlbody. So:

HtmlWITX = WorkInstructionsTX.Text
HtmlWITX = Replace(HtmlWITX, chr(10), "<br>")
HtmlWITX = Replace(HtmlWITX, chr(13), "<br>")
HtmlWITX = Replace(HtmlWITX, "<br><br>", "<br>")
.htmlbody = "Hi " & EngineerNameTX.Value & "," & "<br><br>" _
& "<b> text 1" & TOANoTX.Value & " </b> text 2" & SiteNameTX.Value & " on " & StartDateTX.Value & "< br > " _
& "</b>text 2" & "<br><br>" _
& "<b>Work required:" & "</b><br>" _
& HtmlWITX

 

[karolina1406]

They are separate lines before your code. Although your code covers a number of lines, it is a single piece of code setting the value of .htmlbody. So:

HtmlWITX = WorkInstructionsTX.Text
HtmlWITX = Replace(HtmlWITX, chr(10), "<br>")
HtmlWITX = Replace(HtmlWITX, chr(13), "<br>")
HtmlWITX = Replace(HtmlWITX, "<br><br>", "<br>")
.htmlbody = "Hi " & EngineerNameTX.Value & "," & "<br><br>" _
& "<b> text 1" & TOANoTX.Value & " </b> text 2" & SiteNameTX.Value & " on " & StartDateTX.Value & "< br > " _
& "</b>text 2" & "<br><br>" _
& "<b>Work required:" & "</b><br>" _
& HtmlWITX

Fab! IT works perfectly! Thank you

p.s. i am self-taught in vba hence unless someone will show me what exactly I need to do - I struggle to put the puzzles together

 

[Trevor_S]

No problem, I'm self-taught too - I suspect most of us are! These forums are great for picking up ideas and bits of code to help, but it's important to understand why they work - to make it easier to re-use/adapt.