求救~ 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这个文件夹,还请教高人点拨下,我还应该做哪些操作或者代码该怎么修改,才能完成这个功能。