sendmail.asp

来自「实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用」· ASP 代码 · 共 22 行

<%
	'创建JMail对象
	set msg = Server.CreateOBject( "JMail.Message" )
	'启用日志记录
	msg.Logging = true
	'设置邮件的编码
	msg.Charset = "gb2312"
	'邮件的发送人和姓名
	msg.From = "[e-mail]"
	msg.FromName = "张三"
	'添加邮件接收人
	msg.AddRecipient "[e-mail]", "咨询" 
	'邮件主题
	msg.Subject = "关于ASP问题咨询！"
	msg.Body = "邮件测试！"
	If Not msg.Send ( "zhangsan109:[e-mail]" ) Then
		Response.Write("<pre>" & msg.log & "</pre>")
	Else
		Response.Write("邮件发送成功")
	End If
%>