asp+jmail发送邮件代码 - 个人学习记录

这个业务逻辑多少都有点奇怪了，阅读浏览次数增值在新闻详情页的控制器方法里setInc，这怎么还写进模型事件里了。如果非要用onAfterRead也可以，把新闻文章的内容单独分出来一个news_content表，然后把它和news做关联，然后给news_content表的onAfterRead事件做增值处理，这样点进新闻页内查询到文章内容时才会触发它。: 评 TP6模型事件-查询后onAfterRead不好用

文章标签更多

ThinkPHP (254)

Mysql (58)

DedeCms (33)

jQuery (67)

证件照 (1)

尺寸大小 (2)

背景颜色 (1)

setInc (4)

setDec (4)

onclick (5)

友情链接更多

超纯水设备

免费设计

海报设计

快递查询

jmail 发邮件

打开边栏(ESC) 关闭边栏(ESC)

发送邮件函数

'****************************************************
'参数说明  
  'MailAddress : 发件服务器的地址,如smtp.163.com
  'LoginName     ----登录用户名(不需要请填写"")
  'LoginPass     ----用户密码(不需要请填写"")
  'Subject     : 邮件标题
  'Email       : 收件人邮件地址
  'Sender      : 发件人姓名
  'Content     : 邮件内容
  'Fromer      : 发件人的邮件地址
'****************************************************
Sub SendMail(MailAddress, LoginName, LoginPass, Subject, Email, Sender, Content, Fromer)
	on error resume next
	Dim JMail
	  Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
		jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
		jmail.Charset = "gb2312" '邮件的文字编码为国标
		jmail.ContentType = "text/html" '邮件的格式为HTML格式
		jmail.AddRecipient Email '邮件收件人的地址
		jmail.From = Fromer '发件人的E-MAIL地址
		jmail.FromName = Sender
		  If LoginName <> "" And LoginPass <> "" Then
			JMail.MailServerUserName = LoginName '您的邮件服务器登录名
			JMail.MailServerPassword = LoginPass '登录密码
		  End If
	
		jmail.Subject = Subject '邮件的标题 
		JMail.Body = Content
		JMail.Priority = 1'邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
		jmail.Send(MailAddress) '执行邮件发送（通过邮件服务器地址）
		jmail.Close() '关闭对象
	Set JMail = Nothing
End Sub

使用代码

MailAddress = "smtp.163.com"
LoginName = "发件箱用户名" 'fajianxiang
LoginPass = "发件箱密码" '123456
Subject = "发件标题"
Email = "收件箱" 'shoujianxiang@163.com
Sender = "发件人" '张三
Content = "发件内容"
Fromer = "发件箱" 'fajianxiang@163.com
SendMail MailAddress, LoginName, LoginPass, Subject, Email, Sender, Content, Fromer

===========================

20180712

发邮件功能突然不能使用了，输出错误代码response.Write(jmail.ErrorCode)显示545，也没查出原因。

本来收件箱是qq邮箱，发送不了接收不了，把收件箱换成163邮箱，跟发件箱都是163邮箱，就正常了。

赏