哪位有好的系统发我啊!不胜感谢!!!
QQ:280955202
4楼的帅哥,我现在要做一个这样的东西,就是客户留言的信息,发到公司一个固定的邮箱里面.
我查到这样的一段代码:
---
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail") '创建发email的对象
objNewMail.BodyFormat=0
objNewMail.MailFormat=0 '把email的格式设为可以显示html文档,如果等于1则为text
objNewMail.From="myaddress@me.com" '发送方的email地址,可以写假的,没关系
objNewMail.To="test@test.com" '收件方的email地址
objNewMail.Subject="this is subject" '邮件名称
objNewMail.Body= "This is the Body text of this test mail." '邮件的正文,可以写html代码.
objNewMail.Send '就是发送了。
Set objNewMail = Nothing '关闭对象.
---
这样可以解决吗!
我用的是虚拟空间,用的是搜狐的邮箱,代码如下,测试正常
'-----------------------------------------------------------
smtpid = "***"
'SMTP服务器登录用户名
smtpwd = "***"
'SMTP服务器登录密码
smtpurl = "smtp.sohu.com:25"
'邮件服务器地址
username="***"
'发件人
fromemail ="***@sohu.com"
'发件邮箱
Set JMail=Server.CreateObject("JMail.Message")
'字符集,缺省为"US-ASCII"
JMail.Charset="gb2312"
'开启错误码
jmail.silent = True
'使用日志
JMail.Logging=True
'以HTML格式发送邮件
JMail.ContentType = "text/html"
'SMTP服务器登录用户名
JMail.MailServerUserName = smtpid
'SMTP服务器登录密码
JMail.MailServerPassword = smtpwd
'发件人的邮件地址
JMail.From= fromemail
'发件人的姓名
JMail.FromName = username
'设定邮件的标题
JMail.Subject = topic
'信件正文
JMail.Body = mess
'设置邮件的收件人信箱
JMail.AddRecipient sendemail
'设置邮件的优先级(1-5,1为最高)
JMail.Priority=3
'执行邮件的发送
JMail.send(smtpurl)
JMail.Close()
Set JMail=nothing
'-----------------------------------------------
[此贴子已经被作者于2006-7-25 16:25:18编辑过]
你的服务器上必需得安装Jmail组件!