可发附件的jmal邮件.asp

来自「较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.」· ASP 代码 · 共 54 行

ASP
54
字号
<%
on error resume next
dim body
body=""
body=body&"==========下面是你的个人注册资料==========<br>"
body=body&"邮编:<br>sdfkasdl<br>fsdafkasdlfskladfkasdf "
body=body&"dslkfjaskldfjlas<br>dkjflkasdjflka<Br>sdjlfkjasdklf"


fname=server.mappath("p.rar")
'也可直接写fname="c:\p.rar"





Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = true 
jmail.logging = true
'Charset = "Unicode"
'jmail.Charset = "GB2312"
'jmail.ContentType = "text/html"
jmail.AddRecipient "pri@cqcm.net"

jmail.From = "pri@cqcm.net" 
jmail.FromName = "蒋政"
jmail.MailServerUserName = "pri@cqcm.net"
jmail.MailServerPassword = "pri"
jmail.Subject = "附件测试,请暂勿删除"

jmail.AddAttachment fname

'jmail.HTMLBody = "<html><head><<I>meta</I> content=zh-cn http-equiv=Content-Language><<I>meta</I> http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body bgcolor=""#FFFFFF"" text=""#666666"" leftmargin=""0"" topmargin=""30"" link=""#FF9900""><center>点击这里<a href=' cid:" & contentId & "' >[附件文件]</a>将文件保存</center></body></html>" 


jmail.HTMLBody = body
jmail.Priority = 1
jmail.Send("cqcm.net") 
jmail.Close()




if err.number<>0 then 
   response.write err.description
   err.clear
else
   response.write "mail is sending"
end if


%>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?