Solved

Send ASP email using CDOSYS with HTML body which merges both form fields and DB fields

Posted on 2009-05-09
5
875 Views
Last Modified: 2012-06-27
I am having a problem with an ASP form. We use the form to send emails to clients through our support intranet. The form has a few fields and when it is submitted it should send an email to the client and copy us in as well as adding the form fields to the support intranet database.

It all works fine but now we want to merge a field from the database with the email body before it is sent.

I dont know how to pull these database fields in to the code for the email. Can anyone assist?

The field I am trying to add on to the end of the HTML email body is:
Users.Fields.Item("HTMLSignature").Value
The recordset is called Users and the field is called HTMLSignature

Just to say that the code works fine EXCEPT for that i can't merge the contents of the HTMLSignature field with the emailBody variable....

the error i get is:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/add_incident_email_send.asp, line 73

Line 73 is the line starting emailBody=
emailSubject = "Support Incident: " &  Request.Form("IncidentID") & " - " & Request.Form("IncidentTitle")

emailTo = Request.Form("emailTo")

emailBody = Request.Form("ActionDetail") & Users.Fields.Item("HTMLSignature").Value

 

Set objMessage = CreateObject("CDO.Message") 

objMessage.Subject = emailSubject

objMessage.From = "Support @ Our Company<support@ourcompany.com>" 

objMessage.To = emailTo

objMessage.HTMLBody = emailBody

 

objMessage.Send

Open in new window

0
Comment
Question by:it4business
  • 3
  • 2
5 Comments
 
LVL 30

Expert Comment

by:Wayne Barron
ID: 24346576
the only way that you can accomplish this is to have a query done.
Either from the Form before this page that has that information in it.

Say that your <Form> has this in it
<input type="hidden" name="HTMLSignature" value="<%=Users.Fields.Item("HTMLSignature").Value%>"/>

Now.
In your Mail script would look something like this.
(I believe that the code will compile without error, as I cannot remember if something else needs to seperate the 2 Form Values....)

Good Luck
Carrzkiss
emailSubject = "Support Incident: " &  Request.Form("IncidentID") & " - " & Request.Form("IncidentTitle")

emailTo = Request.Form("emailTo")

emailBody = Request.Form("ActionDetail") & request.form("HTMLSignature")

Set objMessage = CreateObject("CDO.Message") 

objMessage.Subject = emailSubject

objMessage.From = "Support @ Our Company<support@ourcompany.com>" 

objMessage.To = emailTo

objMessage.HTMLBody = emailBody

 

objMessage.Send

Open in new window

0
 

Author Comment

by:it4business
ID: 24347961
Thank you for that. Yes that works perfectly but I had to take all the " out of the field value because otherwise the page displayed the HTML signature where I placed the hidden field! works great though.

Do you think it is possible to do it without the hidden field? It seems inefficient and I wonder if it is possible to use the value directly from the recordset? Can the VBScript for sending the emails only process values from a form? I guess I could make a session variable but that doesnt seem the right way.

Sorry if the request seems awkward, I am trying to learn what is/isn't possible as much as getting a solution!
0
 
LVL 30

Accepted Solution

by:
Wayne Barron earned 250 total points
ID: 24349076
yep.
If the value has a associated record then something like this on the Mail script end.

send.asp?id=1
<% sql = "SELECT ID, HTMLSignature from Table1 WHERE ID="&Request.QueryString("id")&""
rs1.open sql, conn
%>

Now in you script you would do this.

As long as the ID matches the one that you want, you are good to go.
So in the
<Form Action="send.asp?id=1">

Good Luck
Carrzkiss
emailSubject = "Support Incident: " &  Request.Form("IncidentID") & " - " & Request.Form("IncidentTitle")

emailTo = Request.Form("emailTo")

emailBody = Request.Form("ActionDetail") & request.querystring("HTMLSignature")

Set objMessage = CreateObject("CDO.Message") 

objMessage.Subject = emailSubject

objMessage.From = "Support @ Our Company<support@ourcompany.com>" 

objMessage.To = emailTo

objMessage.HTMLBody = emailBody

 

objMessage.Send

Open in new window

0
 

Author Closing Comment

by:it4business
ID: 31579836
worked great - didnt realise i hadn't already accepted the solution!
0
 
LVL 30

Expert Comment

by:Wayne Barron
ID: 25563256
Yep, has been a while, 5 months actually :=)~.
Glad that it worked for you.
Have a good one
Carrzkiss

Author Comments:
worked great - didnt realise i hadn't already accepted the solution!
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Suggested Solutions

Things That Drive Us Nuts Have you noticed the use of the reCaptcha feature at EE and other web sites?  It wants you to read and retype something that looks like this.Insanity!  It's not EE's fault - that's just the way reCaptcha works.  But it is …
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
In this tutorial viewers will learn how to define a gradient in CSS. Create a new HTML document with an internal stylesheet.: Create a div in CSS and name it Gradient. Define the background as "linear-gradient(to right, #ee3668, black)". Ensure you …
In this tutorial viewers will learn how to position items using CSS's three positioning types Create a new HTML document with an internal stylesheet.: Create another div in CSS and name it Absolute : Type "position:absolute;" and "top:10px; left:50p…

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now