[RESOLVED] vbcrlf and vbnewline problem

[BrailleSchool]

I have a contact form in my app that sends a email. All information shows but the format is not right. I have tried vbcrlf as well as vbnewline and the format comes out the same. Any ideas?

My vb code is:

sMessageBody = "REMINDER: If the end user has requested a reply e-mail, they were promised an e-mail within 48 hours." & vbCrLf & vbCrLf & _
                           "Contact Reason: " & cboContactReason.SelectedItem.ToString & vbCrLf & _
                           "Requires a reply: " & cboReplyBack.SelectedItem.ToString & vbCrLf & vbCrLf & _
                           "E-Mail Message: " & vbCrLf & _
                           txtMessage.Text.Trim & vbCrLf & vbCrLf & _
                           "MACHINE INFORMATION: " & vbCrLf & _
                           "Computer Name: " & My.Computer.Name & vbCrLf & _
                           "Available Physical Memory: " & My.Computer.Info.AvailablePhysicalMemory & vbCrLf & _
                           "Available Virtual Memory: " & My.Computer.Info.AvailableVirtualMemory & vbCrLf & _
                           "Total Physical Memory: " & My.Computer.Info.TotalPhysicalMemory & vbCrLf & _
                           "Total Virtual Memory: " & My.Computer.Info.TotalVirtualMemory & vbCrLf & _
                           "Operating System Full Name: " & My.Computer.Info.OSFullName & vbCrLf & _
                           "Operating System Platform: " & My.Computer.Info.OSPlatform & vbCrLf & _
                           "Operating System Version: " & My.Computer.Info.OSVersion & vbCrLf & vbCrLf & _
                           "APPLICATION INFORMATION: " & vbCrLf & _
                           "Application Name: " & My.Application.Info.ProductName & vbCrLf & _
                           "Common Application Data Path: " & System.Windows.Forms.Application.CommonAppDataPath & vbCrLf & _
                           "Executable Path: " & System.Windows.Forms.Application.ExecutablePath & vbCrLf & _
                           "Local User Application Data Path: " & System.Windows.Forms.Application.LocalUserAppDataPath & vbCrLf & _
                           "Startup Path: " & System.Windows.Forms.Application.StartupPath & vbCrLf & _
                           "User Application Data Path: " & System.Windows.Forms.Application.UserAppDataPath

The email comes to me like so:

REMINDER: If the end user has requested a reply e-mail, they were promised an e-mail within 48 hours.

Contact Reason: Bug Report
Requires a reply: Yes

E-Mail Message:
A

MACHINE INFORMATION:
Computer Name: PADDYLAPTOP
Available Physical Memory: 849801216
Available Virtual Memory: 1877094400
Total Physical Memory: 2137186304
Total Virtual Memory: 2147352576
Operating System Full Name: Microsoft Windows 7 Professional Operating System Platform: Win32NT Operating System Version: 6.1.7600.0

APPLICATION INFORMATION:
Application Name:Support Space Call Tracker Common Application Data Path:C:\ProgramData\Support Space Call Tracker\Support Space Call Tracker\2011.0.0.26 Executable Path:C:\Users\Paddy\Desktop\Visual Basic\SupportSpace\SupportSpaceCallTracker\SupportSpaceCallTracker\bin\x86\Debug\SupportSpaceCallTra cker.EXE
Local User Application Data Path:C:\Users\Paddy\AppData\Local\Support Space Call Tracker\Support Space Call Tracker\2011.0.0.26 Startup Path:C:\Users\Paddy\Desktop\Visual Basic\SupportSpace\SupportSpaceCallTracker\SupportSpaceCallTracker\bin\x86\Debug
User Application Data Path:C:\Users\Paddy\AppData\Roaming\Support Space Call Tracker\Support Space Call Tracker\2011.0.0.26

The email should look like so:

REMINDER: If the end user has requested a reply e-mail, they were promised an e-mail within 48 hours.

Contact Reason: Bug Report
Requires a reply: Yes

E-Mail Message:
A

MACHINE INFORMATION:
Computer Name: PADDYLAPTOP
Available Physical Memory: 849801216
Available Virtual Memory: 1877094400
Total Physical Memory: 2137186304
Total Virtual Memory: 2147352576
Operating System Full Name: Microsoft Windows 7 Professional
Operating System Platform: Win32NT
Operating System Version: 6.1.7600.0

