邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: 用asp调用Mdaemon的MDUserCOM发邮件的小程序 [打印本页]

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

作者: tomning 时间: 2005-3-30 15:54
标题: re:MDMessageInfo对象属性...
MDMessageInfo对象属性 To - 收件人 String value, max length is MDUSERDLL_MAXMSGTO_LEN From - 发件人 String value, max length is MDUSERDLL_MAXMSGFROM_LEN Subject - 邮件主题 String value, max length is MDUSERDLL_MAXMSGSUBJECT_LEN MessageBody - 邮件内容 String value, max length is MDUSERDLL_MAXMSGBODY_LEN Priority - 优先级 Long value

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.cn/)