[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 894
  • Last Modified:

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

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
it4business
Asked:
it4business
  • 3
  • 2
1 Solution
 
Wayne BarronCommented:
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
 
it4businessAuthor Commented:
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
 
Wayne BarronCommented:
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
 
it4businessAuthor Commented:
worked great - didnt realise i hadn't already accepted the solution!
0
 
Wayne BarronCommented:
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

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now