Bland andre, har jeg fundet denne:
<% 
If request("submit") <> "" THEN 
Set objEMail = Server.CreateObject("CDO.Message") 
Set objConfig = Server.CreateObject("CDO.Configuration") 
Set Confi = objConfig.Fields 
Confi("
http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 
Confi("
http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:inetpubmailrootpickup" 
Confi.Update 
Set objEMail.Configuration = objConfig 
objEMail.To = "your@emailaddress.com" 
objEMail.From = Request("from") 
objEMail.Subject = Request("subject") 
objEMail.TextBody = Request("message") 
objEMail.Send 
Set objEMail = Nothing 
Response.Write("Message Sent") 
Else 
%> 
<form method="post" action="this.asp"> 
From Email: <INPUT type=text name="from"><br /> 
Subject: <INPUT type=text name="subject"><br /> 
Message: <TEXTAREA name="message" rows=10 cols=40></TEXTAREA><br /> 
<INPUT type="submit" value="Send" name="submit"> 
</form> 
<% 
End If 
%> 
Jeg har angivet min mail, men jeg modtager ikke en mail, når jeg har trykket "submit". 
Planen er først og fremmest at få denne til at virke og så derefter tilføje den til min oprindelige form.