asked on

Random "!" in MailMessage

Hi there,

I have a registration form that mails the user their submitted information. For some reason the users are recieving radom "!" in their text.

Like there Title will be

Director or !Communications

Any thoughts as to why this might be happening.

Dim objMail As New System.Web.Mail.MailMessage()
objMail.From = "icdr@cessi.net"
Dim Stremail as string
Dim varField as string
Dim strSelect As String
 Dim cmdSelect As SqlCommand
 Dim dtrReg as SqlDataReader
Dim strBody as String
 Dim conPubs As New SqlConnection(ConfigurationSettings.appSettings("sqlconnectionString"))
conPubs.Open()

 stremail = email.Text
 objMail.To = stremail
objMail.Subject = "Employer Perspectives on Workers with Disabilities"
objMail.BodyFormat = MailFormat.Html
strBody = strBody

strBody = strBody & ""

objMail.Body = strBody
' ** SMTP PORT **
objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "25") 'Put port number here
' ** CDO PORT **
objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", "2")
' ** TIMEOUT **
objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout", "60")

objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "x")
objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "x")

System.Web.Mail.SmtpMail.SmtpServer = "xx"
System.Web.Mail.SmtpMail.Send(objMail)

objMail = Nothing

lojk

if you set objMail.BodyFormat = MailFormat.Text, do you have the same problem?

How about using one of the Text.Encoding methods to encode the entered text to UTF8?

also
Dim strBody as String
strBody = strBody

?

surely you mean

objMail.Body =" & UserEnteredBody & "")

Although i would doubt that would make a difference but certainly makes the code more readable/logical

FullWilliams

ASKER

MailFormat.Text isn't going to work because I need hyperlinks in the strBody. I left out the strBody text because it's rather lengthly

this is an example of one of my lines that is getting the "!":

strBody = strBody & "Title: " & title.Text & " "

lojk

I asked if you had the same problem if set to text.. If so it will help to eliminate many possibilities.

can we see some of that strbody declaration, i think its probably very relevant.

Im certain is an invalid character that is being slipped in somewhere... But we need to see all of the code (that is 'public-able')

Cheers

FullWilliams

ASKER

Here you go..thanks.

Sub EmailCessi
Dim objMail As New System.Web.Mail.MailMessage()
objMail.From = "icdr@cessi.net"
Dim Stremail as string
Dim varField as string
Dim strSelect As String
 Dim cmdSelect As SqlCommand
 Dim dtrReg as SqlDataReader
Dim strBody as String
 Dim conPubs As New SqlConnection(ConfigurationSettings.appSettings("sqlconnectionString"))
conPubs.Open()

 stremail = email.Text
 objMail.To = stremail
objMail.Subject = "Employer Perspectives on Workers with Disabilities"
objMail.BodyFormat = MailFormat.Html
strBody = "Thank you for registering for the ICDR conference: Employer Perspectives on Workers with Disabilities: " & _
"A National Summit to Develop a Research Agenda on September 19-20, 2006 at the Doubletree Hotel Crystal City in Arlington, Virginia. " & _
"As a courtesy, we have included your registration form below. If you see any inaccuracies on your form or would like additional information, " & _
"please contact Reggie Clyburn, CESSI/New Editions Conference Planner, e-mail: <a href=mailto:rclyburn@neweditions.net>rclyburn@neweditions.net</a> or phone: 703-356-8035 x104. " & _
"Logistical information regarding conference location, driving directions and meeting materials is available at <a href=http://www.icdr.us/employment>www.icdr.us/employment</a>. " & _
"(If the link doesn't open in your browser, please copy and paste it into your browser) " & _
"" & _
"Registration Form: " & _
"Name: " & fname.Text & " " & lname.Text & " "

'Role
strSelect = "Select * From tblRole WHERE (id=@RoleID)"
cmdSelect = New SqlCommand(strSelect, conPubs)
cmdSelect.Parameters.Add( "@RoleID", ddlrole.SelectedValue )
dtrReg = cmdSelect.ExecuteReader()

 While dtrReg.Read
varField = dtrReg.Item("role")
strBody = strBody & "Role: " & varField & " "
End While
dtrReg.Close

'Attendance
Select Case attendance.SelectedValue
Case 1
strBody = strBody & "Attendance: Both Days "
Case 2
strBody = strBody & "Attendance: Only First Day "
Case 3
strBody = strBody & "Attendance: Only Second Day "
End Select

strBody = strBody & "Degree: " & degree.Text & " "
strBody = strBody & "Title: " & title.Text & " "
strBody = strBody & "Org: " & org.Text & " "

