Versgo her er jers mail sender til jers site !! så i kan la ander sende free mails som ikke har en mail et sted ??
men husk at ænder
Mailserver
dinmail
dit enmne
og reklame bar neders :))
Held og lykke med mail sendene
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "Mailserver"
JMail.Sender = "dinmail"
JMail.SenderName = "Fra: " & Request.Form("name")
JMail.Subject = "DitEnme"
JMail.AddRecipient Request.Form("mail")
JMail.Body = "Navn: " & Request.Form("name") & vbCrLf
JMail.Body = Jmail.Body & "Fra: " & Request.Form("mail") & vbCrLf
JMail.Body = Jmail.Body & "Emne: " & Request.Form("emne") & vbCrLf
JMail.Body = JMail.Body & "Beskeden: " & Request.Form("besked") & vbCrLf
JMail.Body = JMail.Body & vbCrLf
JMail.Body = JMail.Body & "Denne mail er send fra CopyFree du kan også sende en gratis mail en en du holder af på
http://www.webgud.dk/daniel/copyfree/mail.asp"
JMail.Execute
Set JMail = Nothing
%>
<center>Tak fordi du sendte en mail fra CopyFree.</center>
<% else %>
<form method="POST" action="">
<table align="center">
<tr>
<td><font size="1" face="Verdana">Til E-mail: </font></td>
<td><input type="text" name="mail"></td>
</tr>
<tr>
<td><font size="1" face="Verdana">Fra: </font></td>
<td><input type="text" name="name"></td>
</tr>
<tr>
<td><font size="1" face="Verdana">Emne: </font></td>
<td><input type="text" name="emne"></td>
</tr>
<tr>
<td valign=top><font size="1" face="Verdana">Beskrivles:</font></td>
<td><textarea rows="15" name="besked" cols="40"></textarea></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Send" name="Send"></td>
</tr>
</table>
</form>
<% end if %>