欢迎您登陆并使用中国财税咨询中心为您免费提供的资料，交流，学习为一体的平台！

如果您在使用中遇到什么问题，请您不要吝啬，一定要写信给我们！！

Email:Shellapi@126.com 期待您的来信，或指导批语！

帮助内难免有收集的资料，如果侵犯了您的仅力，请您来信告知，我们马上删除或更新处理！

文章搜索--请输入关键词：

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