Eks på hvordan koden kan laves du skal lige rette et par linjer med modtager navn og email adress. Samt adressen på den server du sender mail igennem:
<%
if request.servervariables("REQUEST_METHOD")="POST" then
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
navn = Request.form("navn")
fraemail = Request.form("email")
emne = Request.form("emne")
tekst = Request.form("tekst")
' Her sættes afsender navn og e-mail adresse
Mailer.FromName = navn
Mailer.FromAddress= fraemail
' Afsenders mailserver, RET DENNE
Mailer.RemoteHost = "mail.domain.dk"
' Her sættes modtager navn og e-mail adresse, RET DENNE
Mailer.AddRecipient "Modtagers navn", "modtager@domain.dk"
' Her sættes overskriften på mailen
Mailer.Subject = emne
' Her sættes selve teksten til mailen
Mailer.BodyText = "Hej med dig" & VbCrLf & tekst
' Send e-mail og skriv status
if Mailer.SendMail then
Response.Write "Mailen er afsendt..."
else
Response.Write "Der skete en fejl: " & Mailer.Response
end if
' Fjern objekt igen
Set Mailer = Nothing
end if
%>
<html>
<body>
<form action="<%= request.servervariables("SCRIPT_NAME")%>" method="post">
<table>
<tr><td>Navn:</td><td><input type="text" name="navn"></td></tr>
<tr><td>Email:</td><td><input type="text" name="email"></td></tr>
<tr><td>Emne:</td><td><input type="text" name="emne"></td></tr>
<tr><td>Tekst:</td><td><input type="text" name="tekst"></td></tr>
<tr><td> </td><td><input type="submit" name="Send" value="Send"></td></tr>
</table>
<form>
</body>
</html>
