How do you send an email in asp?

meeble · Nov 15, 2002

Hello,

I have a form on my site that when users fill it in, I'd like it to email me the results. I can do this using .php and cgi but this site is being done in .asp. I have the form elements, does anyone have a good script or can they point me to one on the web?

Much appreciated,

James

krisbrixon · Nov 15, 2002

a lot of people use CDONTS. I think there is a setting in the web server to allow email. here is some code.

Dim myCDO, FromAddress, MailList, sSubject, sBody

FromAddress = "from@f.com"
MailList = "To@t.com"
sSubject = "Hi"
sBody = "Howdy"

Set myCDO = Server.CreateObject("CDONTS.NewMail&quot

myCDO.send FromAddress, MailList, sSubject, sBody

Set myCDO = Nothing

Kris
- To err is human, but to really foul things up requires a computer.

meeble · Nov 15, 2002

Hello,

I have tried to make up a script but although it seems to work, I don't receive any email and I know the SMTP server is working fine. I have made it a self referencing form. What is wrong with the code please:

<%
On Error Resume Next

sub SendMail(strServer, strSubject, strrealname, strcompname, strposition, stremail, strTelephone_Number, strAddress, strEnquiry, strInformation_required)
Dim objC
dim objM
dim strDefaultEmail
dim lngErrNumber
dim strErrSource
dim strErrDescription

Set objC = CreateObject("CDO.Configuration&quot

objC.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= strServer
objC.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25
objC.Fields("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
objC.Fields.Update

Set objM = CreateObject("CDO.Message&quot

Set objM.Configuration = objC
objM.Subject = strSubject

if Err.number = 0 then
objM.send
end if

set objM = nothing
set objC = nothing
end sub

SendMail Request.Form("realname&quot

, Request.Form("compname&quot

, Request.Form("position&quot

, Request.Form("email&quot

, Request.Form("Telephone_Number&quot

, Request.Form("Address&quot

, Request.Form("Enquiry&quot

, Request.Form("Information_required&quot

%>

<html>
<head>
</head>

<form method="post" action="contact.asp" id="frmEmail" name="frmEmail">
<input type="hidden" name="Server" value="smtp.xxx.co.uk">
<input type="hidden" name="To" value="test@xxx.co.uk">
<input type="hidden" name="Subject" value="Web enquiry">
<body bgcolor="#FFFFFF" topmargin="9">

<input type="text" name="realname" size="20">
<input type="text" name="compname" size="20">
<input type="text" name="position" size="20">
<input type="text" name="email" size="20">
<input type="text" name="Telephone_Number" size="20">
<textarea cols="15" rows="4" name="Address"></textarea>
<textarea cols="24" rows="8" name="Enquiry" class="box"></textarea>
<select name="Information_required"><option>1</option></select>
<INPUT TYPE="SUBMIT" VALUE="Send">
<INPUT TYPE="RESET" VALUE="Clear">
</FORM>

asmith555 · Nov 18, 2002

jmail is a free component that works pretty well. You can download it at

http://www.dimac.net.

Its worked for me where CDO didnt

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 do you send an email in asp?

meeble

Programmer

krisbrixon

Programmer

meeble

Programmer

asmith555

Programmer

Similar threads

Part and Inventory Search

Sponsor