I want to add a "Email it" button in my asp page, if people type in email address ,then clicked it, it will send current web page as attached file to the spacified email-address. who knows how to do it? I'm looking forward ro hearing from you.Thank you!
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!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Hoe to send current page as attached file?
- Thread starter rgao
- Start date
Here's a simple example using CDONTS as your email component:
<%
If Request.Form("Email_It"
= "yes" Then
Call sendMail(Request.Form("Email_Address")
Else
%>
<Form method="post" name="Email" action="thispage.asp">
<input type="Hidden" value="yes" name="Email_It">
<input type="Submit" value="Email it" name="Submit">
</Form>
<%
End If
Sub sendMail (sEmail)
Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail"
Mail.From = "youremail@yourdomain.com"
Mail.To = sEmail
Mail.Subject = "This is the page you requested"
Mail.Body = "Type in your message here"
Mail.AttachFile Request.ServerVariables("PATH_TRANSLATED"
Mail.Send
Set Mail = Nothing
End Sub
%>
<%
If Request.Form("Email_It"
= "yes" ThenCall sendMail(Request.Form("Email_Address"
)Else
%>
<Form method="post" name="Email" action="thispage.asp">
<input type="Hidden" value="yes" name="Email_It">
<input type="Submit" value="Email it" name="Submit">
</Form>
<%
End If
Sub sendMail (sEmail)
Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail"
Mail.From = "youremail@yourdomain.com"
Mail.To = sEmail
Mail.Subject = "This is the page you requested"
Mail.Body = "Type in your message here"
Mail.AttachFile Request.ServerVariables("PATH_TRANSLATED"
Mail.Send
Set Mail = Nothing
End Sub
%>
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question