发送者信箱
<html>
<body>
<form method=post action=sendmail.asp>
输入发送者信箱：<input type="text" name="frommail">
<br>输入接受者信箱：<input type="text" name="tomail">
<!--输入抄送信箱：<input type="text" name="ccmail">
输入密件发送<input type="text" name="bbcmail">-->
<br>输入信件主题<input type="text" name="mailtitle">
<br>输入信件内容<textarea name="mailcontent"></textarea>
<br><input type="submit">
</form>
</body>
</html>
sendmail.asp
<%
Set Mymail = CreateObject("CDONTS.NewMail")
Mymail.From = request("frommail")
Mymail.To = request("tomail")
'Mymail.CC = request("ccmail")
'Mymail.BCC = request("bbcmail")
Mymail.Subject = request("mailtitle")
Mymail.Body = request("mailcontent")
Mymail.Importance = 2
Mymail.Send
Set Mymail = Nothing
response.write "success"
%>
<body>
<form method=post action=sendmail.asp>
输入发送者信箱：<input type="text" name="frommail">
<br>输入接受者信箱：<input type="text" name="tomail">
<!--输入抄送信箱：<input type="text" name="ccmail">
输入密件发送<input type="text" name="bbcmail">-->
<br>输入信件主题<input type="text" name="mailtitle">
<br>输入信件内容<textarea name="mailcontent"></textarea>
<br><input type="submit">
</form>
</body>
</html>
sendmail.asp
<%
Set Mymail = CreateObject("CDONTS.NewMail")
Mymail.From = request("frommail")
Mymail.To = request("tomail")
'Mymail.CC = request("ccmail")
'Mymail.BCC = request("bbcmail")
Mymail.Subject = request("mailtitle")
Mymail.Body = request("mailcontent")
Mymail.Importance = 2
Mymail.Send
Set Mymail = Nothing
response.write "success"
%>
【推荐】国内首个AI IDE，深度理解中文开发场景，立即下载体验Trae
【推荐】编程新体验，更懂你的AI，立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包，你的智能百科全书，全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell：AI 加持，快人一步