CDOSYS sending Form Data

Forum|Forum|18 years ago
July 29, 2007
2 replies
842 views

I have tried every combination of trying to get form data sent in an email without any luck.

objMail.txtEmail = Request.Form("Email")
or
objMail.txtEmail = Request("Email")

If I take out the form elements I can get the system to send me a hardcoded email

Can ANYONE tell me how to add a form variable into an email using CDOSYS.

I am trying to use this as part of an insert, for members who add thier details to our database I want to be able to send an email to someone to be aware who has just been added.

I rely need an answer to this...I have to get this up and running tomorrow

When answering, can you advise were abouts in the script elements should be placed.

ANY help would be appreciated

Server side applications

This topic has been closed for replies.

A

Anonymous

try this

objMail.TextBody = objMail.TextBody &cStr(Request.Form("Email"))
objMail.TextBody = objMail.TextBody &cStr(Request.Form("FirstName"))
objMail.TextBody = objMail.TextBody &cStr(Request.Form("LastName"))
objMail.TextBody = objMail.TextBody &cStr(Request.Form("FirstName"))
objMail.TextBody = objMail.TextBody &cStr(Request.Form("ContactNumber"))

A

Anonymous

i have had luck with this email code

place before your insert record coding

<%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")

'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserver") ="127.0.0.1"
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Update

'End remote SMTP server configuration section==
if Request.Form("Submit1") = "Send Form" then

ObjSendMail.To = Request.Form("textfield")
ObjSendMail.CC = "xxxx@jbwebworks.com"
ObjSendMail.BCC = "xxxx@bellsouth.net"
ObjSendMail.Subject = "RE:golf tournament entry form is attached"
ObjSendMail.From = "pco@pcogolf.org"

' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = Request.Form("textfield")
ObjSendMail.TextBody = ObjSendMail.TextBody & cStr(Request.Form("textfield"))
ObjSendMail.TextBody = ObjSendMail.TextBody & "" & vbCrlf & ""
ObjSendMail.TextBody = ObjSendMail.TextBody & "Thank you for entering this years Panhandle Charitable Open"
ObjSendMail.TextBody = ObjSendMail.TextBody & "" & vbCrlf & ""
ObjSendMail.TextBody = ObjSendMail.TextBody & "Entry form is attached"
ObjSendMail.TextBody = ObjSendMail.TextBody & "" & vbCrlf & ""
ObjSendMail.TextBody = ObjSendMail.TextBody & "Please print form, fill out and mail in with your entry fee"
ObjSendMail.TextBody = ObjSendMail.TextBody & "" & vbCrlf & ""
ObjSendMail.TextBody = ObjSendMail.TextBody & "" & vbCrlf & ""
ObjSendMail.AddAttachment Server.MapPath("/entryform.doc")

ObjSendMail.Send

Set ObjSendMail = Nothing

end if
%>

A

Anonymous

Cheers Jim, thanks fort your help with that, I have it working now, however, it is only sending me the last data field ("ContactNumber") in the script. How do I get all the other fields included in the email?

objMail.TextBody = Request.Form("Email")
objMail.TextBody = Request.Form("FirstName")
objMail.TextBody = Request.Form("LastName")
objMail.TextBody = Request.Form("FirstName")
objMail.TextBody = Request.Form("ContactNumber")

Regards

Sign up

To post, reply, or follow discussions, please sign in with your Adobe ID.

Sign in to Adobe Community

To post, reply, or follow discussions, please sign in with your Adobe ID.

Scanning file for viruses.

This file cannot be downloaded