简单的发邮件方式?

honest 2002-05-17 09:00:19
这是一个提交表单,,,我不知道后台程序是怎么写的,如果有高手知道就请帮我一下,万分感谢!(emalilto.asp程序如何写)
<form action="emailto.asp">
<p align="center">收件人邮箱:<input type="text" name="emailto" size="20"><br>
发件人邮箱:<input type="text" name="myemail" size="20"><br>
        内容:<textarea rows="5" name="memo" cols="20"></textarea></p>
<p align="center"><input type="button" value="发送" name="B3"> 
<input type="reset" value="重置" name="B3"></p>
</form>
...全文
186 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
honest 2002-05-17
  • 打赏
  • 举报
回复
请问旭毅 jmail在哪里有下载的。
phoenixlj 2002-05-17
  • 打赏
  • 举报
回复
给你一段代码:
Set myMail=Server.CreateObject("CDONTS.NewMail")
Set Msg=Server.CreateObject("CDO.Message")

myMail.from=trim(Request.Form("emailfrom")) 邮件发送地址
myMail.to=trim(rs("email")) 邮件到达地址
myMail.subject="尊敬的专家……" 邮件标题
myMail.body=trim(Request.Form("email_strings")) 邮件内容
myMail.bodyformat=0
myMail.mailformat=0
Msg.Configuration.Fields("SendUsing")=2

If trim(Request.Form("smtpserver"))="" Then
Msg.Configuration.Fields("SMTPServer")="服务器名称" 这是当没有选择邮件服务器时,设定的默认服务器。
Else
Msg.Configuration.Fields("SMTPServer")=trim(Request.Form("smtpserver"))
End If

Msg.Configuration.Fields("SMTPServerPort")="25"
myMail.Send

set myMail=Nothing
set Msg=Nothing
phoenixlj 2002-05-17
  • 打赏
  • 举报
回复
CDONTS是在Win2000中自带的,但是需要装载SMTP虚拟服务器。
honest 2002-05-17
  • 打赏
  • 举报
回复
高手!!!!
我不知道CDONTS
在哪里有下载给我一个地址谢谢还有也不知道CDONTS
是怎么设置的我有自已的服务器的。
cmsoft 2002-05-17
  • 打赏
  • 举报
回复
用 CDONTS.NewMail 来发信吧,设一个虚拟SMTP发件,速度快得你不敢相信,我在服务器上1秒钟发4封信,1300封??小意思啦!
<br />
<br />

再用一句server.scripttimeout = XXX,来设定超时的时间,没问题了
<br />
<br />
<br />

-----------------------------------------------------------
<br />

这是发件的函数
<br />

Function mail(usermail,subject,body)
<br />

Dim objCDO
<br />

'On Error Resume Next
<br />

mail = False
<br />

Set objCDO = Server.CreateObject("CDONTS.NewMail")
<br />

If Err Then
<br />

Exit Function
<br />

End If
<br />

objcdo.MailFormat = 0
<br />

objcdo.BodyFormat = 1
<br />

objCDO.To = usermail
<br />

objCDO.Importance = 1
<br />

objCDO.From = "master@XXXX.com"
<br />

objCDO.Subject = subject
<br />

objCDO.Body = body
<br />

objCDO.Send


Set objCDO = Nothing
mail = True
End function
loiter 2002-05-17
  • 打赏
  • 举报
回复
如是用jmail,而自己的信箱服务器不支持发信的话就发不了了
loiter 2002-05-17
  • 打赏
  • 举报
回复
以下是用jmail和Cdonts发信的例程

<%
sub Jmail(email)
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer-----------发信人的信箱服务器地址
JMail.Sender=systemEmail------发信人的地址
JMail.Subject=topic---------信件主题
JMail.Body=mailbody---------信件内容
JMail.AddRecipient(email)-----收件人信箱
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub

sub Cdonts(email)
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =SystemEmail----发信人信箱
objCDOMail.To =email------------收信人信箱
objCDOMail.Subject =topic----------信件主题
objCDOMail.Body =mailbody--------信件内容
objCDOMail.Send
Set objCDOMail = Nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
%>

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