Send E-Mail from .ASP

DougP · Jun 29, 2000

I am using ASP to save information to a SQL database this works great. But of course we have to check the database to see if and when any data came it. I would like to have the submit button send an e-mail in addition to saving data to the database. Any Idea's??? also using Front Page 2000 DougP <a href=mailto: dposton@universal1.com> dposton@universal1.com</a> <a href= > </a> Ask me how Bar-codes can help you be more productive.

ChrisQuick · Jun 29, 2000

There are several components available for sending mail with ASP.  Personally I use the ASPEmail component from Persists Software Inc. You can find it at <A HREF="

http://www.aspemail.com"

TARGET="_new">

http://www.aspemail.com</A>.

DougP · Jun 29, 2000

I suppose these have to be installed on the Server. Our site is hosted by an ISP so we probably can't add anything to it. Can I cut out the Front Page WEBBOT code it generates when you create a DougP <a href=mailto: dposton@universal1.com> dposton@universal1.com</a> <a href= > </a> Ask me how Bar-codes can help you be more productive.

palbano · Jun 29, 2000

Dear Doug, With EMail even if a component is installed on the ISP's server you still need a SMTP server to accept your request. You really need to talk with your ISP about supporting web based email. Hope this helps -pete

unicorn11 · Jun 29, 2000

Atleast one email tool will be installed at ur ISP ask him what it is (usually CDONTS) u can then use it to sent mail to whoever you like ask ur isp first what it is it should be there in the help section Unicorn11 <a href=mailto:webmaster@tripmedia.com>webmaster@tripmedia.com</a> <a href= > </a> Hi there it all likeminded fellows!!!!!!

varu · Jul 1, 2000

Hey DougP, Your ISP will provide some 3rd party component like 1.ASPEmail from persists.com 2.CDONTS 3. or lot of other 3rd party componets which your ISP feels good.Your ISP will have a SMTP and a 3rd party component. Talk to him, he will provide you the documentation. But if you are looking for ASPEMAIL component from <A HREF="

http://www.persits.com"

TARGET="_new">

http://www.persits.com</A>,

you have to download the component and check out the help provided, I can tell you DOUGP it is damn easy, you can even do that from Visual Basic, Just install that component and Just start sending Mails Bye Varu

DougP · Jul 5, 2000

