How to send a submitted form to an email address?

gacon · Dec 26, 2003

I got a form which is used for clients to fill their info. When the clients submit the form, i want the submitted form will be sent to my email as an attachment. Is that possible?? Please send me the syntax to wirte that function!!!

hithere · Dec 26, 2003

yes, it is possible. you'll need to know which email component is installed on the server. That will determine the exact syntax that you would need. CDONTS and JMail are a couple of the most common and their syntax is very similar. code below doesn't include sending as an attachment but will give you the basic idea. we've been requesting the form contents and just concatenate a string called "body".
'SENDING EMAIL
Function SendEmail(subject,recipient,priority,body)
' Set JMail = Server.CreateObject("JMail.SMTPMail&quot

' JMail.ServerAddress = "myemailserver.com
' JMail.Sender = "myemail@mymail.com
' JMail.Subject = subject
' JMail.AddRecipient recipient
' JMail.Body = body
' JMail.Priority = priority
' JMail.ContentType = "text/html"
' JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR&quot

' JMail.Execute
' Set JMail=nothing

'CDONTS
Set objMail = Server.CreateObject("CDONTS.NewMail&quot

objMail.From = "myemail@mymail.com"
objMail.Subject = subject
objMail.To=recipient
objMail.Body=body
objMail.Importance=priority
objMail.MailFormat=0
objMail.BodyFormat=0
objMail.Send
Set objMail = Nothing
End Function

hth
mb

"Where's the Ka-Boom? There's supposed to be an Earth-shattering Ka-Boom!"
Marvin the Martian

gacon · Dec 26, 2003

Thank you "Hithere"!
yep, i'm using the CDONTS, but right now i make it get info from the form and display as a webpage which i found a bit too long and waste of time, that's why i got an idea to send the submitted form straight away as an attachment! Here is what i'm using now:
_________________________________________________
sHTML= "<html><head>"
sHTML=sHTML + "<title> Visitor Information and Travel Approval to Vietnam </title> "
sHTML=sHTML + "</head><body> "
sHTML=sHTML + "<center>VISITOR INFORMATION AND TRAVEL APPROVAL TO VIETNAM</center> "
sHTML=sHTML + "SPONSOR INFORMATION "
sHTML=sHTML + "Name: " + Request.Form("sponsor_name&quot

+ " "
sHTML=sHTML + "Dept: " + Request.Form("dept&quot

+ " "
sHTML=sHTML + "Extn: " + Request.Form("extn&quot

+ " "
sHTML=sHTML + "Extn: " + Request.Form("charge_code&quot

+ " "
sHTML=sHTML + "VISITOR INFORMATION "
sHTML=sHTML + "Name: " + Request.Form("visitor_name&quot

+ " "
sHTML=sHTML + "Company: " + Request.Form("company&quot

+ " "
sHTML=sHTML + "Location: " + Request.Form("location&quot

+ " "
sHTML=sHTML + "Phone: " + Request.Form("phone&quot

+ " "
sHTML=sHTML + "Passport: " + Request.Form("passport_num&quot

+ " "
sHTML=sHTML + "Hotel/Accomm: " + accomm + " "
sHTML=sHTML + "SSN: " + Request.Form("ssn&quot

+ " "
sHTML=sHTML + "Reason for Travel: " + Request.Form("reason&quot

+ " "
sHTML=sHTML + "ARRIVAL INFORMATION: "
sHTML=sHTML + "Arrival City: " + city + " "
sHTML=sHTML + "Arrival Date (dd/mm/yy): " + arr_date + " "
sHTML=sHTML + "Arrival Time: " + arr_time + " "
sHTML=sHTML + "Flight: " + Request.Form("aflight&quot

+ " "
sHTML=sHTML + "DEPARTURE INFORMATION: "
sHTML=sHTML + "Departure Date (dd/mm/yy): " + dep_date + " "
sHTML=sHTML + "Departure Time: " + dep_time + " "
sHTML=sHTML + "Flight: " + Request.Form("dflight&quot

+ " "
sHTML=sHTML + "First Time Traveler to Vietnam? " + Request.Form("r1&quot

+ " "
sHTML=sHTML + "Visa Request Processed via Hanoi? " + vis_proc + " "
sHTML=sHTML + "Country in which Passport was Issued: " + Request.Form("country_passport&quot

+ " "
sHTML=sHTML + "Locations to be visited In Vietnam: " + Request.Form("visit_location&quot

+ " "
sHTML=sHTML + "Emergency Contact at Home/Office: " + Request.Form("contact&quot

+ " "
sHTML=sHTML + "ENTRY VISA APPLICATION: "
sHTML=sHTML + "Date of birth (dd/mm/yy): " + birth_date + " "
sHTML=sHTML + "Nationality: " + nation + " "
sHTML=sHTML + "Passport Number: " + passno + " "
sHTML=sHTML + "Country in which passport was issued: " + issuecountry + " "
sHTML=sHTML + "Date of Issue: " + issue_date + " "
sHTML=sHTML + "Place of Issue: " + issueplace + " "
sHTML=sHTML + "Date of Expiration: " + expire_date + " "
sHTML=sHTML + "Place of visa issue: " + visa_issue + " "
sHTML=sHTML + "Multi visa request: " + mul_visa + " "
sHTML=sHTML + "Single of visa issue: " + single_visa + " "
sHTML=sHTML + " "
sHTML=sHTML + "APPROVAL "+ " "
sHTML=sHTML + " "
sHTML=sHTML + " "
sHTML=sHTML + " "
sHTML=sHTML + " "
sHTML=sHTML + "_______________________________________________ " + " "
sHTML=sHTML + "Georg Storaker - President "+ " "
sHTML=sHTML + "ConocoPhillips (UK) Ltd - Vietnam "+ " "
sHTML=sHTML + "</body></hmtl>"

set objMail= CreateObject("CDONTS.Newmail&quot

objMail.From = cstr(Request.Form("e-mail&quot

)
objMail.To ="tthuyen@newhorizons.com.vn"
objMail.Subject = "Visitor Information Request"
objMail.BodyFormat = cdoBodyFormatHTML
objMail.MailFormat = cdoMailFormatMIME
objMail.Body = sHTML
objMail.Send
Set objMail=Nothing
__________________________________________________

i have found a sending attachment syntax:
objMail.AddAttachment "filepath"
But can't work it out to send a submitted form!

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

How to send a submitted form to an email address?

gacon

Programmer

hithere

Programmer

gacon

Programmer

Similar threads

Part and Inventory Search

Sponsor