&lt;!--#include file=&quot;include/common.asp&quot;--&gt;<br>
&lt;!--#include file=&quot;include/func.asp&quot;--&gt;<br>
&lt;%<br>
last updated by recon on 05/14/2001<br>
on error resume next<br>
<br>
利用cdonts组件在win2k上发送邮件<br>
<br>
发送普通邮件<br>
sendmail &quot;admin@ny.com&quot;, &quot;iamchn@263.net&quot;, &quot;normal mail!&quot;, &quot;please check the attatchment!&quot;, 2, 0, &quot;c:\love.txt&quot;<br>
<br>
发送html邮件<br>
dim m_fso, m_tf<br>
dim m_strhtml<br>
<br>
set m_fso&nbsp;&nbsp;&nbsp;&nbsp;= server.createobject(&quot;scripting.filesystemobject&quot;)<br>
set m_tf&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= m_fso.opentextfile(&quot;c:\mail.htm&quot;, 1)<br>
m_strhtml = m_tf.readall<br>
<br>
write m_strhtml<br>
set m_tf&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= nothing<br>
set m_fso&nbsp;&nbsp;&nbsp;&nbsp;= nothing<br>
<br>
sendmail &quot;admin@ny.com&quot;, &quot;iamchn@263.net&quot;, &quot;html mail!&quot;, m_strhtml, 2, 1, null<br>
<br>
参数说明<br>
strfrom&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 发件人email<br>
strto&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 收件人email<br>
strsubject&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 信件主题<br>
strbody&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 信件正文<br>
lngimportance&nbsp;&nbsp;&nbsp;&nbsp;: 信件重要性<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 0 - 低重要性<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 0 - 中等重要性（默认）<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 0 - 高重要性<br>
lngatype&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 信件格式<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 为1时将邮件正文作为html（此时可以发送html邮件）<br>
strattach&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: 附件的路径<br>
sub sendmail(strfrom, strto, strsubject, strbody, lngimportance, lngatype, strattach)<br>
&nbsp;&nbsp;&nbsp;&nbsp;dim objmail<br>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;set objmail = server.createobject(&quot;cdonts.newmail&quot;)<br>
&nbsp;&nbsp;&nbsp;&nbsp;with objmail<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.from&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= strfrom<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.to&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= strto<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.subject&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= strsubject<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.body&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= strbody<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.importance&nbsp;&nbsp;&nbsp;&nbsp;= lngimportance<br>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if lngatype = 1 then<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.bodyformat&nbsp;&nbsp;&nbsp;&nbsp;= 0<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.mailformat&nbsp;&nbsp;&nbsp;&nbsp;= 0<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if isempty(strattach) = false and isnull(strattach) = false then<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.attachfile strattach<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.send<br>
&nbsp;&nbsp;&nbsp;&nbsp;end with<br>
&nbsp;&nbsp;&nbsp;&nbsp;set objmail = nothing<br>
end sub<br>
%&gt;
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!