Solved

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

Posted on 2009-05-09
5
877 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

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes how to create custom column layout styles for Bootstrap. The article uses 5 columns to illustrate the concept, but the principle can be extended to any number of columns.
This article explains how to prepare an HTML email signature template file containing dynamic placeholders for users' Azure AD data. Furthermore, it explains how to use this file to remotely set up a department-wide email signature policy in Office …
In this tutorial viewers will learn how add a scalable full-width header using CSS3. Create a new HTML document with an internal stylesheet. Set a tiled background.:  Create a new div and name it Header. Position it with position:absolute at the top…
In this tutorial viewers will learn how to code links for mobile sites that, once clicked, send a call or text to a specified number. For a telephone link (once clicked, calls a number), begin with a normal "<a href=" link tag. For the href, specify…

803 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