JMAIL使用

最新推荐文章于 2013-11-20 16:20:54 发布
最新推荐文章于 2013-11-20 16:20:54 发布
阅读量754 收藏 1
点赞数
分类专栏： ASP.NET 文章标签： vbscript email 服务器 asp .net html
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zhaoqiliang527/article/details/4390007
版权

1.首先要注册JMAIL组件，可以到JMAIL官方网站（www.dimac.net）下载，并安装！

2.


<%   
  set   Jmail=server.CreateObject("jmail.message")     
          Jmail.MailServerPassWord   ="XXXXXXX"                 '发信授权邮件密码   
          Jmail.MailServerUserName   ="XXXXXXX@163.com"   '发信授权邮件名称  
          Jmail.silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值j
          Jmail.logging = true   '启用邮件日志 
          Jmail.ContentType   =   "text/html"               '(是否支持html,如不要就去掉此行)   
          Jmail.Charset="gb2312"                                 '使用字符集,不用改的   
          Jmail.AddRecipient   "291099657@qq.com"         '收件人邮箱  
                                                           'jmail.addrecipient "somebody@somewhere.com"  '这个地址是真正要发送的地址这样就可以绕开smtp验证了 
   
          Jmail.Body=   "您好!我是XX"                               '邮件正文   
          Jmail.From="XXX@163.com"             '发件人邮箱   
          '这个最怪了，如果用一个随便的字符有时就不行。不知怎么回事。     
          Jmail.Priority  = 1      '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
          Jmail.ReturnReceipt = True   
          Jmail.Subject=".NET钉子户"                               '邮件标题   
          Jmail.Send   "smtp.163.com",false               '邮件发送服务器   
    
    if not Jmail.Send(smtpServer) then
     mailError = "<pre>" & Jmail.log & "</pre>"
     response.Write mailError
    end if
  set   Jmail   =   nothing  
  response.Write"<script>alert('发送结束');history.go(-1);</script>"    
  %>   

 

3.注：可以自己发给自己，即一个邮箱既可以做发件箱，也可作收件箱

4.提取表单中的数据，再发送到邮箱


<%@LANGUAGE="VBSCRIPT"   CODEPAGE="CP_ACP"%>   
  <%   
      xqname=request.Form("xqName")   
      who=request.Form("who")   
      phone=request.Form("phone")   
      myTime=request.Form("mytime")   
      email=request.Form("email")   
        
        
  senderEmail="idc@ruyi.com"   '发送人邮箱   
    
  subject="联通宽带在线申请"   '标题   
    
  body="<html><table><tr><td>"   
  body=body&"联通宽带在线申请！<br>"   
  body=body&"所在小区："&   xqname   &   "<br>"   
  body=body&"联系人："&   who   &   "<br>"   
  body=body&"联系电话："&   phone   &   "<br>"   
  body=body&"预约安装时间："&   myTime   &   "<br>"   
  body=body&"电子邮箱："&   email   &   "<br>"   
  body=body&"<br>"   
  body=body&"</td></tr></table></html>"   
  '   Create   the   JMail   message   Object   
  set   msg   =   Server.CreateOBject("JMail.Message")   
    
  msg.Charset   =   "GB2312"   '邮件的文字编码为国标   
  msg.ContentType   =   "text/html"   
  '   Set   logging   to   true   to   ease   any   potential   debugging   
  '   And   set   silent   to   true   as   we   wish   to   handle   our   errors   ourself   
  msg.MailServerUserName   =   用户名   
  msg.MailServerPassword   =   密码   
  msg.Logging   =   true   
  msg.silent   =   true   
    
  '   Enter   the   sender   data   
  msg.From   =   senderEmail   
  msg.FromName   =   "山东联通"   
    
  '   Note   that   as   addRecipient   is   method   and   not   
    
  msg.AddRecipient   "asp@i-smile.net"   '   收件人地址   
  'msg.AddRecipientBCC   "pub@ruyi.com"   
    
  '   The   subject   of   the   message   
  msg.Subject   =   subject   
    
  '   And   the   body   
  msg.body   =   body   
  '   Now   send   the   message,   using   the   indicated   mailserver   
  if   not   msg.Send("smtp.ruyi.com")   then   
          Response.write   "<pre>"   &   msg.log   &   "</pre>"   
  'response.Write(msg.ErrorSource)   
  end   if   
  msg.close   
  set   msg=nothing   
  response.Redirect("sendok.htm")   
  %>   
  

 

