求救~ ASP用MDaemon发邮件

猜我是几娃 2010-04-29 12:23:05
服务器装的是MDaemon,现在要用ASP完成自动发邮件的功能,找了个代码:
Set oMDUser = Server.CreateObject("MDUserCOM.MDUser")
Set oMDMessageInfo = Server.CreateObject("MDUserCOM.MDMessageInfo")
If oMDUser.LoadUserDll() = True Then
' 初始化对象
oMDUser.InitMessageInfo(oMDMessageInfo)
' 给邮件字段赋值
oMDMessageInfo.To = ReceiveEmail
oMDMessageInfo.From = SendEmail
oMDMessageInfo.Subject = sSubject
oMDMessageInfo.MessageBody = mailcontent
oMDMessageInfo.ContentType = sContentType
oMDMessageInfo.CharSet = sCharSet

' 试图发送邮件
nResult = oMDUser.SpoolMessage (oMDMessageInfo)

' 检查返回信息
Select Case nResult
Case MDDLLERR_MISSINGRAWPATH
sMessage = "未能从MDaemon.ini文件中获得RAWFILES路径!"
Case MDDLLERR_CANTGENRAWFILENAME
sMessage = "未能创建邮件的新文件名!"
Case MDDLLERR_CANTLOCKRAWFILE
sMessage = "新文件文能锁定!"
Case MDDLLERR_CANTCREATERAWFILE
sMessage = "未能创建新邮件文件"
Case MDDLLERR_CANTACCESSBODYFILE
sMessage = "未能存取在MessageInfo中指定的信体文件!"
case Else
sMessage = "成功发送给 - " & ReceiveEmail & " 状态码=" & nResult
End Select

' 释放动态连接库
oMDUser.FreeUserDll
Else
' 未能加载动态连接库!
sMessage = "错误: 未能加载动态连接库MDUserCOM.dll!"
End If

response.Write sMessage

Set oMDUser = Nothing
Set oMDMessageInfo = Nothing

报“未能从MDaemon.ini文件中获得RAWFILES路径”的错误,我在整个MDaemon安装目录下没有找到RAWFILES这个文件夹,还请教高人点拨下,我还应该做哪些操作或者代码该怎么修改,才能完成这个功能。
...全文
111 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
mrshelly 2010-05-03
  • 打赏
  • 举报
回复
试试把你的
MDaemon.ini 文件复制到你的ASP文件夹下试试.
猜我是几娃 2010-05-03
  • 打赏
  • 举报
回复
晕菜,关注了几天,没一点消息。。。
猜我是几娃 2010-05-03
  • 打赏
  • 举报
回复
没用。。。。。

算了。。。散分了。。。回复有分!!
猜我是几娃 2010-05-01
  • 打赏
  • 举报
回复
这个问题这么难吗.......郁闷了
猜我是几娃 2010-04-30
  • 打赏
  • 举报
回复
难道没人用过吗。。。。。继续等待

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