高分找"有没有能真正能用asp在线发邮件"的asp相关全部原代码,或解决办法!!!谢谢!!!

[token305]

高分找"有没有能真正能用asp在线发邮件"的asp相关全部原代码,或解决办法!!!谢谢!!!

[fangpeng2003]

Cdonts是IIS默认带的！一般用这个就好了！
JMAIL功能很强大如果你可以操作你的服务器最好用这个
<%
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.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body =mailbody
objCDOMail.Send
Set objCDOMail = Nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub

sub aspemail(email)
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient=email
sender=SystemEmail
subject=topic
message=mailbody
mailserver=SMTPServer
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
%>

[mmxxlm]

用IIS的CDONTS组件..装stmp服务就有了！

下面是一些简单的代码
dim objCDOMail

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "[e-mail]"
objCDOMail.To = "xxx@yahoocom"
objCDOMail.Subject = ""
objCDOMail.Body = ""
objCDOMail.Send
Set objCDOMail = Nothing

这样就可以在线发邮件了。。复杂的，看cdonts的文档的

[xueyhfeng]

看看这个用ASP开发的邮件系统吧，WebeasyMail