Adding vbnewline to a text string

[Dave_D]

I have a bound textbox where I've set ENTER KEY BEHAVIOR as "New Line in Field" and that works great. Upon hitting ENTER, it takes you to a new line and stores the text, stacked upon one another in the table like
text 1
text 2
text 3


but when I view this field in the LOCAL WINDOW it shows it as 1 one long string.
Does New Line in Field establish CHR$(10) and CHR$(13) properties?
I'm send this string to OUTLOOK and I need it t appear as stacked as well. How can I accomplish this?

[ranman256]

Ctl-Enter

or in vb: vbCRLF

[moke123]

I just tested with this procedure and its showing chr(13) & chr(10)

Public Sub sChkNonPrint(strCheck)
    Dim lngLoop As Long
 
    For lngLoop = 1 To Len(strCheck)
        Debug.Print Mid(strCheck, lngLoop, 1) & ": " & Asc(Mid(strCheck, lngLoop, 1))
    Next lngLoop
    
End Sub

[Micron]

10 and 13 are just ascii values for new line and carriage return. They can be employed together with the vb constant vbCrLf.
AFAIK, the setting "new line in field" is supposed to replace the need to use Ctrl+Enter. I'm thinking you need to disregard what you see in the locals window and check the table field instead. Make sure you expand the table record height when checking.

[June7]

How are you sending data to Outlook email?

I did test. I see multiple lines in Immediate Window.

Chr(13) & Chr(10), vbCrLr, NewLineInField carry through for SendObject as well as .Body (but not .HTMLBody) when using Outlook objects to create email.

[Micron]

How are you sending data to Outlook email?

I did a test. Chr(13) & Chr(10), vbCrLr, NewLineInField carry through for SendObject as well as .Body (but not .HTMLBody) when using Outlook objects to create email.

In my humble estimation, there's no indication that he got that far.

but when I view this field in the LOCAL WINDOW it shows it as 1 one long string.

I guess we'll have to wait to find out.
EDIT:
I'm presuming he meant "Locals Window" but no, I didn't test to see how line wrapped values are displayed there. I would bet that non printable characters are ignored.

[Dave_D]

I'm still a bit confused upon checking what you all have suggested. The Immediate Window did show multiple line and yes, the table record height is set; illustrating multiple lines as well. Here's a snippet of my code:

Dim Question as String
If Not Null(Me!InfoQuestion) Then
Question = Me!InfoQuestion
Debug.Print Question ----> DOES show multiple line in Immediate, but Locals shows it as "line1 line2 line3", which truly might be OK just because it can only present it this way, Continued at A:
Else
Question = ""
End If

Call Distribute(Question)


Public Sub Distribute(Question as String)
Set OutApp = Create("Outlook Application")
Set OutMail = OutApp.CreateItem(olMaitItem)

A:
BUT, when passing QUESTION to Outlook, this field is showing it as

"line1 line2 line3" where it's not retaining the vbCrLf characteristics.

Should it be?

[Micron]

I was only ever able to wrap lines when 'exporting' to Outlook by building the body as html. That was good in that I was able to control font characteristics as well, but if memory serves, others here have reported that it's not necessary. I look forward to a reminder of how else it can be done, assuming it can be. Maybe it's a function of controlling the message body type at the start (plain text vs rich text vs html)?

I've read that there is an Outlook option to 'never remove line breaks from plain text' or something like that. Perhaps your message is being constructed as plain text?

EDIT
There are at least 3 solutions posted here. Watch out for the ones that only apply to jscript
https://stackoverflow.com/questions/...he-line-breaks

[Dave_D]

The message is being created in html since I'm using .HTMLBody to create the body of the email.

[Minty]

HTML automatically strips out certain types of acsii line breaks - from memory you have to insert a <br> line break instead.

[Dave_D]

Upon playing around with this, by changing .HTLMBody to just .Body, was I able to get that field to display as multiple line. So, knowing this, can you interchange using both .HTLMBody and .Body to create your body? It seems if I use both, it wipes out the other.

.HTMLBody =
.Body =
.HTMLBody =

What other choices are there besides these 2?
Suggestions!

[June7]

If you want to use .HTMLBody, replace Chr(13) & Chr(10) with <br>:

Replace([fieldname], Chr(13) & Chr(10), "<br>")

[Micron]

Don't know if any of this will help, but here's the gist of what I did. I was using COM to communicate with the mail server but Outlook to build and send the message. The first part builds the standard opening line complete with 2 line wraps:

strBody = "<P>The following requisitions may require your attention:</P><P>"

I wanted to control positioning without trying to populate table cells, hence the spaces:
spcs = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"

Other code got the values from a recordset that were pertinent to a particular user:
svLine = svReqNo & spcs & svStatus & spcs & svStatusDate & spcs & svRBD & spcs
svLine = svLine & svPO & "<BR>" & svCmnt & "<BR><BR>"

Now concatenate the 1st and 2nd parts:
strBody = strBody & svLine

This part built the email header section like any web page:
htmHead = "<HTML><HEAD><META HTTP-EQUIV=3D" & Chr(34) & "CONTENT=3D"
htmHead = htmHead & Chr(34) & "text/html; = charset=3DISO-8859-1" & Chr(34) & ">"
htmHead = htmHead & "</HEAD>"

Set up the body font (can't recall what "2" was for:
htmBody = "<body><font face=" & Chr(34) & "Arial" & Chr(34) & " size=" & Chr(34)
htmBody = htmBody & "2" & Chr(34) & ">"

Build the closing tag:
htmClose = "</P></font></body></HTML>"

Prior to here, the code is partial and doesn't include parts that aren't relevant to the issue at hand. Then the assembled body gets passed to the pSendMail function in order to create an email for a specific user. After that, the calling function looped on to the next user and repeated the pSendMail call.

With objMsg
.FROM =
.To =
.subject =
.HTMLBody = htmHead & htmBody & eml.itemBody & htmClose
.Send
End With

That's about it.