|
|
主题: 关于CDO.Message在线邮寄问题（指定SMTP）！
|
我哭了
职务：普通成员
等级：1
金币：0.0
发贴：148
|
#12004/10/26 18:34:23
问题已解决，谢谢
编辑历史:[此帖最近一次被 icry5 编辑过(编辑时间:2004-10-29 17:57:23)]
|
蓝鲸
职务：版主
等级：5
金币：42.1
发贴：2614
|
#22004/10/26 20:38:18
邮件组件的试用，确实需要一定的实践。如果在本机试用，本机内需要安装支持的组件，另外需要配置一下邮件服务器。有点麻烦。如果在其它空间上试用，首先该空间也要支持，一些空间设置了身份验证，需要在发送的语句上加上身份验证的代码。该组件没用过，最好能网上找些相关的资料，或从开发公司网站上下一些帮助文档。确实需要一定耐心，一个很简单的使用，往往要经过反复试验。建议，在已经配置的空间上验证代码的正确性，然后再配置服务器。
非常大鱼
|
我哭了
职务：普通成员
等级：1
金币：0.0
发贴：148
|
#32004/10/26 23:32:59
谢谢蓝鲸兄的帮助！！我把文件传到了自己的空间上，试验了也还是一样！ 地址： http://www.icry5.com/guestbook/sendpass1.asp我从网上也找到了一段类似的代码，也是利用CDO.Message作在线寄信，不同的是它加上了身份验证的代码，经过在自己的机器上（XP Pro）测试通过。所以我感觉自己作的应该没有问题，估计问题可能是出在身份验证上吧。哎，不过又不知道怎样加上这个身份验证。。。。或者要不就找到一个不用验证身份的SMTP服务器。 如果哪位高手知道的话，希望能指点小弟。谢谢
|
蓝鲸
职务：版主
等级：5
金币：42.1
发贴：2614
|
#42004/10/27 0:48:56
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
用以判断是否支持组件，现在JMAIL支持很多的，你可以写个函数，如果支持那个，就用那个组件发Email。
Jmail发件函数供参考
function SendEmail()
on error resume next
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.ContentType = "text/html"
msg.MailServerUserName = "webmaster@hellosea.com"
msg.MailServerPassword = "123456"
msg.From = "webmaster@hellosea.com"
msg.FromName = "东海龙宫"
msg.AddRecipient arrSendSite(i)
msg.Subject = strSubject
if foot then
msg.Body = strBody & strFootHtml
else
msg.Body = strBody
end if
msg.Send ("mail.hellosea.com")
set msg = nothing
on error goto 0
end function
非常大鱼
|
蓝鲸
职务：版主
等级：5
金币：42.1
发贴：2614
|
#52004/10/27 0:51:23
非常大鱼
|
