CDONTS组件的Asp发邮件函数

林继 VPS 知识 8,960 共写了684个字 (2006-03-11 11:19:36) 没有评论 打印 扫描二维码 百度未收录

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

如果觉得我的文章对您有用,请随意赞赏。您的支持将鼓励我继续创作!

发表评论

电子邮件地址不会被公开。 必填项已用*标注

< >