email.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 19 行

<%
Sub SendAction(subject, mailaddress, email, sender, content, fromer, hjff, passnamef, passwordf)
set jmail=server.createobject("jmail.message")
jmail.charset="gb2312"
jmail.silent=true
jmail.addrecipient email
jmail.subject=subject
jmail.fromname = sender
jmail.from=fromer
jmail.appendtext "这是一封html格式的邮件"
jmail.appendhtml content
jmail.priority = hjff
jmail.MailServerUserName =passnamef
jmail.MailServerPassWord =passwordf
err=jmail.send(mailaddress)
jmail.close
set jmail=nothing 
End Sub
%>