28,406
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ssm1226 2002-02-07
- 打赏
- 举报
Set objEmail = Server.CreateObject("CDONTS.NewMail")
objEmail.To = toEmail
objEmail.From = FromEmail
objEmail.Subject = title
objEmail.Body = content
objEmail.BodyFormat=0
objEmail.MailFormat=0
objEmail.Send
Set objEmail = Nothing
objEmail.To = toEmail
objEmail.From = FromEmail
objEmail.Subject = title
objEmail.Body = content
objEmail.BodyFormat=0
objEmail.MailFormat=0
objEmail.Send
Set objEmail = Nothing
希偌 2002-02-07
- 打赏
- 举报
<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"
%>
希偌 2002-02-07
- 打赏
- 举报
<% @ language=vbscript %>
<% response.expires=0 %>
<!--#include file="email.inc"-->'得到初始的发送邮件地址，也可以从表单获取！
<%
name1=trim(request.form("textfield"))
tel=trim(request.form("textfield2"))
email=trim(request.form("textfield3"))
content=trim(request.form("textfield4"))
Set JMail=Server.CreateObject("JMail.SMTPMail")
emailcontent="姓名：" & name1
emailcontent=emailcontent & "<br>电话：" & tel
emailcontent=emailcontent & "<br>电子邮件：" & email
emailcontent=emailcontent & "<br>回音建议：<font color=#ff0000>" & content & "</font>"
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress="public.nn.gx.cn"
JMail.Sender=email
JMail.Subject= "观众回音壁"
JMail.Body= emailcontent
JMail.AddRecipient e_mail
JMail.Priority=3
'邮件的优先级别0-1-2-3-4-5
JMail.Execute
if err then
SendMail=err.description
err.clear
response.write "邮件发送过程中发生错误，邮件发送失败！"
else
SendMail="OK"
response.write "邮件发送成功！"
end if
Set JMail=nothing
%>
<% response.expires=0 %>
<!--#include file="email.inc"-->'得到初始的发送邮件地址，也可以从表单获取！
<%
name1=trim(request.form("textfield"))
tel=trim(request.form("textfield2"))
email=trim(request.form("textfield3"))
content=trim(request.form("textfield4"))
Set JMail=Server.CreateObject("JMail.SMTPMail")
emailcontent="姓名：" & name1
emailcontent=emailcontent & "<br>电话：" & tel
emailcontent=emailcontent & "<br>电子邮件：" & email
emailcontent=emailcontent & "<br>回音建议：<font color=#ff0000>" & content & "</font>"
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress="public.nn.gx.cn"
JMail.Sender=email
JMail.Subject= "观众回音壁"
JMail.Body= emailcontent
JMail.AddRecipient e_mail
JMail.Priority=3
'邮件的优先级别0-1-2-3-4-5
JMail.Execute
if err then
SendMail=err.description
err.clear
response.write "邮件发送过程中发生错误，邮件发送失败！"
else
SendMail="OK"
response.write "邮件发送成功！"
end if
Set JMail=nothing
%>