APPLICATION INFORMATION:
Application Name: Support Space Call Tracker
Common Application Data Path: C:\ProgramData\Support Space Call Tracker\Support Space Call Tracker\2011.0.0.26
Executable Path: C:\Users\Paddy\Desktop\Visual Basic\SupportSpace\SupportSpaceCallTracker\SupportSpaceCallTracker\bin\x86\Debug\SupportSpaceCallTra cker.EXE
Local User Application Data Path: C:\Users\Paddy\AppData\Local\Support Space Call Tracker\Support Space Call Tracker\2011.0.0.26
Startup Path: C:\Users\Paddy\Desktop\Visual Basic\SupportSpace\SupportSpaceCallTracker\SupportSpaceCallTracker\bin\x86\Debug
User Application Data Path: C:\Users\Paddy\AppData\Roaming\Support Space Call Tracker\Support Space Call Tracker\2011.0.0.26

Thanks for any input.

[FredFrothen]

Try Chr(13)?

[BrailleSchool]

Try Chr(13)?

Yes, I tried that too and it did the same thing.

[BlindSniper]

Mabey

Environment.NewLine

[BrailleSchool]

Mabey

Environment.NewLine

I did try that also and it didn't change anything.

[kareninstructor]

Sounds like you are doing HTML body for your email message which means </br> will be your line break

So something like this would fix your line break issue. The following can not be used by copy/paste as it has variables that you do not have.

   Sub SendMessage()
        Try
            Using TheMessage As New System.Net.Mail.MailMessage()
                TheMessage.From = New System.Net.Mail.MailAddress(FromAddress)
                TheMessage.To.Add(New System.Net.Mail.MailAddress(SendToAddress))

                TheMessage.Subject = ApplicationName

                TheMessage.Body = String.Format( _
                    "This is an automated email, please do not respond<br><br>An " & _
                    "exception ocurred in <br><span style=""font-weight: bold; padding-left:20px;" & _
                    "padding-right:5px"">Application name</span>{0}<br>" & _
                    "<span style=""font-weight: bold; padding-left: 5px;padding-right:5px"">" & _
                    "Application Version</span>{1}<br><span style=""font-weight: bold; " & _
                    "padding-left: 70px;padding-right:5px"">Exception</span>{2}", _
                    ApplicationName, ApplicationVersion, ErrorMessage)
                TheMessage.IsBodyHtml = True
                Dim MailClient As New System.Net.Mail.SmtpClient(SmtpClient)
                MailClient.UseDefaultCredentials = True
                MailClient.Send(TheMessage)
            End Using
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub

[BrailleSchool]

Yep, that fixed it. Thanks! I checked out my code and I didn't put in .IsBodyHtml but i have now and I put it as html. Everything is formatted correctly now.

Sounds like you are doing HTML body for your email message which means </br> will be your line break

So something like this would fix your line break issue. The following can not be used by copy/paste as it has variables that you do not have.

   Sub SendMessage()
        Try
            Using TheMessage As New System.Net.Mail.MailMessage()
                TheMessage.From = New System.Net.Mail.MailAddress(FromAddress)
                TheMessage.To.Add(New System.Net.Mail.MailAddress(SendToAddress))

                TheMessage.Subject = ApplicationName

                TheMessage.Body = String.Format( _
                    "This is an automated email, please do not respond<br><br>An " & _
                    "exception ocurred in <br><span style=""font-weight: bold; padding-left:20px;" & _
                    "padding-right:5px"">Application name</span>{0}<br>" & _
                    "<span style=""font-weight: bold; padding-left: 5px;padding-right:5px"">" & _
                    "Application Version</span>{1}<br><span style=""font-weight: bold; " & _
                    "padding-left: 70px;padding-right:5px"">Exception</span>{2}", _
                    ApplicationName, ApplicationVersion, ErrorMessage)
                TheMessage.IsBodyHtml = True
                Dim MailClient As New System.Net.Mail.SmtpClient(SmtpClient)
                MailClient.UseDefaultCredentials = True
                MailClient.Send(TheMessage)
            End Using
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub

[BrailleSchool]

I have gotten it to work. I even color coded the severity within the e-mail body. One thing that is baffling is that I have set the message table to 100&#37; (line 34) and the form itself can have a maximum of 8,000 characters. The e-mail shows the message (txtMessage) in one line and it's not all visible without having to scroll to the right. Any suggestions? Do you think I might have to WordWrap it or something?

Code is below:

