关于NewMail对象的问题？

newstar2002 2003-10-11 03:51:58

不知为什么，我一条是带有newmail对象的程序，就使系统的cup利用率达到100%
而且实现不了发邮件的功能。
set mail=server.CreateObject("cdonts.newmail")
mail.From="ss@etang.com"
mail.To ="ss@eyou.com"
mail.Subject="hello"
mail.BodyFormat=0
mail.MailFormat=0
mail.Body="dddddddd"
mail.Send
set mail=nothing

...全文

24 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

dafei0320 2003-10-13

打赏
举报

我这个是功能比较齐全的发送邮件!
有什么不懂的吗???
测试没问题!

<%
dim fujian1,fujian2,fujian3,fujian4
name=request.form("name")
shu=request.form("shu")
word=request.form("word")
timu=request.form("timu")
fujian1=trim(request.form("fujian1"))
fujian2=trim(request.form("fujian2"))
fujian3=trim(request.form("fujian3"))
fujian4=trim(request.form("fujian4"))
%>
<%
for i=1 to shu
set mail = server.createobject("cdonts.newmail")
mail.to = name
mail.from = "liyitong@476.com"
mail.subject = timu
mail.body = "你猜猜我是谁呢？？？"&word
if fujian1<>"" then
mail.attachfile fujian1,"beatuful",1
end if
if fujian2<>"" then
mail.attachfile fujian2,"meili",1
end if
if fujian3<>"" then
mail.attachfile fujian3,"good",1
end if
if fujian4<>"" then
mail.attachfile fujian4,"veryf",1
end if
mail.importance = 1
mail.bodyformat=1
mail.mailformat=0
mail.send
set mail=nothing
next
%>
<html>
<body>
<center><font size="6" color="#FF0000">你的信附件已经成功发送到预定的信箱！请你查收！</font>
</center>
<center><a href="javascript:history.back()">返回</a></center>

</body>
</html>

dh20156 2003-10-11

打赏
举报

试试吧:

<% on error resume next
username="dh20156"
userpass="123456"
realname="阿杜"
email="dh20156@126.com"

dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="webmaster@v-ec.com"
objCDOMail.To =email
objCDOMail.Subject ="威驰会员注册确认信"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body ="祝贺您"&realname&",您的注册非常成功,欢迎加入威驰这个大家庭!您的登录用户名是:"&username&",登录密码:"&userpass&"请妥善保管您的登录资料,定期更改您的密码!再次感谢您对我们的支持!威驰设计开发工作组全体同仁http://www.v-ec.com"
objCDOMail.Send
Set objCDOMail = Nothing
if err then
SendMail=err.description
err.clear
end if %>

Mail Transfer Protocol”，即简单邮件传输协议。它是一组用于从源地址到目的地址传输邮件的规范，通过它来控制邮件的中转方式。SMTP 协议属于 TCP/IP 协议簇，它帮助每台计算机在发送或...

NewMail 对象（CDONTS 库）发送邮件速查声明的类型库： CDONTS.DLL 首次启用： CDO for NTS Library 版本 1.2 父对象：（无）子对象：（无）默认属性： Value 属性名首次启用版本类型访问 Bcc 1.2 字符串只写 Body 1.2 IStream 对象或字符串只写 BodyForma

有时在进入系统的时候经常提示You have new mail in /var/spool/mail/root 你觉得烦人---解决方法：修改系统配置文件/etc/profile，告诉系统不要去检查邮箱. 具体操作：命令行输入：echo "unset MAILCHECK" >> /etc/profile 【把unset MAILCHECK加到文件/etc/profile 的尾部】然后重新登

操作系统：win 2003CDONTS.NewMail Server 对象错误 ASP 0177 : 800401f3问题原因：系统C:/windows/system32下，没有Cdonts.dll文件解决办法：拷贝Cdonts.dll到system32目录下，在命令行运行“regsvr32 cdonts.dll”