DaniWeb IT Discussion Community

DaniWeb IT Discussion Community (http://www.daniweb.com/forums/index.php)
-   ASP (http://www.daniweb.com/forums/forum62.html)
-   -   Problems sending HTML email via vbscript (http://www.daniweb.com/forums/thread165885.html)

closetosane Jan 3rd, 2009 7:52 pm
Problems sending HTML email via vbscript
 
Hello,

I am sending a string created in vbScript via CDO. My scripting is working but the whole string is not showing up in the receiving email.

My code was on the bulky side with bordercolor and bgcolor in the tables cells, removing what was not needed for html in the cell code allows for more of the string to be shown via email which makes me believe that somewhere something is restricting the size the string can be.

The script is on a windows 2003 server with Plesk installed for administration. I looked in the settings for email in plesk but did not find anything that may cause this issue.

I am sure this is childsplay for some but it is really starting to get under my skin.

Thanks in advance to all/any that can help, and sorry if I posted in the wrong area/or twice -- first time I tried I received a blank page.

nrvinayak Jan 12th, 2009 12:50 pm
Re: Problems sending HTML email via vbscript
 
Please post the code. Then only it will be easier to debug and advise you.

closetosane Jan 18th, 2009 8:57 pm
Re: Problems sending HTML email via vbscript
 
Quote:
Originally Posted by nrvinayak (Post 776617)
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.

closetosane Jan 22nd, 2009 10:34 pm
Re: Problems sending HTML email via vbscript
 
Problem solved

nrvinayak Jan 23rd, 2009 1:16 am
Re: Problems sending HTML email via vbscript
 
Quote:
Originally Posted by closetosane (Post 785494)
Problem solved
I am happy to know that you have solved the problem.

I was offline for few days and missed your post.

Anyway, it will be useful to others, if you post a brief description about the solution.

Cheers

NRV

closetosane Jan 24th, 2009 12:49 pm
Re: Problems sending HTML email via vbscript
 
Quote:
Originally Posted by nrvinayak (Post 785566)
I am happy to know that you have solved the problem.

I was offline for few days and missed your post.

Anyway, it will be useful to others, if you post a brief description about the solution.

Cheers

NRV
The reason for the email not completly showing up was the ISP's settings, and did not have anything to do with the code itself. The ISP reccomended carrage returns to solve the problem.


All times are GMT -4. The time now is 2:07 pm.

Forum system based on vBulletin Copyright ©2000 - 2009, Jelsoft Enterprises Ltd.
©2003 - 2009 DaniWeb® LLC