I'm using the following code to send an email from a form.
One particular field [NCDescription] has "Enter key behavior: New line in field" toggled.
When i receive the email the text is concatenated instead of retaining the paragraphs. how would i fix this?
Code:
Private Sub Command68_Click()
Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
Dim Header As String
Dim Text As String
Dim EmailAddr As String
Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)
MessageTo = fConcatEMailAddr
Subject = "Test"
MessageBody = "NC# " & Me.NCNum & "<br>" _
& "Product Name: " & Me.PRODUCTNAME & "<br>" _
& "Quantity: " & Me.Quantity & "lb" & "<br>" _
& "<br>" _
& "<u>QC Notes</U>" & "<br>" _
& Me.NCDescription & "<br>"
With objMail
.To = MessageTo
.Subject = Subject
.BodyFormat = olFormatHTML
.HTMLBody = MessageBody
.Send
End With
' Release all object variables
Set mItem = Nothing
Set olApp = Nothing
DoCmd.Close acForm, "frm1", acSaveYes
DoCmd.Close acForm, "frm2", acSaveYes
End Sub
One particular field [NCDescription] has "Enter key behavior: New line in field" toggled.
When i receive the email the text is concatenated instead of retaining the paragraphs. how would i fix this?