Måske kan du bruge den her.. (bemærk at du skal have JMail installeret på serveren)
<html>
<head>
<style>
td, font {
font-family: Verdana;
font-size: 10pt;
}
</style>
</head>
<body>
<form action="emailform.asp?action=send" method="post">
<table border="0">
<tr>
<td>Modtager:</td>
<td><input type="text" name="modtager"></td>
</tr>
<tr>
<td>Emne:</td>
<td><input type="text" name="emne" value="<%= Request("emne") %>"></td>
</tr>
<tr>
<td>Tekst:</td>
<td><textarea name="tekst" cols="35" rows="15"></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value="Send"></td>
</tr>
</table>
</form>
<%
If Request.QueryString("action") = "send" Then
Set JMail = Server.CreateObject("JMail.Message")
function autoHighLight(Streng)
Set regEx = New RegExp ' Create a regular expression.
regEx.Pattern = "(
http://|www.|ftp://|http://www\.)[a-z0-9\.\-]+\.[a-z]{2,}[a-z0-9\.\-\/\?\=\&\ ]{0,}"
regEx.IgnoreCase = True ' Set case insensitivity.
regEx.Global = True ' Set global applicability.
Set Matches = regEx.Execute(Streng) ' Execute search.
For Each Match in Matches ' Iterate Matches collection.
If Left(LCase(Match.Value), 7) = "
http://" OR Left(Lcase(Match.Value), 6) = "
ftp://" then
Streng = Replace(Streng, Match.Value, "<A HREF=""" & Match.Value & """>" & Match.Value & "</A>")
Else
Streng = Replace(Streng, Match.Value, "<A HREF=""
http://" & Match.Value & """>" & Match.Value & "</A>")
End if
Next
autoHighLight = Streng
end function
JMail.ContentType = "text/html"
JMail.From = "din@email.dk"
JMail.FromName = "Ditnavn"
JMail.Subject = Request.Form("emne")
JMail.AddRecipient Request.Form("modtager"), Request.Form("modtager")
JMail.Logging = True
JMail.Silent = True
JMail.Body = autoHighLight(Replace(Request.Form("tekst"),VBCrLf,"<br>")
JMail.Send("smtp.mail.dk")
Set JMail = nothing
Response.Write("sendt")
End if
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
