简单的发邮件方式？

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>

...全文

60 点赞收藏 7

写回复

7 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

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
%>

回复赞