Please post the code. Then only it will be easier to debug and advise you.
Hello nrvinayak,
Thanks for the reply here is a snippit of the code:
strReport = strReport & "<body>"
strReport = strReport & "<div align='center'>"
strReport = strReport & "<br>"
strReport = strReport & "<table border='1' style='border-collapse: collapse'>"
strReport = strReport & "<tr bgcolor='#DDDDDD' bordercolor='#DDDDDD'>"
strReport = strReport & "<td width='408' colspan='3' ><H3>" & Employer_Name & " Requested Dispatch<H3></td>"
strReport = strReport & "<td width='200' align= 'right'>" & FormatDateTime(Date(),1) & "</td>"
strReport = strReport & "</tr>"
strReport = strReport & "</table>"
strReport = strReport & "<table border='1' style='border-collapse: collapse'>"
strReport = strReport & "<tr bordercolor='#FFFFFF'>"
strReport = strReport & "<td width='150'>Job Location :</td>"
strReport = strReport & "<td width='150'>" & txtJobLocation &"</td>"
strReport = strReport & "<td width='150'>Start Date :</td>"
strReport = strReport & "<td width='150'>" & txtBegDate & "</td>"
strReport = strReport & "</tr>"
strReport = strReport & "<tr bordercolor='#FFFFFF'>"
strReport = strReport & "<td width='150'>Report To :</td>"
strReport = strReport & "<td width='150'>" & txtReport & "</td>"
strReport = strReport & "<td width='150'>Start Time :</td>"
strReport = strReport & "<td width='150'>" & txtTime & "</td>"
strReport = strReport & "</tr>"
strReport = strReport & "<tr bordercolor='#FFFFFF'>"
strReport = strReport & "<td width='150'>Job Type :</td>"
strReport = strReport & "<td width='150'>" & txtJob_Desc & "</td>"
strReport = strReport & "<td width='150'>Living out :</td>"
strReport = strReport & "<td width='150'>" & txtJobRegion & "</td>"
strReport = strReport & "</tr>"
strReport = strReport & "<tr bordercolor='#FFFFFF'>"
strReport = strReport & "<td width='150'># of Members :</td>"
strReport = strReport & "<td width='150'>" & intMembers & "</td>"
strReport = strReport & "<td width='150'>Journey Persons :</td>"
strReport = strReport & "<td width='150'>" & intJourneyPerson & "</td>"
strReport = strReport & "</tr>"
The code is then placed as a string into the email
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Admin@canadian.ca"
objEmail.To = "*****@shaw.ca"
objEmail.Subject = "Requested Dispatch"
objEmail.HTMLBody = strReport
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="localhost"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
The problem is that the entire string does not appear in the email. Removing a line from the string that does show up in the email will allow for aditional information that didn't show up in the email to now showup in the email. I dont see it as a line of code that is causing the problem but more of a string size issue. however, the string should not be so limited and in fact 'strReport' is also used to display the code on a webpage and the whole string shows up there.
Thanks in advance for any help.