用asp调用Mdaemon的MDUserCOM发邮件的小程序

tomning

asp网站要实现一个通过网页程序自动发邮件的功能，网站和MDaemon在同一台机器上。先后试验了Jmail、aspmail、CDONTS都不行，估计是跟在同一主机上的MD冲突，所以写了这个小东西直接用MD的MDUserCOM发邮件。<br>
希望有人能用得上。<br>
注意：IIS帐号对Mdaemon\RawFiles目录要有读取、写入和删除权限<br>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><br>
<% <br>
'send mail by Mdaemon MDUserCOM<br>
'Write by tomning 2005-03-30<br>
'tomning@msn.com<br>
'Win2K+sp4 MD7.2.3 test ok<br>
Option Explicit %><br>
<!-- METADATA TYPE="TypeLib" UUID="{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}" --><br>
<!--上面的METADATA好像是用于声明MDUserCOM常量的--><br>
<% <br>
Dim oMDUser,oMDInfo<br>
Set oMDUser = Server.CreateObject("MDUserCOM.MDUser")<br>
Set oMDInfo = Server.CreateObject("MDUserCOM.MDMessageInfo")<br>
If oMDUser.LoadUserDll() = True Then<br>oMDUser.InitMessageInfo oMDInfo '这句话一定要在最前面否则无法操作MDMessageInfo对象<br>With oMDInfo<br>.To="you@urdomain.com"<br>.From="asp@urdomain.com"<br>.Subject="由站点发来的邮件"<br>.MessageBody="这是邮件内容"&cstr(now())&"邮件由asp程序自动发送"<br>.ContentType="text/html"<br>.CharSet="gb2312"<br>.Priority=MD_PRECEDENCE_HIGH<br>'这个属性好像不起作用（个人感觉）<br>End With<br>if oMDUser.VerifyMessageInfo(oMDInfo)=MDDLLERR_NOERROR then <br>if oMDUser.SpoolMessage(oMDInfo)=MDDLLERR_NOERROR then <br>Response.Write("邮件发送成功")<br>else<br>Response.Write("邮件发送失败")<br>end if<br>else<br>Response.Write("邮件格式缺失")<br>End if<br>oMDUser.FreeUserDll<br>
end if<br>
<br>
Set oMDUser = Nothing<br>
Set oMDInfo = Nothing<br>%><br>
MDUserCOM发送邮件时还有许多其它功能，如发送附件，使用模板等等。在Mdaemon\docs\api\mdcom-api.html里面说的很清楚。<br>
上面程序在Win2K ADV+sp4 MD7.2.3测试通过，有兴趣的朋友可以加我QQ2341500<br>

tomning

MDMessageInfo对象属性<br>To - 收件人 String value, max length is MDUSERDLL_MAXMSGTO_LEN<br>From - 发件人 String value, max length is MDUSERDLL_MAXMSGFROM_LEN<br>Subject - 邮件主题 String value, max length is MDUSERDLL_MAXMSGSUBJECT_LEN<br>MessageBody - 邮件内容 String value, max length is MDUSERDLL_MAXMSGBODY_LEN<br>Priority - 优先级 Long value<br>