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.