5..邮件接收系统。这个例子的执行过程，首先是从存放邮件的服务器上取出邮件，然后把它同附件一起显示在WEB也面上。


<% @LANGUAGE=VBSCRIPT %>
<% 
Set pJmail = Server.CreateObject( "JMail.POP3" )
pJmail.Connect "username", "password", "mail.mydomain.com"
Response.Write( "你有 " & pJmail.count & " 封新邮件<br><br>" )
if pJmail.count > 0 then
Set msg = pJmail.Messages.item(1) 
ReTo = ""
ReCC = ""
Set Recipients = msg.Recipients
separator = ", "
For i = 0 To Recipients.Count - 1
If i = Recipients.Count - 1 Then
separator = ""
End If
Set re = Recipients.item(i)
If re.ReType = 0 Then
ReTo = ReTo & re.Name & "&nbsp;(" & re.EMail & ")" & separator
else
ReCC = ReTo & re.Name & "&nbsp;(" & re.EMail & ")" & separator
End If
Next
Function getAttachments()
Set Attachments = msg.Attachments
separator = ", "
For i = 0 To Attachments.Count - 1
If i = Attachments.Count - 1 Then
separator = ""
End If
Set at = Attachments(i)
at.SaveToFile( "c:/fujian/" & at.Name )
getAttachments = getAttachments & "<a href=""/fujian/" &_
at.Name &""">" & at.Name & "(" & at.Size & " bytes)" &_
"</a>" & separator
Next
End Function

%>
<html>
<body>
<TABLE>
<tr>
<td>主题</td>
<td><%= msg.Subject %></td>
</tr>
<tr>
<td>发件人</td>
<td><%= msg.FromName %></td>
</tr>
<tr>
<td>收件人</td>
<td><%= ReTO %></td>
</tr>
<tr>
<td>抄送人</td>
<td><%= ReCC %></td>
</tr>
<tr>
<td>附件</td>
<td><%= getAttachments %></td>
</tr>
<tr>
<td>正文</td>
<td><pre><%= msg.Body %></pre></td>
</tr>
</TABLE>
</body>
</html>
<%
end if
pJmail.Disconnect ‘断开POP3连接
%>
zhaoqiliang527
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
Jmail使用手册
04-16
### Jmail使用手册详解 #### 引言 在IT领域，特别是互联网开发中，邮件服务是不可或缺的一部分。无论是用户注册验证、密码找回还是业务通知，邮件都扮演着至关重要的角色。Jmail，作为一款功能强大的邮件组件，为...
Jmail使用方法大全
07-27
**Jmail使用方法大全** Jmail是一款在编程领域广泛应用的邮件发送组件，尤其在ASP、ASP.NET等Web开发环境中，它提供了便捷的方式来发送电子邮件。Jmail的灵活性和易用性使其成为开发者们的首选工具，无论是在企业级...
JMAIL使用日志
weixin_30872499的博客
11-27 287
1.首先要注册JMAIL组件，可以到JMAIL官方网站（www.dimac.net）下载，并安装！ 2. Set Mail Code (ASP) <% setJmail=server.CreateObject("jmail.message") Jmail.MailServerPassWord="XXXXXXX"...
.net jMail邮件发送(含抄送、密送、多发、日志记录)
仲权的专栏
11-20 4264
jmail是一个第三方邮件操作组件，通常位于web服务器端，实现收邮件及发邮件功能(客户端用Foxmail这类就很好了)。可以利用它轻松实现发邮件、抄送、密送、多发、日志记录及收邮件功能。本章要讲的，就是：发邮件、抄送、密送、多发、日志记录。 一、组件准备 下载JMail44_pro并安装(记下安装路径) 找到安装路径，将其中的jmail.dll复制到项目中 二、核心发送代码 新建Mai
Jmail的主要参数列表
最爱白菜
07-19 2200
说明：更多的信息请参考Jmail说明，我想这已经足够用的了。 遇到问题请不要问我，因为服务器原因，我仅仅使用CDONTS发信，Sorry... （1）Body（信件正文） : 字符串 如：JMail.Body = "这里可以是用户填写的表单内容，可以取自From。" （2）Charset（字符集，缺省为"US-ASCII"） : 字符串 如：JMail.Charset = "US-A
jmail.dll的使用
玩转2010
07-07 7547
<br />配置环境：.Net Framework 1.1,Imai8.02,w3Jmail4.3<br />实现过程：<br />不同于在Asp中使用Jmail，直接使用 Server.CreateObject("Jmail.Message")就可以了。在.Net环境中，需要进行设置。<br />1.安装jmail4.3<br />2.找到jmail.dll（Program Files/Dimac/w3JMail4下）<br />3.执行Program Files/Microsoft Visual Stu
jmail 使用文档 例子
03-01
**JMail 使用文档与编程示例** JMail 是一个用于在Web应用程序中发送电子邮件的组件，尤其适用于基于ASP（Active Server Pages）的环境。它提供了简单而强大的接口，允许开发者轻松地集成邮件发送功能到他们的网站...
asp.net Jmail使用小记
09-20
在ASP.NET中使用Jmail，首先需要将其引用引入到项目中。在提供的文件列表中，"jmail.dll"就是这个组件的库文件，我们需要将其添加到项目的引用中。右键点击项目，选择“添加引用”，然后浏览到jmail.dll所在的位置，...
jmail组件,附带从使用调用方法和安装注册方法
02-13
以下是一些常见的JMail使用示例： 1. 初始化JMail对象： ```vbscript Dim jmail Set jmail = Server.CreateObject("Jmail.JMail") ``` 2. 设置邮件属性，如发件人、收件人、主题和正文： ```vbscript jmail.From = ...
W3 Jmail使用详细教程+简单实例
じ.黒白森林的专栏
10-15 1101
W3 JMail 邮件组件是Dimac公司开发的用来完成邮件的发送、接收、加密和集群传输等工作的。w3 Jmail组件是国际最为流行的邮件组件之一，当今世界上绝大部分ASP程序员都在使用w3 Jmail组件构建邮件发送系统，那是因为w3 Jmail组件使用了新的内核技术，使其更加可靠和稳定。 <br /><br />一、下面向读者介绍w3 Jmail4.3组件的新特性： <br /><br />1、 w3 Jmail4.3组件重新设计了其内部结构——使用Message对象代替原来的单一对象Jmail.smt
jmail的使用说明
mm514322307的专栏
02-26 1006
<br />jmail的使用说明<br /> <br />配置环境：.Net Framework 1.1,Imai8.02,w3Jmail4.3<br />实现过程：<br />不同于在Asp中使用Jmail，直接使用 Server.CreateObject("Jmail.Message")就可以了。在.Net环境中，需要进行设置。<br />1.安装jmail4.3 <br />2.找到jmail.dll（Program Files/Dimac/w3JMail4下）<br />3.执行Program Fi
Jmail使用方法
weixin_33720078的博客
07-28 455
下面是一段程序代码,现在共享出来让大家学习: path=Server.MapPath("\p_w_picpaths\logo.gif") Set JMail=Server.CreateObject("JMail.SMTPMail") JMail.ContentType="text/html" JMail.Encoding = "base64" JMail....
JMAIL 43 中文手册：全面解析Jmail方法与属性
"JMAIL 43 中文手册.pdf 是一份详细阐述Jmail方法和属性的手册，旨在帮助用户理解和使用Jmail进行邮件发送。该手册涵盖了Jmail的各种功能和配置，包括设置邮件服务器、添加附件、处理邮件内容以及错误处理等方面。" ...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值