asp email sending .HTMLBody string breaking up - causing table corruption [Archive]

yaggy85

02-03-2009, 11:40 PM

Hi guys. i have a simple email script, which works. im running into the following problem:

When i send the email to outlook 2003, sometimes because the HTMLBody string is so long, the html gets broken up into 4 long lines. i can see it in 4 long lines when i "view source" in outlook 2003 in the email body.

then this happens:

the email body source has this at the end of the first line of code: ...</td></tr><tr><t

then on the next line is starts with: d height="23" width="203">

because of this code breaking up, some of the tables are all messed up. because there are server variables being requested from a database, sometimes the table doesn't get messed up because it will break the code up at different spots along the string, depending on how many characters the variable is, etc. so if the store name is "thislong" for example, it may break the string up at the wrong spot (where my table gets corrupted) but if the store name is "thisthislong", it might be fine and break the script up at a place that won't corrupt the html output.

So i was wondering if there's a way, to tell my email script when to start a new line, or where to break my code, so i can choose to break it somewhere where it will not corrupt my tables or anything?

?

thanks in advance

here is the code btw..

CONST SMTPServer = "localhost"
' only required for CDO.Message method:
CONST cdoURL = "http://schemas.microsoft.com/cdo/configuration/"

CONST FromAddress = "pryon@com1.com.au"
CONST FromName = "COM1 International"
CONST ToAddress = "test"
CONST ToName = "Their Name"
CONST Subject = "RA"
CONST url = "http://www.pryon.com.au/"
htmlbody = "nothing"
textbody = "You need HTML email"

' for CDO.Message:

set cdoM = CreateObject("CDO.Message")
set cdoC = CreateObject("CDO.Configuration")

Set cdoF = cdoC.Fields
With cdoF
.Item(cdoURL & "sendusing") = 2
.Item(cdoURL & "smtpserver") = SMTPServer
.Item(cdoURL & "smtpconnectiontimeout") = 10
.Update
End With

With cdoM
Set .Configuration = cdoC
.From = FromAddress
.To = request.form("copyemail")
.Subject = "RA #" & rs("requesttype") & "" & rs("ID") & ""
.HTMLBody = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=windows-1252'></head><body><div align='center'><table border='1' width='600' id='table1' bordercolorlight='#000000' bordercolordark='#000000' style='border-collapse: collapse' cellpadding='5'><tr><td height='26' valign='bottom' colspan='3' width='444'><div align='center'> <img border='0' src='http://www.yagz.com/com_1/images/header.gif' width='170' height='59'>    Harvey Norman Return Authorisation Form V1.5</div></td></tr><tr><td height='34' width='203'>Contact Details</td><td width='475' colspan='2'> </td></tr><tr><td valign='top' height='25' width='203'>Store Name:</td><td valign='top' width='475' colspan='2'>  " & RS.Fields("storename") & "</td></tr><tr><td height='23' width='203'> Store Phone Number:</td><td valign='top' width='475' colspan='2'>  " & RS.Fields("storephone") & "</td></tr><tr><td height='30' valign='top' width='203'>Store Email Address:</td><td valign='top' width='475' colspan='2'>  " & RS.Fields("storeemail") & "</td></tr><tr><td height='20' width='203'>Primary Contact Name:</td><td width='475' colspan='2'>  " & RS.Fields("contactname") & "</td></tr><tr><td valign='top' height='31' width='203'>Alternate Contact Name:</td><td valign='top' width='475' colspan='2'>  " & RS.Fields("altcontactname") & "</td></tr><tr><td height='21' width='203'>Claim Details</td><td valign='top' width='475' colspan='2'> </td></tr><tr><td valign='top' height='25' width='203'>Type Of Request:</td><td valign='top' width='46'>  " & RS.Fields("requesttype") & "</td><td valign='top' width='417'>    ( R = Repair,  C = Credit,  A = Advanced Replacement )</td></tr><tr><td height='22' width='203'>Product Details</td><td valign='top' width='475' height='22' colspan='2'> </td></tr><tr><td height='26' width='203'>COM1 Invoice Number:</td><td valign='top' width='475' colspan='2'>  " & RS.Fields("invoice") & "</td></tr><tr><td height='30' valign='top' width='203'>Model:</td><td valign='top' width='475' colspan='2'>  " & RS.Fields("productcode") & "</td></tr><tr><td height='36' width='203'>Product Serial Number:</td><td valign='top' width='475' colspan='2'>  " & RS.Fields("serialnumber") & "</td></tr><tr><td height='42' valign='top' width='203'>Fault Description:  </td><td valign='top' width='475' colspan='2'>  " & RS.Fields("fault") & "</td></tr><tr><td valign='top' height='26' width='203'>RA#</td><td valign='top' width='475' colspan='2'>  " & RS.Fields("requesttype") & " " & RS.Fields("ID") & "</td></tr><tr><td height='22' width='203'>Date Of Issue</td><td valign='top' width='475' colspan='2'>  " & todaysDate & "</td></tr></table></div></body></html>"

' alternate for non-HTML-aware:

.TextBody = textbody
.Send
End With

Set cdoM = Nothing
Set cdoS = Nothing
Set cdoF = Nothing