最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp使用jmail 发邮件代码
时间:2008-07-07 编辑:简简单单 来源:一聚教程网
要用jmail 组件后才能使用哦.
Sub Jmail(email,topic,mailbody)
On Error Resume Next
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.silent=True
JMail.Logging=True
JMail.Charset="gb2312"
If Not(Newasp.MailUserName = "" Or Newasp.MailPassword = "") Then
JMail.MailServerUserName = Newasp.MailUserName '您的邮件服务器登录名
JMail.MailServerPassword = Newasp.MailPassword '登录密码
End If
JMail.ContentType = "text/html"
JMail.Priority = 1
JMail.MailDomain = "govery.cn"
JMail.From = Newasp.MailFrom '邮件地址
JMail.FromName = Newasp.SiteName '网站名称
JMail.AddRecipient email
JMail.Subject = topic
JMail.Body = mailbody
If Err <> 0 Then
SendMail="False"
Else
JMail.Send (Newasp.MailServer) '发邮件服务器地址
JMail.ClearRecipients()
If Err <> 0 Then
SendMail="False"
Else
SendMail="OK"
End If
End If
Set JMail=nothing
End Sub
-
上一个: asp读取图片或flash高宽
-
下一个: asp各种发送邮件功能代码
相关文章
- ASP+SMTP完成邮件群发功能 01-18
- 使用asp实现支持附件的邮件系统(三) 01-18
- 使用asp实现支持附件的邮件系统(二) 01-12
- 利用ASP+JMAIL进行邮件群发的新思路 01-12
- 使用ASP+jmail进行邮件群发 01-12
- 使用asp实现支持附件的邮件系统 01-12