出没于网 - JMail 邮件收发实例

表单页面------------index.htm
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>－－发送邮件－－</title><style>
td{font-size:9pt;line-height:120%;color:#353535}
body{font-size:9pt;line-height:120%} a:link          { color: #000000; text-decoration: none }
a:visited       { color: #000000; text-decoration: none }
a:active        { color: #000000; text-decoration: none }
a:hover         { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
</head><body>
<form method="POST" action="mail.asp">
<p>收件人：<input type="text" name="namemail" size="38"><br>
    主　题：<input type="text" name="subjectmail" size="47"></p>
<p>内  容：<textarea rows="11" name="contentmail" cols="46"></textarea></p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form></body></html>

邮件发送页面------------mail.asp

<%
On error resume next
Dim JMail, contentId

Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
' 发送者信息（可用变量方式赋值）
JMail.From = "anyshopping@163.com" ' 发送者地址
JMail.FromName = "agang" ' 发送者姓名
JMail.Subject =trim(Request.Form("subjectmail")) ' 邮件主题
' 身份验证
JMail.MailServerUserName = "anyshopping" ' 身份验证的用户名
JMail.MailServerPassword = "123qwert" ' 身份验证的密码
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient(trim(Request.Form("namemail")))
' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)
' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody =Server.HTMLEncode(trim(Request.Form("contentmail")))
' 邮件主体（文本部分）
JMail.Body = "Anyshop.com.cn--全球最大的品牌购物网站！"
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("SMTP.163.COM")
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
if err.number<>0 then
response.write "邮件发送失败！"
else
response.write "邮件发送成功！"
end if
%>

或：
CHAR.INC文件

<%
function htmlencode(str)
    dim result
    dim l
    if isNULL(str) then
       htmlencode=""
       exit function
    end if
    l=len(str)
    result=""
dim i
for i = 1 to l
     select case mid(str,i,1)
            case "<"
                 result=result+"<"
            case ">"
                 result=result+">"
              case chr(13)
                 result=result+"<br>"
            case chr(34)
                 result=result+"""
            case "&"
                 result=result+"&"
              case chr(32)
                 'result=result+" "
                 if i+1<=l and i-1>0 then
                    if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
                       result=result+" "
                    else
                       result=result+" "
                    end if
                 else
                    result=result+" "
                 end if
            case chr(9)
                 result=result+"    "
            case else
                 result=result+mid(str,i,1)
         end select
       next
       htmlencode=result
   end function
%>
-------------------------------------------------------------------------------------------------------------

<%
On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
' 发送者信息（可用变量方式赋值）
JMail.From = "anyshopping@163.com" ' 发送者地址
JMail.FromName = "agang" ' 发送者姓名
JMail.Subject =trim(Request.Form("subjectmail")) ' 邮件主题
' 身份验证
JMail.MailServerUserName = "anyshopping" ' 身份验证的用户名
JMail.MailServerPassword = "123qwert" ' 身份验证的密码
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient(trim(Request.Form("namemail")))
' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)
' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody =HTMLEncode(trim(Request.Form("contentmail")))
' 邮件主体（文本部分）
JMail.Body = "Anyshop.com.cn--全球最大的品牌购物网站！"
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("SMTP.163.COM")
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
if err.number<>0 then
response.write "邮件发送失败！"
else
response.write "邮件发送成功！"
end if
%>

---------------------------------------------------------------------------------------------------------------------
加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个，如：
JMail.AddRecipient("anyshop@126.com")
JMail.AddRecipient("anyshop@sohu.com")
JMail.AddRecipient("anyshop@sina.com")

----------------------------------------------------------------------------------------------------------------------

HTMLEncode
HTMLEncode 方法对指定的字符串应用 HTML 编码。

语法
Server.HTMLEncode( string )

参数
string
指定要编码的字符串。
示例
脚本

<%= Server.HTMLEncode("The paragraph tag: <P>") %>

输出

The paragraph tag: <P>

注意以上输出将被 Web 浏览器显示为

The paragraph tag: <P>

[本日志由 agang 于 2006-04-25 编辑]

引用通告地址 (0)：
复制引用地址

http://blog.goldtimes.net/trackback.asp?tbID=47
复制引用地址

http://blog.goldtimes.net/trackback.asp?tbID=47&CP=GBK

	出没于网 Goldtimes.net 互联网重回黄金时代!	国内唯一诚信、实用、合法的网络赚钱指南网站
	日志首页 \| 互联网 \| 技术新知 \| Goldtimes \| Linux \| .NET \| JavaScript \| AJAX \| ASP \| MSSql \| PHP \| MySql \| Flash \| 收藏 \| 站长手记