首页 » 建站技术 » 浏览内容

CDONTS组件的Asp发邮件函数


2006-03-11 11:19:36 8,637 0 发表评论 字体: 作者:C.K.

体验版 88 元,个人版 128 元,多用户版 288元个人版160元升级到多用户版。

From:http://bijia.anyflex.cn/article.asp?id=273

\'参数说明
\'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

    网站统计 Statistics

    • 创建时间: 2005年1月3日 距今4799 天
    • 日志总数: 2461
    • 评论总数: 630
    • 标签总数: 654
    • 链接总数: 273
    • 最后更新: 2017-7-1 18:16:33
    • 您是本站第 13290311 位访客

    广告区 Guǎng Gào