they are using ASPemail 4.4 here is a sample of code It works fantastic --------------------------------------- <% Set Mail = Server.CreateObject("Persits.MailSender&quot

Mail.Host = "smtp.smtp-server.com" ' Specify a valid SMTP server Mail.From = "<A HREF="mailto:sales@veryhotcakes.com">sales@veryhotcakes.com</A>" ' Specify sender's address Mail.FromName = "VeryHotCakes Sales" ' Specify sender's name Mail.AddAddress "<A HREF="mailto:andy@andrewscompany.net">andy@andrewscompany.net</A>", "Andrew Johnson, Jr." Mail.AddAddress "<A HREF="mailto

aul@paulscompany.com">paul@paulscompany.com</A>" ' Name is optional Mail.AddReplyTo "<A HREF="mailto:info@veryhotcakes.com">info@veryhotcakes.com</A>" Mail.AddAttachment "c:\images\cakes.gif" Mail.Subject = "Thanks for ordering our hot cakes!" Mail.Body = "Dear Sir:" & Chr(13) & Chr(10) & _      "Thank you for your business." On Error Resume Next Mail.Send If Err <> 0 Then    Response.Write "Error encountered: " & Err.Description End If %> ---------------------- DougP <a href=mailto: dposton@universal1.com> dposton@universal1.com</a> <a href= > </a> Ask me how Bar-codes can help you be more productive.

DougP · Jul 5, 2000

One little problem.. It won't pass the form text boxes to my e-mail. Here is my code. ----------------------------- If Request.ServerVariables("REQUEST_METHOD&quot

= "POST" Then If Request.Form("VTI-GROUP&quot

= "0" Then Err.Clear Set fp_conn =  Server.CreateObject("ADODB.Connection&quot

FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset&quot

FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("BrochureRequest_ConnectionString&quot

FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "BrochureRequests", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(13) Dim arFormDBFields0(13) arFormFields0(0) = "FIRSTNAME" arFormDBFields0(0) = "FIRSTNAME" arFormFields0(1) = "TITLE" arFormDBFields0(1) = "TITLE" arFormFields0(2) = "COMPANY" arFormDBFields0(2) = "COMPANY" arFormFields0(3) = "FAX" arFormDBFields0(3) = "FAX" arFormFields0(4) = "ItemRequested" arFormDBFields0(4) = "BrochureType" arFormFields0(5) = "EMAIL" arFormDBFields0(5) = "EMAIL" arFormFields0(6) = "PHONE" arFormDBFields0(6) = "PHONE" arFormFields0(7) = "LASTNAME" arFormDBFields0(7) = "LASTNAME" arFormFields0(8) = "CITY" arFormDBFields0(8) = "CITY" arFormFields0(9) = "ADDRESS" arFormDBFields0(9) = "ADDRESS" arFormFields0(10) = "STATE" arFormDBFields0(10) = "STATE" arFormFields0(11) = "ZIPCODE" arFormDBFields0(11) = "ZIPCODE" arFormFields0(12) = "COUNTRY" arFormDBFields0(12) = "COUNTRY"    Fname = fp_rs("FIRSTNAME&quot

Lname = fp_rs("LASTNAME&quot

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST&quot

<> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST&quot

, "RemoteComputerName" End If If Request.ServerVariables("HTTP_USER_AGENT&quot

<> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT&quot

, "BrowserType" End If FP_SaveFieldToDB fp_rs, Now, "Date" If Request.ServerVariables("REMOTE_USER&quot

<> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER&quot

, "UserName" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Response.Redirect "thankyou.htm" End If End If %> <% Set Mail = Server.CreateObject("Persits.MailSender&quot

Mail.Host = "smtp.ij.net" ' Specify a valid SMTP server Mail.From = "<A HREF="mailto:Webmaster@universal1.com">Webmaster@universal1.com</A>" ' Specify sender's address Mail.FromName = "WEB Site Auto Responder" ' Specify sender's name Mail.AddAddress "<A HREF="mailto:dposton@universal1.com">dposton@universal1.com</A>", "Guru of The WEB" 'Mail.AddReplyTo "<A HREF="mailto:info@veryhotcakes.com">info@veryhotcakes.com</A>" 'Mail.AddAttachment "c:\images\cakes.gif" Mail.Subject = "WEB site Brochure Request" msg = "FIRSTNAME" & " " & Fname & Chr(13) & Chr(10) msg = msg & "LASTNAME" & " " & Lname & Chr(13) & Chr(10) Mail.Body = msg On Error Resume Next Mail.Send If Err <> 0 Then     Response.Write "Error encountered: " & Err.Description End If %> ------------------------------ End of code ------------ results of email: ----------------- Received: from [207.22.166.34] by solomon.universal1.com (NTMail 3.02.13) with E SMTP id dposton for <<A HREF="mailto:dposton@universal1.com">dposton@universal1.com</A>>; Wed, 5 Jul 2000 17:24:40 -0400 From: "WEB Site Auto Responder" <<A HREF="mailto:Webmaster@universal1.com">Webmaster@universal1.com</A>> To: "Guru of The WEB" <<A HREF="mailto:dposton@universal1.com">dposton@universal1.com</A>> Subject: WEB site Brochure Request Date: Wed, 05 Jul 2000 17:21:28 -0400 MIME-Version: 1.0 Message-Id: <<A HREF="mailto:21244004685582@universal1.com">21244004685582@universal1.com</A>>   FIRSTNAME LASTNAME   . ---------------- First name and Last name are blank in the e-mail, but the data is being saved OK to the database. Any ideas???? TIA DougP <a href=mailto: dposton@universal1.com> dposton@universal1.com</a> <a href= > </a> Ask me how Bar-codes can help you be more productive.

din · Jul 7, 2000

Hi, I did not look at your code since it is too complicated. But here is how you should do: Suppose you DB table is "USER" and has three fields 1. Name 2. email 3. address Before you write to the DB, you must already have an input form for this. Suppose this file is called "input.htm" which later pass to "write.asp" to save it to DB In "write.asp" you should have something like this Dim getname,getemail,getaddress getname=Request.Form("username&quot

getemail= Request.Form("useremail&quot

getaddress = Request.Form("useraddress&quot

Suppose the user key in name=a,email=b,address=c then now getname = a getemail = b getaddress=c Then you write to database using ADD.NEW RS("name&quot

= a RS("email&quot

= b RS("address&quot

= c You current program is still ok at this part. Now the email part Set objMail = Server.CreateObject("CDONTS.NewMail&quot

objMail.From = "<A HREF="mailto:Webmaster@universal1.com">Webmaster@universal1.com</A>" objMail.Subject = "WEB site Brochure Request" objMail.To = getemail objMail.Body = "Here are the information" & vbCrlf & _                "Name " & getname & vbCrlf & _                "Email  " & getemail & vbCrlf & _                "Address " & getaddress & vbCrlf & _ objMail.Send Set objMail = nothing This should work Good Luck

teky · Aug 9, 2000

I am currently working on a project, which has a form E-mailer. The asp code uses CDONTS.dll. When I try to execute the the code, I get the following error. Microsoft VBScript runtime error '800a01ad' ActiveX component can't create object /aspformmail.asp, line 268 Teky. <a href=mailto: > </a> <a href= > </a>

palbano · Aug 9, 2000

DougP, > Any ideas???? Well just a guess but this is your sequence in psuedo code *Recordset AddNew *Setup some array (don't know why) *Store recordset field values into variables FName, LName *Call some procedure named 'FP_SaveFormFields ' which I assume actually places the values into the 'new row' *Create email message using variables FName and LName Now it appears to me that you are storing values into FName and LName from a 'new' empty row, just a guess, what do you think? -pete

Sundar2000 · Aug 22, 2000

I have a related question on using E-Mail in ASP code. If I am running PWS on Windows 98, are there any componnents out there that I can use? CDONTS work only on NT's running IIS.
Any help/suggestion would be appreciated.

Thanks
Sundar

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!

Send E-Mail from .ASP

DougP

MIS

ChrisQuick

Programmer

DougP

MIS

palbano

Programmer

unicorn11

Programmer

varu

Programmer

DougP

MIS

DougP

MIS

din

Programmer

teky

Programmer

palbano

Programmer

Sundar2000

Programmer

Similar threads

Part and Inventory Search

Sponsor