<CLSCompliant(True)> Private Sub cmdSend_Click(ByVal sender As System.Object, _
                                                   ByVal e As System.EventArgs) Handles cmdSend.Click
 
        Try
            'Send the e-mail.
            Dim ToEmailAddress As New MailAddress("[email protected]", "Your Name")
            Dim FromEmailAddress As New MailAddress("" & txtEmailAddress.Text.Trim.ToString & "", "" & ProductName & " User")
            Dim sMessageSubject As String = "[" & cboSeverity.Text.Trim & " Severity] " & ProductName & " User Message."
            Dim sMessage As String = txtMessage.Text.Trim
            Dim sMessageBody As String
 
            Dim sColorCodeSeverity As String = Nothing
 
            Select Case cboSeverity.SelectedItem.ToString
                Case Is = "Low" '#00CC00 (Green)
                    sColorCodeSeverity = "<font color=#00CC00>Low</font>"
                Case Is = "Medium" '#0099CC (Blue)
                    sColorCodeSeverity = "<font color=#0099CC>Medium</font>"
                Case Is = "High" '#FF3300 (Red)
                    sColorCodeSeverity = "<b><font color=#FF3300>High</font></b>"
                Case Is = "Urgent" '#FF6699 (Pink)
                    sColorCodeSeverity = "<b><font color=#FF6699>Urgent</font></b>"
                Case Is = "Critical" '#993366 (Purple)
                    sColorCodeSeverity = "<b><font color=#993366>Critical</font></b>"
            End Select
 
            sMessageBody = "<font color=red><b>REMINDER:</b> If the end user has requested a reply e-mail, they were promised an e-mail within 48 hours.</font><br><br>" & _
                           "<table border=0 bordercolor=#FFFFFF style=background-color:#FFFFFF width=100% cellpadding=3 cellspacing=3>" & _
                           "<tr>" & _
                           "<td width=15%>Client Name:</td><td>" & txtName.Text.Trim & "</td></tr><tr>" & _
                           "<td width=15%>Contact Reason:</td><td>" & cboContactReason.SelectedItem.ToString & "</td>" & _
                           "</tr><tr>" & _
                           "<td width=15%>Requires a reply:</td><td>" & cboReplyBack.SelectedItem.ToString & "</td></tr><tr>" & _
                           "<td width=15%>Severity:</td><td>" & sColorCodeSeverity & "</td></tr></table><br>" & _
                           "<b>E-MAIL MESSAGE:</b>" & _
                           "<table border=0 bordercolor=#FFFFFF style=background-color:#FFFFFF width=100% cellpadding=3 cellspacing=3>" & _
                           "<tr><td>" & sMessage & "</td></tr></table><br>" & _
                           "<b>MACHINE INFORMATION:</b>" & _
                           "<table border=0 bordercolor=#FFFFFF style=background-color:#FFFFFF width=42% cellpadding=3 cellspacing=3>" & _
                           "<tr>" & _
                           "<td>Computer Name:</td><td>" & My.Computer.Name & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Available Physical Memory:</td><td>" & My.Computer.Info.AvailablePhysicalMemory & "</td>" & _
                           "<tr>" & _
                           "<td>Available Virtual Memory:</td><td>" & My.Computer.Info.AvailableVirtualMemory & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Total Physical Memory:</td><td>" & My.Computer.Info.TotalPhysicalMemory & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Total Virtual Memory:</td><td>" & My.Computer.Info.TotalVirtualMemory & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Operating System Full Name:</td><td>" & My.Computer.Info.OSFullName & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Operating System Platform:</td><td>" & My.Computer.Info.OSPlatform & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Operating System Version:</td><td>" & My.Computer.Info.OSVersion & "</td>" & _
                           "</tr>" & _
                           "</table><br>" & _
                           "<b>APPLICATION INFORMATION:</b>" & "<br>" & _
                           "<table border=0 bordercolor=#FFFFFF style=background-color:#FFFFFF width=100% cellpadding=3 cellspacing=3>" & _
                           "<tr>" & _
                           "<td>Application Name:</td><td>" & My.Application.Info.ProductName & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Common Application Data Path:</td><td>" & CommonAppDataPath & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Executable Path:</td><td>" & ExecutablePath & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Local User Application Data Path:</td><td>" & LocalUserAppDataPath & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Startup Path:</td><td>" & StartupPath & "</td>" & _
                           "</tr><tr>" & _
                           "<td>User Application Data Path:</td><td>" & UserAppDataPath & "</td></tr></table>"
 
            Dim MailPriority As New Net.Mail.MailPriority
 
            Select Case cboPriority.Text
                Case "Low"
                    MailPriority = Net.Mail.MailPriority.Low
                Case "Normal"
                    MailPriority = Net.Mail.MailPriority.Normal
                Case "High"
                    MailPriority = Net.Mail.MailPriority.High
            End Select
 
            clsSendMail.SendMail(sMessageBody, _
                                 sMessageSubject, _
                                 Net.Mail.DeliveryNotificationOptions.OnFailure, _
                                 MailPriority, _
                                 ToEmailAddress, _
                                 FromEmailAddress, _
                                 Nothing, _
                                 Nothing, _
                                 Nothing)
        Catch ex As InvalidCastException
            MessageBox.Show(ex.Message, _
                            "Invalid Cast Exception.", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error, _
                            MessageBoxDefaultButton.Button1, _
                            MessageBoxOptions.DefaultDesktopOnly, _
                            False)
        Catch ex As FormatException
            MessageBox.Show(ex.Message, _
                "Format Exception.", _
                MessageBoxButtons.OK, _
                MessageBoxIcon.Error, _
                MessageBoxDefaultButton.Button1, _
                MessageBoxOptions.DefaultDesktopOnly, _
                False)
        Finally
            If cboReplyBack.Text = "Yes" Then
                MessageBox.Show("Your e-mail message was successfully sent, " & txtName.Text.Trim & "!" & vbNewLine & _
                                "You will hear from us via e-mail within 48 hours.", _
                                "E-mail Successfully Sent.", _
                                MessageBoxButtons.OK, _
                                MessageBoxIcon.Information, _
                                MessageBoxDefaultButton.Button1, _
                                MessageBoxOptions.DefaultDesktopOnly, _
                                False)
            Else 'No.
                MessageBox.Show("Your e-mail message was successfully sent, " & txtName.Text.Trim & "!", _
                                "E-mail Successfully Sent.", _
                                MessageBoxButtons.OK, _
                                MessageBoxIcon.Information, _
                                MessageBoxDefaultButton.Button1, _
                                MessageBoxOptions.DefaultDesktopOnly, _
                                False)
            End If
        End Try
    End Sub

