长春市政协:JMAIL发送邮件问题

来源:百度文库 编辑:高校问答 时间:2024/04/29 01:05:15
tlhf1="tlhf@tlhf.net"
tlhf2="asdfasdfasd"
tlhf3="mail.tlhf.net" set msg=Server.CreateObject("jmail.message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.contentType = "text/html"
msg.MailServerUserName = tlhf1 '输入smtp服务器验证登陆名 (邮局中任何一个用户的Email地址)
msg.MailServerPassword = tlhf2 '输入smtp服务器验证密码 (用户Email帐号对应的密码)
msg.From = tlhf1 '发件人Email
msg.FromName = "铜陵何飞 系统邮件 --请求解除IP锁定" '发件人姓名
msg.AddRecipient "dfasd@d.com" '收件人Email
msg.Subject = ":请求解除对铜陵何飞V3的访问限制" '信件主题
msg.Body = "'>EMAIL:tlhf@tlhf.net" '正文
msg.Send (tlhf3) 'smtp服务器地址(企业邮局地址)
set msg = nothing

我在线测试怎么也不行,请高手解答JMAIL发送人EMAIL和密码及邮局地址必须要是字符串,我先定义下他们的值难道不可以么。。。

如果我用下面就可以发送成功!看
set msg=Server.CreateObject("jmail.message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.contentType = "text/html"
msg.MailServerUserName = "adsf@tlhf.net" '输入smtp服务器验证登陆名 (邮局中任何一个用户的Email地址)
msg.MailServerPassword = "asdfasdf" '输入smtp服务器验证密码 (用户Email帐号对应的密码)
msg.From = "asdfasd@tlhf.net" '发件人Email
msg.FromName = "铜陵何飞 系统邮件 --请求解除IP锁定" '发件人姓名
msg.AddRecipient "tlhf@tlhf.net" '收件人Email
msg.Subject = ":请求解除对铜陵何飞V3的访问限制" '信件主题
msg.Body = "'>匿名用户:<p>此邮件发送系统由<a href='http://www.tlhf.n<font color='#dc143c'>匿名用户:<p>此邮件发送系统由<a href='http://www.tlhf.n<font color='#dc143c'>匿名用户:<p>此邮件发送系统由<a href='http://www.tlhf.n<font color='#dc143c'>匿名用户:<p>此邮件发送系统由<a href='http://www.tlhf.n<font color='#dc143c'>匿名用户:<p>此邮件发送系统由<a href='http://www.tlhf.n<font color='#dc143c'>匿名用户:<p>此邮件发送系统由<a href='http://www.tlhf.n<font color='#dc143c'>匿名用户:<p>此邮件发送系统由<a href='http://www.tlhf.n<font color='#dc143c'>匿名用户:<p>此邮件发送系统由<a href='http://www.tlhf.net' target='_blank'>铜陵何飞</a>设计制作 QQ:47749564 EMAIL:tlhf@tlhf.net" '正文
msg.Send ("mail.tlhf.net") 'smtp服务器地址(企业邮局地址)
set msg = nothing
就是说在SMTP服务器和企业邮局地址那可以是变量么?必须要常量?

我有个很好的办法,就是把你上面这些代码放在一个函数中。
函数参数可以是(寄信人邮箱,收信人邮箱,密码,用户名,主题,正文,附件)
这样只要调用函数就可以了,完全实现了任何人给任何用户发信的效果。我试过了,可以行得通,呵呵。
这样得话,SMTP服务器也可以作为变量了。当然,你得再之前做个页面,提交这些信息。