| 本月文章推荐 |
利用CDONTS发送邮件的ASP函数发表日期：2001-5-16
|
|
<%
'Last Updated By Recon On 05/14/2001 'On Error Resume Next '利用CDONTS组件在Win2k上发送邮件 '发送普通邮件 SendMail "admin@ny.com", "iamchn@263.net", "Normal Mail!", "Please check the attatchment!", 2, 0, "C:\Love.txt" '发送HTML邮件 Dim m_fso, m_tf Dim m_strHTML Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT") Set m_tf = m_fso.OpenTextFile("C:\Mail.htm", 1) m_strHTML = m_tf.ReadAll 'Write m_strHTML Set m_tf = Nothing Set m_fso = Nothing SendMail "admin@ny.com", "iamchn@263.net", "HTML Mail!", m_strHTML, 2, 1, Null '参数说明 'strFrom : 发件人Email 'strTo : 收件人Email 'strSubject : 信件主题 'strBody : 信件正文 'lngImportance : 信件重要性 ' : 0 - 低重要性 ' : 0 - 中等重要性（默认） ' : 0 - 高重要性 'lngAType : 信件格式 ' : 为1时将邮件正文作为HTML（此时可以发送HTML邮件） 'strAttach : 附件的路径 Sub SendMail(strFrom, strTo, strSubject, strBody, lngImportance, lngAType, strAttach) Dim objMail Set objMail = Server.CreateObject("CDONTS.NEWMAIL") With objMail .From = strFrom .To = strTo .Subject = strSubject .Body = strBody .Importance = lngImportance If lngAType = 1 Then .BodyFormat = 0 .MailFormat = 0 End If If IsEmpty(strAttach) = False And IsNull(strAttach) = False Then .AttachFile strAttach End If .Send End With Set objMail = Nothing End Sub %> |
| 上一篇：用asp.net写的论坛程序--上贴保存
人气:10779 下一篇：资料验证的asp.net程序 人气:10108 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