[kareninstructor]

I have gotten it to work. I even color coded the severity within the e-mail body. One thing that is baffling is that I have set the message table to 100% (line 34) and the form itself can have a maximum of 8,000 characters. The e-mail shows the message (txtMessage) in one line and it's not all visible without having to scroll to the right. Any suggestions? Do you think I might have to WordWrap it or something?

Code is below:

<CLSCompliant(True)> Private Sub cmdSend_Click(ByVal sender As System.Object, _
                                                   ByVal e As System.EventArgs) Handles cmdSend.Click
 
        Try
            'Send the e-mail.
            Dim ToEmailAddress As New MailAddress("[email protected]", "Your Name")
            Dim FromEmailAddress As New MailAddress("" & txtEmailAddress.Text.Trim.ToString & "", "" & ProductName & " User")
            Dim sMessageSubject As String = "[" & cboSeverity.Text.Trim & " Severity] " & ProductName & " User Message."
            Dim sMessage As String = txtMessage.Text.Trim
            Dim sMessageBody As String
 
            Dim sColorCodeSeverity As String = Nothing
 
            Select Case cboSeverity.SelectedItem.ToString
                Case Is = "Low" '#00CC00 (Green)
                    sColorCodeSeverity = "<font color=#00CC00>Low</font>"
                Case Is = "Medium" '#0099CC (Blue)
                    sColorCodeSeverity = "<font color=#0099CC>Medium</font>"
                Case Is = "High" '#FF3300 (Red)
                    sColorCodeSeverity = "<b><font color=#FF3300>High</font></b>"
                Case Is = "Urgent" '#FF6699 (Pink)
                    sColorCodeSeverity = "<b><font color=#FF6699>Urgent</font></b>"
                Case Is = "Critical" '#993366 (Purple)
                    sColorCodeSeverity = "<b><font color=#993366>Critical</font></b>"
            End Select
 
            sMessageBody = "<font color=red><b>REMINDER:</b> If the end user has requested a reply e-mail, they were promised an e-mail within 48 hours.</font><br><br>" & _
                           "<table border=0 bordercolor=#FFFFFF style=background-color:#FFFFFF width=100% cellpadding=3 cellspacing=3>" & _
                           "<tr>" & _
                           "<td width=15%>Client Name:</td><td>" & txtName.Text.Trim & "</td></tr><tr>" & _
                           "<td width=15%>Contact Reason:</td><td>" & cboContactReason.SelectedItem.ToString & "</td>" & _
                           "</tr><tr>" & _
                           "<td width=15%>Requires a reply:</td><td>" & cboReplyBack.SelectedItem.ToString & "</td></tr><tr>" & _
                           "<td width=15%>Severity:</td><td>" & sColorCodeSeverity & "</td></tr></table><br>" & _
                           "<b>E-MAIL MESSAGE:</b>" & _
                           "<table border=0 bordercolor=#FFFFFF style=background-color:#FFFFFF width=100% cellpadding=3 cellspacing=3>" & _
                           "<tr><td>" & sMessage & "</td></tr></table><br>" & _
                           "<b>MACHINE INFORMATION:</b>" & _
                           "<table border=0 bordercolor=#FFFFFF style=background-color:#FFFFFF width=42% cellpadding=3 cellspacing=3>" & _
                           "<tr>" & _
                           "<td>Computer Name:</td><td>" & My.Computer.Name & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Available Physical Memory:</td><td>" & My.Computer.Info.AvailablePhysicalMemory & "</td>" & _
                           "<tr>" & _
                           "<td>Available Virtual Memory:</td><td>" & My.Computer.Info.AvailableVirtualMemory & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Total Physical Memory:</td><td>" & My.Computer.Info.TotalPhysicalMemory & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Total Virtual Memory:</td><td>" & My.Computer.Info.TotalVirtualMemory & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Operating System Full Name:</td><td>" & My.Computer.Info.OSFullName & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Operating System Platform:</td><td>" & My.Computer.Info.OSPlatform & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Operating System Version:</td><td>" & My.Computer.Info.OSVersion & "</td>" & _
                           "</tr>" & _
                           "</table><br>" & _
                           "<b>APPLICATION INFORMATION:</b>" & "<br>" & _
                           "<table border=0 bordercolor=#FFFFFF style=background-color:#FFFFFF width=100% cellpadding=3 cellspacing=3>" & _
                           "<tr>" & _
                           "<td>Application Name:</td><td>" & My.Application.Info.ProductName & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Common Application Data Path:</td><td>" & CommonAppDataPath & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Executable Path:</td><td>" & ExecutablePath & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Local User Application Data Path:</td><td>" & LocalUserAppDataPath & "</td>" & _
                           "</tr><tr>" & _
                           "<td>Startup Path:</td><td>" & StartupPath & "</td>" & _
                           "</tr><tr>" & _
                           "<td>User Application Data Path:</td><td>" & UserAppDataPath & "</td></tr></table>"
 
            Dim MailPriority As New Net.Mail.MailPriority
 
            Select Case cboPriority.Text
                Case "Low"
                    MailPriority = Net.Mail.MailPriority.Low
                Case "Normal"
                    MailPriority = Net.Mail.MailPriority.Normal
                Case "High"
                    MailPriority = Net.Mail.MailPriority.High
            End Select
 
            clsSendMail.SendMail(sMessageBody, _
                                 sMessageSubject, _
                                 Net.Mail.DeliveryNotificationOptions.OnFailure, _
                                 MailPriority, _
                                 ToEmailAddress, _
                                 FromEmailAddress, _
                                 Nothing, _
                                 Nothing, _
                                 Nothing)
        Catch ex As InvalidCastException
            MessageBox.Show(ex.Message, _
                            "Invalid Cast Exception.", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error, _
                            MessageBoxDefaultButton.Button1, _
                            MessageBoxOptions.DefaultDesktopOnly, _
                            False)
        Catch ex As FormatException
            MessageBox.Show(ex.Message, _
                "Format Exception.", _
                MessageBoxButtons.OK, _
                MessageBoxIcon.Error, _
                MessageBoxDefaultButton.Button1, _
                MessageBoxOptions.DefaultDesktopOnly, _
                False)
        Finally
            If cboReplyBack.Text = "Yes" Then
                MessageBox.Show("Your e-mail message was successfully sent, " & txtName.Text.Trim & "!" & vbNewLine & _
                                "You will hear from us via e-mail within 48 hours.", _
                                "E-mail Successfully Sent.", _
                                MessageBoxButtons.OK, _
                                MessageBoxIcon.Information, _
                                MessageBoxDefaultButton.Button1, _
                                MessageBoxOptions.DefaultDesktopOnly, _
                                False)
            Else 'No.
                MessageBox.Show("Your e-mail message was successfully sent, " & txtName.Text.Trim & "!", _
                                "E-mail Successfully Sent.", _
                                MessageBoxButtons.OK, _
                                MessageBoxIcon.Information, _
                                MessageBoxDefaultButton.Button1, _
                                MessageBoxOptions.DefaultDesktopOnly, _
                                False)
            End If
        End Try
    End Sub

When coding in web projects I've had to use the following style for the Body tag to get a table to recognize the 100% width. Not sure if email providers recognize the body tag.

body {margin:0;padding:0;}

[BrailleSchool]

When coding in web projects I've had to use the following style for the Body tag to get a table to recognize the 100% width. Not sure if email providers recognize the body tag.

body {margin:0;padding:0;}

Thanks, got it working now.