|
A Quik Mail, @ Pages, Must have ASPmail installed!
|
Email
|
| Submitted on: |
3/17/2000 |
| By: |
Woody Woodland
|
| Level: |
Advanced |
| User Rating: |
By 3 Users |
| Compatibility: |
ASP (Active Server Pages) |
| Views: |
23289 |
|
|
|
|
|
To email anyone, from any address, quik and simple. Must have ASPmail installed on the server that this code will run off. Simnple program to install and simple good code.
|
| |
|
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
- You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
- You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
- You may link to this code from another website, but ONLY if it is not wrapped in a frame.
- You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
|
'**************************************
' Name: A Quik Mail, @ Pages, Must have ASPmail installed!
' Description:To email anyone, from any address, quik and simple. Must have ASPmail installed on the server that this code will run off. Simnple program to install and simple good code.
' By: Woody Woodland
'
' Inputs:Subject, From who, To who, Feedback(errors),message, MAKE SURE YOU FILL IN THE ADDRESS YOU WANT IT TO GO TO AFTER YOU MAIL THE PERSON AT THE BOTTON WHERE I TYPED IN CAPS
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=6101&lngWId=4'for details.'**************************************
<!-- FIRSTPAGE - Called quikmail.asp -->
<html>
<head><title>Quik Mail</title></head>
<body link=blue alink=blue vlink=blue>
<form action="quikmail2.asp">
<h3>Quik Mail</h3>
<table width=75% border=0>
<tr><td valign=top>To:</td><td><input type=text name=theiremail></td></tr>
<tr><td valign=top>From:</td><td><input type=text name=youremail></td></tr>
<tr><td valign=top>Subject:</td><td><input type=text name=subject></td></tr>
<tr><td valign=top>Message:</td><td><textarea rows=15 cols=60 name=message></textarea>
</td></tr>
<tr><td></td><td align=center><input type=submit value="Send Quik Mail" name=submit></td></tr>
</table>
<hr>
</form>
</body></html>
<!-- SECOND PAGE - quikmail2.asp -->
<%
message=request("message")
theiremail=request("theiremail")
youremail=request("youremail")
subject=request("subject")
message=request("message")
sub sendmessage(from,towhom,subject,message)
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "smtp-server.austin.rr.com"
Mailer.FromAddress = from
Mailer.AddRecipient towhom,towhom
Mailer.Subject = subject
Mailer.BodyText= message
if not Mailer.SendMail then
response.write "Mailing Failed... Error is: <br>"
response.write Mailer.Response
end if
end sub
sendmessage youremail,theiremail,subject,message
response.redirect "ANYPAGE YOU WANT TO GO TO !!!!"
%>
|
|
Other 2 submission(s) by this author
|
|
Report Bad Submission
|
Your Vote
|
| |
Other User Comments
|
 3/27/2000 10:07:55 PM: Jeremi Bergman
where do I get this
(If this comment was disrespectful, please report it.)
|
3/27/2000 10:08:34 PM: Jeremi Bergman
where do i get the aspmail or how do i know if i have it?
(If this comment was disrespectful, please report it.)
|
4/29/2000 11:28:58 PM: Ian Ippolito
You can get ASPMail from www.serverobjects.com
(If this comment was disrespectful, please report it.)
|
8/30/2001 9:01:04 PM: Ad
How do I know what to place between the quotes after 'Mailer.RemoteHost = '?
(If this comment was disrespectful, please report it.)
|
9/13/2002 2:22:20 AM:
i installed aspmail (persist software aspmail) in my server (win 2000 advance server) and i was trying your code but i can not receive e-mail from your code because i change your code to my e-mail
(If this comment was disrespectful, please report it.)
|
1/24/2003 2:08:45 AM:
Hello sir. the code is very good. But Plz. tell me any free web site where I can upload these 2 pages. I generally use www.brinkster.com . but it seems there is no aspmail on this server.
I uploaded these 2 pages on this server but when i sent the mail , i got an error message:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
quikmail2.asp, line 9
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.
And the line 9 is :
Set Mailer = Server.CreateObject(
(If this comment was disrespectful, please report it.)
|
3/28/2003 9:00:18 AM: Jon
is there any possible way to instal ASPmail onto a free asphosting server?
(If this comment was disrespectful, please report it.)
|
5/2/2003 9:44:12 AM: Andrew McGrath
nup...same problem occures wiv any dll hosting on a server...they won't do it
(If this comment was disrespectful, please report it.)
|
8/21/2003 10:46:23 AM:
is mail2.asp part of this program of which you speak? if not where can i obtain the page of happiness?
(If this comment was disrespectful, please report it.)
|
4/13/2004 7:17:14 PM:
I have installed ASP Mail from Persit software onto my comp, but your code still doesn't work.
(If this comment was disrespectful, please report it.)
|
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
To post feedback, first please login.
|