If request.querystring("formtype")= 1 then 'international
strBody = strBody & "Address: " & int_add.Text & " "
strBody = strBody & "Phone: " & int_phone.Text & " "
strBody = strBody & "Phone Ext: " & int_phoneext.Text & " "
strBody = strBody & "Fax: " & int_fax.Text & " "
strBody = strBody & "TTY: " & int_tty.Text & " "
Else ' US
strBody = strBody & "Address: " & add1.Text & " "
strBody = strBody & "Address2: " & add2.Text & " "
strBody = strBody & "City: " & city.Text & " "
'State
strSelect = "Select * From tblStates WHERE (id=@dropState)"
cmdSelect = New SqlCommand(strSelect, conPubs)
cmdSelect.Parameters.Add( "@dropState", dropState.SelectedValue )
dtrReg = cmdSelect.ExecuteReader()

 While dtrReg.Read
varField = dtrReg.Item("State_Acronym")
strBody = strBody & "State: " & varField & " "
End While
dtrReg.Close
strBody = strBody & "Zip: " & zip.Text & " "
strBody = strBody & "Phone: " & phone.Text & " "
strBody = strBody & "Phone Ext: " & phoneext.Text & " "
strBody = strBody & "Fax: " & fax.Text & " "
strBody = strBody & "TTY:" & tty.Text & " "
End if

If ddlAccommodations.Checked then
strBody = strBody & "INTERPRETERS"
 If americansign.Checked Then
 strBody = strBody & "American Sign: Yes "
 Else
 strBody = strBody & "American Sign: No "
 End If
 If english.Checked = true
 strBody = strBody & "English Sign: Yes "
 Else
 strBody = strBody & "English Sign: No "
 End If
 If tactile.Checked = true
 strBody = strBody & "Tactile Interpreter: Yes "
 Else
 strBody = strBody & "Tactile Interpreter: No "
 End If
 If voice.Checked = true
 strBody = strBody & "Voice Interpreter: Yes "
 Else
 strBody = strBody & "Voice Interpreter: No "
 End If
 If cart.Checked = true
 strBody = strBody & "CART: Yes "
 Else
 strBody = strBody & "CART: No "
 End If
 If assistivelisteningdevices.Checked = true
 strBody = strBody & "Assistive Listening Devices: Yes "
strBody = strBody & assistivelisteningdevicesexp.Text & " "
 Else
 strBody = strBody & "Assistive Listening Devices: No "
 End If

 If otherint.Checked = true
 strBody = strBody & "Other: Yes "
strBody = strBody & otherintexp.Text & " "
 Else
 strBody = strBody & "Other: No "
 End If

'Other Accommodations
 If diet.Checked = true
 strBody = strBody & "Diet: Yes "
strBody = strBody & dietexp.Text & " "
 Else
 strBody = strBody & "Diet: No "
 End If

'Meeting Material
strBody = strBody & "MEETING MATERIALS"
 If braille.Checked = true
 strBody = strBody & "Braille: Yes "
 Else
 strBody = strBody & "Braille: No "
 End If
 If cd.Checked = true
 strBody = strBody & "CD: Yes "
 Else
 strBody = strBody & "CD: No "
 End If
 If largeprint.Checked = true
 strBody = strBody & "Large Print: Yes "
 Else
 strBody = strBody & "Large Print: No "
 End If
 If othermeet.Checked = true
 strBody = strBody & "Other Meeting Materials: Yes "
strBody = strBody & othermeetexp.Text & " "
 Else
 strBody = strBody & "Other Meeting Materials: No "
 End If

End if

'Hotel Accommodations
If ddlRole.SelectedValue = 1 then
strBody = strBody & "HOTEL ACCOMMODATIONS"
If dropMonth.SelectedValue = "" then
strBody = strBody & "Arrival Date: N/A "
Else
strBody = strBody & "Arrival Date: " & dropMonth.SelectedValue & "/" & dropDay.SelectedValue & "/" & dropYear.SelectedValue & " "
End if
If dropMonth2.SelectedValue = "" then
strBody = strBody & "Departure Date: N/A "
Else
strBody = strBody & "Departure Date: " & dropMonth2.SelectedValue & "/" & dropDay2.SelectedValue & "/" & dropYear2.SelectedValue & " "
End if
 If dblbeds.Checked = true
 strBody = strBody & "Two Double Beds: Yes "
 Else
 strBody = strBody & "Two Double Beds: No "
 End If
 If queen.Checked = true
 strBody = strBody & "Queen-Size Beds: Yes "
 Else
 strBody = strBody & "Queen-Size Bed: No "
 End If
 If bathtub.Checked = true
 strBody = strBody & "Accessible Room with Bathtub and Grab Bars: Yes "
 Else
 strBody = strBody & "Accessible Room with Bathtub and Grab Bars: No "
 End If
 If rollin.Checked = true
 strBody = strBody & "Accessible Room with Roll-In Shower: Yes "
 Else
 strBody = strBody & "Accessible Room with Roll-In Shower: No "
 End If
 If hearingkit.Checked = true
 strBody = strBody & "Hotel Hearing Kit: Yes "
 Else
 strBody = strBody & "Hotel Hearing Kit: No "
 End If
 If Attendant1.Checked then
 strBody = strBody & "Personal Care Attendant: Yes "
 Else
 strBody = strBody & "Personal Care Attendant: No "
 End if
 If adjoiningroom1.Checked then
 strBody = strBody & "Do you require an adjoining room: Yes "
 Else
 strBody = strBody & "Do you require an adjoining room: No "
 End if
 If Dog1.Checked then
 strBody = strBody & "Service Dog: Yes "
 Else
 strBody = strBody & "Service Dog: No "
 End if
 If travelinstructions.Checked = true then
 strBody = strBody & "Special Instructions/Requests: Yes "
