支付方式  联系我们   网站地图       
首页 关于域浪 互联网数据中心业务、主机托管、主机租用、机架租用、带宽租用、机房介绍、机房对比、CCN网络加速 adsl专线、深圳adsl专线 虚拟主机、域名注册、数据库、企业邮局、动态域名 网络安全、网络临近平台、安全服务、防火去墙租用、安全产品、域浪抗DDOS防火墙、NetScreen防火墙 技术支持  
   当前位置:首页 >> 技术支持 >> 虚拟主机常见问题 >> Jmail 发送邮件的例子1
 
精华文章
    Oracle数据库管理脚本...  
    什么是URL转发?  
    虚拟主机相关知识 FAQ  
    Windows 2003操作系统...  
    虚拟主机常见错误和解...  
    什么是智能双线虚拟主...  
    网站因非法信息被管理...  
    名词解释:虚拟主机  
    如何查看网站无法访问...  
    当您的主机无法访问时...  
    为什么我绑定了一个域...  
    域名未生效前如何访问...  
    网站备案常见问题解答...  
    我们租用你们的空间后...  
    虚拟主机相关基础知识  
    虚拟主机出错问题集锦  
    网站报错案例分析(一...  
    网站备案的流程是什么...  
    ftp常见错误问题集锦  
    虚拟主机出错问题  
    服务器托管与虚拟主机...  
    虚拟主机出现无法访问...  
    如何修改目录权限?  
    访问网站出现Director...  
    域浪网络提供的功能组...  
    我的流量不够用,能否...  
    Jmail 发送邮件的例子...  
    Jmail 发送邮件的例子...  
  更多>>  
   虚拟主机常见问题
 Jmail 发送邮件的例子1
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">



<%if request("action")="send" then%>

<%



'参数说明

'Subject : 邮件标题

'MailAddress : 发件服务器的地址,如smtp.163.com

'Email : 收件人邮件地址

'Sender : 发件人姓名

'Content : 邮件内容

'Fromer : 发件人的邮件地址



Sub SendAction(subject, email, sender, content) 

 Set JMail = Server.CreateObject("JMail.Message") 

 JMail.Charset = "gb2312" ' 邮件字符集,默认为"US-ASCII"

 JMail.From = strMailUser ' 发送者地址

 JMail.FromName = sender' 发送者姓名

 JMail.Subject =subject

 JMail.MailServerUserName = strMailUser' 身份验证的用户名

 JMail.MailServerPassword = strMailPass ' 身份验证的密码

 JMail.Priority = 3

 JMail.AddRecipient(email)

 JMail.Body = content

 JMail.Send(strMailAddress)

End Sub



'调用此Sub的例子

Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer

strSubject = Request("title")

strContent = "用户Email:" & Request("From") & VbCrLf & "电话:" & Request("Tel") & VbCrLf & "内容:" & vbcrlf & Request("content")

strSender  = Request("Name")

strEmail = "anybody@163.com" '这是收信的地址,可以改为其它的邮箱

strMailAddress = "mail.yourdomain.com" '我司企业邮局地址,请使用 mail.您的域名

strMailUser  = "user@yourdomain.com" '我司企业邮局用户名

strMailPass  = "mailpassword" '邮局用户密码



Call SendAction (strSubject,strEmail,strSender,strContent)

%> 

<script language="javascript">

alert('恭喜您,发送成功!');

history.back();

</script>



<%else%>

<style type="text/css">

<!--body { margin-top: 0px;margin-bottom: 0px;}td {

 font-size: 12px;

 text-decoration: none;}--></style>

<table width="500" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">

<tr><td height="40" bgcolor="#E3E3E3"><div align="center">发邮件给我们</div></td></tr>

<tr><td background="images/formmail_r2_c1.gif"><table width="100%" height="296" border="0" align="center" cellpadding="1" cellspacing="1">

<form name="form" method="post" action="?action=send">

<tr bgcolor="#FFFFFF">

<td width="110" align="center"><div align="left">邮件主题(title)*</div></td>

<td width="288"><input name="title" type="text" id="title" size="22">

姓名(name)

<input name="name" type="text" id="name" size="8">

</td>

</tr>

<tr bgcolor="#FFFFFF">

<td align="center"><div align="left">你的邮箱(mailaddress)*</div></td>

<td><input name="from" type="text" id="from" size="22">

电话(tel)

<input name="tel" type="text" id="tel" size="15"></td>

</tr>

<tr bgcolor="#FFFFFF">

<td height="213" align="center"><div align="left">内容(content):*<br>

</div></td>

<td><textarea name="content" cols="50" rows="15"></textarea></td>

</tr>

<tr bgcolor="#FFFFFF">

<td> </td>

<td> <input type="submit" name="Submit" value="提交"></td></tr></form></table></td>

</tr></table>

<%end if%> 



  • 上一篇文章: 我的流量不够用,能否只升级流量,不升级空间呢?
  • 下一篇文章: Jmail 发送邮件的例子2
  • 深圳地址:深圳市罗湖区宝安北路国际商品交易大厦七楼C30室
    Tel:0755-82266883/82267566 Fax:0755-82261966
    邮编:518000 
                        Copyright © 2006-2008 elang.cn All Rights Reserved 深圳市域浪网络技术有限公司版权所有