Asp+Jmail:制作邮件发送程序完整范例
2007-02-10 11:54
435 查看
一. 表单mail.htm,首先要保证服务器空间那方装有JMAIL组件,并提供该业务
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>mail</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#ddfcdc"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#ddfcdc">
<form method="post" action="sendmail.asp">
请填写以下资料并按寄出键即可 <br>
<br>
姓 名:
<input type="text" size="20" name="name">
<font color="#FF0000">*</font><br><br>
电子邮件: <input type="text" size="20" name="email">
<font color="#FF0000">*</font><br><br>
联系方式:
<input type="text" size="40" name="other"><br><br>
主 题:
<input type="text" size="40" name="subject">
<br><br>
正 文 <br>
<textarea name="body" cols="50" rows="12" wrap="PHYSICAL"></textarea>
<font color="#FF0000">*</font><br>
<input type="submit" value="寄出">
</form></td>
</tr>
</table>
</body>
</html>
(二)通过JMAIL发送E-mail程序:sendmail.asp
<%@LANGUAGE = VBSCRIPT%>
<html>
<body>
<%recipient = "info@123.com" '此为收信人电子邮箱
' 取得表单资料
name = Request.Form("name")
senderEmail = Request.Form("email")
other=request.Form("other")
subject = "Re:" & Request.Form("subject")
body = Request.Form("body")
if name <> "" and senderEmail <> "" and body<>"" then
' 建立 JMail 组件
set msg = Server.CreateOBject( "JMail.Message" )
' 设定将寄信的过程记录下来
msg.Logging = true
msg.silent = true
' 中文编码设定
msg.Charset = "gb2312"
' 将表单资料存入组件中
msg.From = senderEmail
msg.FromName = name
' smtp认证的关键
msg.mailserverusername="info@123.com" ‘邮箱账户,需完整地址
msg.mailserverpassword="password" '输入你的邮箱密码
' 将收信人的资料加入组件
msg.AddRecipient recipient
' 设定信件的主题
msg.Subject = subject
' 设定信件的主体内容
msg.body = body & vbcrlf & vbcrlf & "其他联系方式:" & other
' 送出表单资料为电子邮件 ,并指定发信服务器 SMTP
if not msg.Send("mail.123.com" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "信件成功寄出,谢谢您的留言!!"
Response.write "<a href=javascript:history.go(-1)>返回</a>"
end if
msg.Close
set msg=nothing
else
response.write "请将内容填写完整!!"
end if
%>
</body>
</html>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>mail</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#ddfcdc"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#ddfcdc">
<form method="post" action="sendmail.asp">
请填写以下资料并按寄出键即可 <br>
<br>
姓 名:
<input type="text" size="20" name="name">
<font color="#FF0000">*</font><br><br>
电子邮件: <input type="text" size="20" name="email">
<font color="#FF0000">*</font><br><br>
联系方式:
<input type="text" size="40" name="other"><br><br>
主 题:
<input type="text" size="40" name="subject">
<br><br>
正 文 <br>
<textarea name="body" cols="50" rows="12" wrap="PHYSICAL"></textarea>
<font color="#FF0000">*</font><br>
<input type="submit" value="寄出">
</form></td>
</tr>
</table>
</body>
</html>
(二)通过JMAIL发送E-mail程序:sendmail.asp
<%@LANGUAGE = VBSCRIPT%>
<html>
<body>
<%recipient = "info@123.com" '此为收信人电子邮箱
' 取得表单资料
name = Request.Form("name")
senderEmail = Request.Form("email")
other=request.Form("other")
subject = "Re:" & Request.Form("subject")
body = Request.Form("body")
if name <> "" and senderEmail <> "" and body<>"" then
' 建立 JMail 组件
set msg = Server.CreateOBject( "JMail.Message" )
' 设定将寄信的过程记录下来
msg.Logging = true
msg.silent = true
' 中文编码设定
msg.Charset = "gb2312"
' 将表单资料存入组件中
msg.From = senderEmail
msg.FromName = name
' smtp认证的关键
msg.mailserverusername="info@123.com" ‘邮箱账户,需完整地址
msg.mailserverpassword="password" '输入你的邮箱密码
' 将收信人的资料加入组件
msg.AddRecipient recipient
' 设定信件的主题
msg.Subject = subject
' 设定信件的主体内容
msg.body = body & vbcrlf & vbcrlf & "其他联系方式:" & other
' 送出表单资料为电子邮件 ,并指定发信服务器 SMTP
if not msg.Send("mail.123.com" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "信件成功寄出,谢谢您的留言!!"
Response.write "<a href=javascript:history.go(-1)>返回</a>"
end if
msg.Close
set msg=nothing
else
response.write "请将内容填写完整!!"
end if
%>
</body>
</html>
相关文章推荐
- 用Jmail实现ASP程序自动发送邮件
- asp.net 利用JMAIL发送邮件
- ASP用JMail、CDO发送邮件
- 简单的ASP.Net邮件发送程序(一)
- 超完整ASP程序自动生成HTML文件教学范例
- ASP.Net环境下使用Jmail组件发送邮件
- asp定时自动查询自己的外网ip并发送到邮箱【邮件的使用的组件是jmail】
- asp使用JMAIL发送SMTP邮件超过10条就失败原因查询
- ASP中使用jmail发送邮件的函数
- ASP.Net环境下使用Jmail组件发送邮件
- ASP CDO.Message 发送邮件完整实例 By shawl.qiu
- ASP用JMail、CDO发送邮件
- ASP.Net环境下使用Jmail组件发送邮件
- ASP.Net环境下使用Jmail组件发送邮件
- System.Web.Mail.MailMessage邮件发送程序(asp.net)
- ASP.Net环境下使用Jmail组件发送邮件
- 邮件发送控件jmail使用方法之ASP.NET示例
- asp Jmail发送邮件
- asp.net jmail发送邮件代码
- ASP.NET(Web网站开发),简单邮件发送的制作