strBody = strBody & travelinstructionsexp.Text & " "
 Else
 strBody = strBody & "Special Instructions/Requests: No "
 End If

'Ground Transportation
strBody = strBody & "GROUND TRANSPORTATION"
 If AccessibleV1.Checked then
 strBody = strBody & "Do You Require a Wheelchair Accessible Van: Yes "
 Else
 strBody = strBody & "Do You Require a Wheelchair Accessible Van: No "
 End if
strBody = strBody & "Special Instructions: " & travelinstructionsexp.Text & " "

 'Audiovisual Requirements
strBody = strBody & "AUDIOVISUAL REQUIREMENTS"
 If overhead.Checked = true then
 strBody = strBody & "Overhead Projector: Yes "
 Else
 strBody = strBody & "Overhead Projector: No "
 End If
 If pointer.Checked = true then
 strBody = strBody & "Pointer: Yes "
 Else
 strBody = strBody & "Pointer: No "
 End If
 If slide.Checked = true then
 strBody = strBody & "Slide Projector: Yes "
 Else
 strBody = strBody & "Slide Projector: No "
 End If
 If flipchart.Checked = true then
 strBody = strBody & "Flipchart: Yes "
 Else
 strBody = strBody & "Flipchart: No "
 End If
 If lcd.Checked = true then
 strBody = strBody & "LCD Power Point Projector: Yes "
 Else
 strBody = strBody & "LCD Power Point Projector: No "
 End If
 If podium.Checked = true then
 strBody = strBody & "Podium: Yes "
 Else
 strBody = strBody & "Podium: No "
 End If
 If mic.Checked = true then
 strBody = strBody & "Lavaliere Microphone: Yes "
 Else
 strBody = strBody & "Lavaliere Microphone: No "
 End If
 If otheraudiovisual.Checked = true then
 strBody = strBody & "Other: Yes "
strBody = strBody & otheraudiovisualexp.Text & " "
 Else
 strBody = strBody & "Other: No "
 End If

End if

strBody = strBody & ""

objMail.Body = strBody
' ** SMTP PORT **
objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "25") 'Put port number here
' ** CDO PORT **
objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", "2")
' ** TIMEOUT **
objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout", "60")

objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "x")
objMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "x")

System.Web.Mail.SmtpMail.SmtpServer = "x"
System.Web.Mail.SmtpMail.Send(objMail)

objMail = Nothing

lojk

Ok thats all seems fair enough can you supply a copy of the result text (or preferably the whole message and headers (censored as neccesary) for the email) so i can see where the "!" are appearing.

Im pretty sure its because you need to UTF8 (or UTF7) encode the strbody text but the output may yield more clues.

but for now heres a quick hint... (and please do this if you have a few minutes)

instead of ....

If voice.Checked = true
strBody = strBody & "Voice Interpreter: Yes "
Else
strBody = strBody & "Voice Interpreter: No "
End If

you can do

strbody=strbody & "Voice Interpreter: " & iif (Voice.Checked=true,"Yes","No") & " "

and

If otheraudiovisual.Checked = true then
strBody = strBody & "Other: Yes "
strBody = strBody & otheraudiovisualexp.Text & " "
Else
strBody = strBody & "Other: No "
End If

you can do

strbody=strbody & "Other: " & iif(otheraudiovisual.checked=true ,"Yes " & otheraudiovisualexp.text & " ", "No ")

which will quickly remove lots of the clutter (i.e. about 70% of the lines ) from your code...

FullWilliams

ASKER

Thanks for the tip. I will incorporate that when I have some time.

Here's a sample of some of the email text:
\
Name: Karen Needels
Role: Participant
Attendance: Both Days
Degree: Ph.D.
Title: Senior Re! searcher
Org: Mathematica Policy Research, Inc.
Address: XXX Forbes Avenue
Address2:
City: Pittsburgh
Phone: xxx-xxx-xxxx
Phone Ext:
Fax: xxx-xxx-xxxxx
TTY:

ASKER CERTIFIED SOLUTION

lojk

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Random &quot;!&quot; in MailMessage

Random "!" in MailMessage