利用CDONTS发送邮件的ASP函数

&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;