Jmail接收邮件
如何用POP3接收电子邮件？
如何用POP3接收电子邮件？POP3大行其道，我看见朋友已经用Jmail和POP3接收邮件了。
该如何做？以Jmail4.1为例，我们演示一下用POP3pop3收信的过程：<% Set pop3 = Server.CreateObject( "JMail.POP3" )pop3.Connect "username", "password", ""' POP3的连接用户名,密码,POP3地址Response.Write( "你现在有" & pop3.count & " 封邮件。
<br><br>" )if pop3.count > 0 thenSet msg = pop3.Messages.item(1)ReTo = ""ReCC = ""Set Recipients = msg.Recipientsseparator = ", "For i = 0 To Recipients.Count - 1If i = Recipients.Count - 1 Thenseparator = ""End IfSet re = Recipients.item(i)If re.ReType = 0 ThenReTo = ReTo & & "(<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" &separatorelseReCC = ReTo & & "(<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" & separatorEnd IfNext' 以上获取所有收件人,并存储Function getAttachments()Set Attachments = msg.Attachmentsseparator = ", "For i = 0 To Attachments.Count - 1If i = Attachments.Count - 1 Thenseparator = ""End IfSet at = Attachments(i)at.SaveToFile( "c:\intels\email\attachments\" & at.Filename )getAttachments = getAttachments & "<a href=""/intels/email/attachments/" & at.Filename &""">" &_at.FileName & "(" & at.Size & " bytes)" & "</a>" & separator NextEnd 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 ifpop3.Disconnect%>。
如何用Jmail的发送电子邮件？
如何用Jmail的发送电子邮件？如何用Jmail的发送电子邮件？见下：<%Set mail1 = Server.CreateObject("Jmail.smtpmail")mail1.serveraddress="61.134.4.162:25"mail1.contenttype="text/html"mail1.charset="gb2312"mail1.sender = "intels@"mail1.Subject = "精彩春风向您问好!"mail1.addrecipient "shiyishao@"mail1.addrecipient session("email")mail1.Body = "亲爱的"&session("name")&"顾客:"<p>您于"&session("date")&"在中国水利水电出版社网上书店订购的"&session("book")&",共"&session("xing")&"套"&session("shu")&"本，合计人民币"&session("money")&"元,我们将会在收到您的付款后24小时之内给您寄出. </p><p>感谢您的惠顾! </p>"mail1.Execute%>。
本地jmailasp例子
本地jmailasp例子【篇一：本地jmailasp例子】msg = sendmail(request( smtpserver ),request( smtpserverusername ),request( smtpserverpassword ),request( maildomain ),request( mailtoaddress ),request( mailto name ),request( subject ),request( mailbody ),request( fromname ),request( mailfrom ),re quest( priority ))if msg then response.write( 发送成功 ) else response.write( 发送不成功 )response.end()end iffunctionsendmail(smtpserver,smtpserverusername,smtpserverpasswo rd,maildomain,mailtoaddress,mailtoname,subject,mailbody,fromname,mailfrom,priority)dim jmail, msgset jmail=server.createobject( jmail.message )jmail.charset= gb2312 编码jmail.silent=true 设置为true,jmail不会抛出例外错误.jmail.contenttype = text/plain 邮件正文格式jmail.serveraddress = smtpserver 用来发送邮件的smtp服务器(无效)指定邮件服务器的地址。
可以指定多个服务器，用分号点开。
可以指定端口号。
如果serveraddress保持空白，jmail会尝试解决远程邮件服务器，然后直接发送到服务器上去。
JMAIL组件发送邮件
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)'函数参数说明（收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址）'on error resume nextDim JMail,MailServer,FlagSet JMail=Server.CreateObject("JMail.Message")If err ThenSendMail = Falseerr.clearExit FunctionEnd ifJMail.Charset="gb2312" '邮件编码JMail.silent=TrueJMail.ContentType = "text/html" '邮件正文格式MailServer = "" '用来发送邮件的SMTP服务器JMail.MailServerUserName = "user" '登录用户名JMail.MailServerPassWord = "********" '登录密码JMail.MailDomain = "" '域名（如果用"name@"这样的用户名登录时，请指明），可选JMail.AddRecipient MailtoAddress,MailtoName '收信人邮箱和收信人名称JMail.Subject = Subject '主题JMail.AppendHTML(MailBody)JMail.FromName = FromName '发信人姓名JMail.From = MailFrom '发信人EmailJMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级Flag=JMail.Send(MailServer)If Flag ThenSendMail=TrueElseSendMail=FalseEnd IfJMail.CloseSet JMail=nothingEnd Function在VB中使用JMAIL组件发送邮件的简单例子| 2007-1-12 13:08:00在使用之前先注册JMAIL组件，然后引用jamil liibary.好了，可以在VB中使用jmail了。
Jmail+excel收发邮件
Jmail +excel 收发邮件详细请访问：请先看发邮件，因为有些前提条件在这篇有说明！前提：安装Jmail组件并注册，注册方式为在开始菜单/运行中输入regsvr32 C:\jmail.dll（其中c:\jmail.dll要替换成你的实际安装路径），然后回车。
--->发送邮件：先将相关信息列入一个名字为"email"的sheet中，然后添加模块，输入以下代码：Function JmailSend(Subject, Body, Attachment, MailTo, CcTo, From, FromName, Smtp)'这是发送mail的函数Dim JmailMsg'Set JmailMsg = server.CreateObject("jmail.message")Set JmailMsg = New jmail.MessageJmailMsg.MailServerUserName = userName '如果是在局域网中可以不要验证JmailMsg.MailServerPassWord = Password'JmailMsg.AddRecipient MailTo'JmailMsg.AddRecipientCC CcToJmailMsg.From = FromJmailMsg.FromName = FromNameJmailMsg.Charset ="gb2312"JmailMsg.ContentType ="multipart/mixed"'前一种附件正常"text/html"JmailMsg.Priority =1JmailMsg.Logging = TrueJmailMsg.Silent = TrueJmailMsg.Subject = SubjectJmailMsg.Body = BodyJmailMsg.Encoding ="base64"'"base64", "uuencode" or "quoted-printable"'发件人地址aryEmail = Split(MailTo, ";")For i =0 To UBound(aryEmail)JmailMsg.AddRecipient Trim(aryEmail(i))Next'抄送人地址aryEmail = Split(CcTo, ";")For i =0 To UBound(aryEmail)JmailMsg.AddRecipientCC Trim(aryEmail(i))Next'暗送人地址aryEmail = Split(BccTo, ";")For i =0 To UBound(aryEmail)JmailMsg.AddRecipientBCC Trim(aryEmail(i))Next'附件列表aryEmail = Split(Attachment, ";")For i =0 To UBound(aryEmail)JmailMsg.AddAttachment Trim(aryEmail(i))NextIf Not JmailMsg.Send(Smtp) ThenJmailSend ="N"ElseJmailSend ="Y"End IfJmailMsg.CloseSet JmailMsg = Nothing'MsgBox (JmailSend)‘测试时可以用End Function'下面是引用上面的函数，把"email"中的参数套用进来Sub Sendmail()Dim strTemp As StringDim Subject, Body, MailTo, Attachment, CcTo, From, FromName, Smtp As StringSubject = Sheets("email").Cells(1, 3)Body = Sheets("email").Cells(2, 3)Attachment = Sheets("email").Cells(3, 3)MailTo = Sheets("email").Cells(4, 3)CcTo = Sheets("email").Cells(5, 3)BccTo = Sheets("email").Cells(6, 3)From = Sheets("email").Cells(7, 3)FromName = Sheets("email").Cells(8, 3)Smtp = Sheets("email").Cells(9, 3)' JmailSend(Subject, Body, Attachment, MailTo, CcTo, BccTo, From, FromName, Smtp)strTemp = JmailSend(Subject, Body, Attachment, MailTo, CcTo, From, FromName, Smtp)End Sub'代码结束Sheet "email"中内容如下，从第一行第一列开始写入如下内容：均调试通过用途说明：可通过发送特定主题的邮件，通过VBA收邮件后判断，满足一定条件及执行什么操作。
JmailC# 利用Jmail属性,接收邮件
27 mailMessage=popMail.Messages[i];
28 atts=mailMessage.Attachments;
29 mailMessage.Charset = "GB2312";
30 mailMessage.Encoding = "Base64";
15 {
16 num1=1;
17 jmail.POP3Class popMail = new jmail.POP3Class();
18 jmail.Message mailMessage;
19 jmail.Attachments atts;
20 jmail.Attachment att;
给邮件添加一个邮件头。
AddRecipient(emailAddress,recipientName,PGPKey)
给邮件添加一个收件人。RecipientName和PGPKey是可选项，RecipientName为收件人姓名，PGPKey给邮件加密。
AddRecipientBCC(emailAddress,PGPKey)
6 /// <param name="poptity">等级</param>
7 /// <param name="senders">发送者</param>
8 /// <param name="sendmail">发件人地址</param>
9 /// <param name="subject">主题</param>
JMAIL 使用说明
JML 使用说明JML 使用说明一、介绍JML 是一个功能强大的邮件发送工具，可以帮助用户快速、准确地发送邮件。
本文档将详细介绍 JML 的安装、配置和使用方法，以及相关功能的详细说明。
如果您有任何问题或疑问，请随时联系我们的技术支持团队。
二、安装1. JML 安装包●访问我们的官方网站（）。
●在页面上选择适用于您操作系统的版本，并按钮。
●完成后，解压安装包至您希望安装 JML 的目录。
2.安装 JML●双击安装包中的安装程序文件。
●跟随安装程序的指示逐步完成安装过程。
三、配置1.配置邮件服务器●打开 JML 软件。
●进入设置页面，找到“邮件服务器配置”选项。
●在弹出的窗口中输入您的邮件服务器的地质、端口、帐号和密码。
●保存并测试连接，确保配置正确。
四、使用1.创建邮件●在主界面“新建邮件”按钮。
●可以选择添加附件等功能。
●发送按钮，即可发送邮件。
2.批量发送邮件●在主界面“批量发送”按钮。
●导入收件人列表，可以使用 Excel、CSV 等格式。
●开始发送，即可批量发送邮件。
3.查看发送记录●在主界面“发送记录”按钮。
●可以查看历史发送记录，包括发送时间、收件人、状态等信息。
●可以导出记录为 Excel 或 CSV 格式。
五、附件本文档附件包括 JML 安装文件、演示视频和常见问题解答。
六、法律名词及注释1.邮件服务器: 用于发送和接收电子邮件的计算机或应用程序。
2.SMTP: 简单邮件传输协议，用于发送邮件。
3.POP3、邮局协议版本3，用于接收邮件。
4.IMAP: 互联网消息访问协议，用于接收和管理邮件。
Jmail收发邮件(完整源码)
我特地把关键代码贴出来.大家一起学习!()+sql2000+jmail首先把功能介绍一下:主要介绍一点的就是.发送邮件这块功能.支持地址薄选地址(弹出窗口返回值).也支持用户自己填写email地址,同时支持群发(也就是用户组),主要代码如下:前台:<%@ Page Language="VB" AutoEventWireup="false" CodeFile="sendmail.aspx.vb" Inherits="sendmail" %><%@ Register Assembly="FreeTextBox" Namespace="FreeTextBoxControls" TagPrefix="FTB" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="/1999/xhtml" ><head runat="server"><title>郵件發送</title><link href ="body.css" rel ="Stylesheet" type ="text/css" /><script language ="javascript" type ="text/javascript" >window.onload =function(){document.getElementById ("div1").style.visibility ="hidden";}function showcalendar(){document.getElementById ("div1").style.visibility ="visible";}var sendto="";var cto=""var sto=""var attname=""function showmailaddress() ''这里很重要,利用showmailDialog获取值{window.showModalDialog('mailaddress.aspx',window,'resizable:yes;dialogWidth:640px;dialogHeight:550px;' );}function getmailaddress(){if(document.getElementById ("sendto").value!=""){document.getElementById ("sendto").value+=";";}if(document.getElementById ("cto").value!=""){document.getElementById ("cto").value+=";";}if(document.getElementById ("sto").value!=""){document.getElementById ("sto").value+=";";}document.getElementById ("sendto").value+=sendto;document.getElementById ("cto").value+=cto;document.getElementById ("sto").value+=sto;}function showmailatt(){window.showModalDialog('mailatt.aspx',window,'center:yes;dialogHeight:10px;dialogWidth:400px;');}function getattname() ''获取附件{var att=document.getElementById ("attname");if(att.value!=""){att.value+=";";}att.value+=attname;}</script><link href ="body.css" rel ="Stylesheet" type ="text/css" /> </head><body><form id="form1" runat="server"><div align ="center"><table width ="100%" ><tr><td align ="left" ><label id="label1" >收件人</label><img style=" cursor :hand " onclick ="showmailaddress();" src ="TreeLineImages/mailbox.bmp" /><input id="sendto" style ="width :80%;" type="text" runat ="server" /></tr><tr><td align ="left"><label id="label2" >抄 送</label><img style=" cursor :hand " onclick ="showmailaddress();" src ="TreeLineImages/mailbox.bmp" /><input id="cto" style ="width :80%;" type="text" runat ="server" /></td></tr><tr><td align ="left" ><label id="label3" >密 送</label><img style=" cursor :hand " onclick ="showmailaddress();" src ="TreeLineImages/mailbox.bmp" /><input id="sto" style ="width :80%;" type="text" runat ="server" /></td></tr> <tr><td align ="left" ><label id="label4" >優先級別:</label><asp:DropDownList ID="graddl" runat="server" AutoPostBack="True"><asp:ListItem Value="1">高</asp:ListItem><asp:ListItem Value="3">中</asp:ListItem><asp:ListItem Value="5">低</asp:ListItem></asp:DropDownList> <label id="label5" >發送時間:</label><input id="sendtime" runat ="server" type="text" /><img style=" cursor :hand " onclick ="showcalendar();" runat ="server" src ="images/calender.BMP" id="IMG1" /><div id="div1" style="z-index: 101; left: 616px; width: 100px; position: absolute; top: 128px;height: 100px"><asp:Calendar ID="Calendar1" runat="server" BackColor="White" OnSelectionChanged ="Calendar1_SelectionChanged" BorderColor="#999999" Font-Names="Verdana" Font-Size="8pt" ForeColor="Black" Height="180px" Width="200px" CellPadding="4" DayNameFormat="Shortest"><SelectedDayStyle BackColor="#666666" ForeColor="White" Font-Bold="True" /><TodayDayStyle BackColor="#CCCCCC" ForeColor="Black" /><OtherMonthDayStyleForeColor="#808080" /><NextPrevStyle VerticalAlign="Bottom" /><DayHeaderStyle Font-Bold="True" Font-Size="7pt" BackColor="#CCCCCC" /><TitleStyle BackColor="#999999" BorderColor="Black" Font-Bold="True" /><SelectorStyle BackColor="#CCCCCC" /><WeekendDayStyleBackColor="#FFFFCC" /></asp:Calendar></div></tr><tr><td align ="left" ><label id="label6" >附 件</label><img style=" cursor :hand; width :20px; height :16px " onclick="showmailatt();" src="images/nodeopen.BMP" /><input id="attname" style ="width :80%" type="text" runat ="server" /></td></tr><tr><td align ="left" ><label id="label7" >郵件主題</label>; <input id="subject" style ="width :80%" type="text" runat ="server" /></td></tr><tr><td align ="left" >郵件內容：</td></tr><tr><td align ="left" style="height: 358px"><FTB:FreeTextBox ID="mailbody" Width ="90%" runat="server"></FTB:FreeTextBox></td></tr><tr><td align ="left"><asp:Button ID="sendbt" runat="server" OnClick="sendbt_Click" Text="發送郵件" /><asp:Button ID="savebt" runat="server" Text="保存郵件" /><asp:Button ID="clearbt" runat="server" Text="清空內容" /><asp:Button ID="cancelbt" OnClick ="cancelbt_click" runat="server" Text="取消" /></td></tr></table></div></form></body></html>后台:Imports SystemImports Imports System.IOImports System.DataImports System.Data.SqlClientImports System.WebImports System.Web.UIImports jmailImports .SocketsImports FreeTextBoxControlsImports FreeTextBoxControls.DesignImports FreeTextBoxControls.ImageGalleryImports dataImports mailclassPartial Class sendmailInherits System.Web.UI.PageDim mymailclass As mailclass = New mailclass ''业务逻辑层.Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)sendtime.Value = Calendar1.SelectedDateCalendar1.Style("visibility") = "hidden"End SubProtected Sub sendbt_Click(ByVal sender As Object, ByVal e As System.EventArgs)Dim mg As jmail.Message = New jmail.MessageDim address As String = ""With (mg).From = "chuxue1342@".FromName = "陈胜军".Charset = "UTF-8".ContentType = "multipart/html".ISOEncodeHeaders = False.Encoding = "BASE64".Priority = Convert.ToByte(graddl.SelectedValue)If subject.Value <> "" Then.Subject = subject.ValueElseResponse.Write("主題不能爲空")Exit SubEnd If.Body = mailbody.Text'添加附件Dim atts As String = attname.ValueIf atts <> "" ThenDim attal() As String = atts.Split(";")For i As Integer = 0 To attal.Length - 1.AddAttachment(attal(i).ToString, False, "附件" & CInt(i) + 1)NextEnd If.MailServerUserName = "chuxue" ' 用户名.MailServerPassWord = "****" '密码'添加聯系人Dim sendaddresses As String = sendto.ValueIf cto.Value <> "" Thensendaddresses += ";" & cto.ValueEnd If&nb ; If sto.Value <> "" Thensendaddresses += ";" & sto.ValueEnd IfDim sendaddress() As String = sendaddresses.Split(";")If sendaddress.Length > 0 ThenFor j As Integer = 0 To sendaddress.Length - 1If sendaddress(j).IndexOf("@") > 0 Then '如果包含"@"则添加到收件人,否则查询数据库.AddRecipient(sendaddress(j).ToString)Elsemymailclass = New mailclassaddress = mymailclass.getaddress(sendaddress(j).ToString) ''通过用户名或组名得到email地址If address.ToString <> "" ThenDim emailstring() As String = address.Split(";")For f As Integer = 0 To emailstring.Length - 1.AddRecipient(emailstring(f).ToString )NextEnd Ifaddress = ""End IfNextElseResponse.Write("至少选择一个收件人!!")End IfEnd WithTryIf (mg.Send("", False) = True) Then '发邮件服务器Response.Write("发送成功")End IfCatch ex As ExceptionResponse.Write("連接網絡超時，請重試!或與技術人員聯系!!")End TryEnd SubEnd Class收邮件:Dim popmail As jmail.POP3Class = New jmail.POP3Class()Trypopmail.Connect("chuxue", "*****", "", "110") '用户名密码服务器popmail.Logging = TrueIf popmail.Count > 0 ThenFor i As Integer = 1 To popmail.CountDim ms As Message = popmail.Messages(i)With ms.Charset = "UTF-8".ContentType = "multipart/html" '这个很重要.避免邮件内容乱码.ContentTransferEncoding = "BASE64".Encoding = "BASE64"End WithWith Label3.Text += "邮件数" & popmail.Count & "<br/>".Text += ms.From & "发件人" & ms.From & "<br/>".Text += "邮件主题" & ms.Subject & "<br/>".Text += ms.Body & "<br/>".Text += ms.Date & "<br/>"End With Dim atts As jmail.Attachments = ms.AttachmentsIf atts.Count > 0 ThenLabel3.Text += "附件数量" & atts.Count & "<br/>"Dim j As IntegerFor j = 0 To atts.Count - 1Label3.Text += atts.Item(j).NameNext'可以通过atts.item(j).savetofile("保存路径") 保存附件到服务器End IfNextElseLabel3.Text = "没有新邮件"End IfCatch ex As ExceptionLabel3.Text = "系统错误" & ex.MessageFinallypopmail.Disconnect()End Try选择地址薄:这里我主要写js代码!需要注意一点: <base target ="_self" ></base><head runat="server"><title>添加郵箱地址</title><script language="javascript" type="text/javascript">function returnvalue(sendmail,ctomail,stomail) '通过dialogArguments获取父页面的变量传值{var tb=window.dialogArguments ;tb.sendto=sendmail;tb.cto=ctomail;tb.sto=stomail;tb.getmailaddress();}</script><link href ="body.css" rel ="Stylesheet" type ="text/css" /><base target ="_self" ></base></head>后台:这里我主要写添加按钮的代码:Protected Sub addbt_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles addbt.ServerClickDim sends As String = ""Dim ctos As String = ""Dim stos As String = ""Dim i As IntegerIf sendtolb.Items.Count > 0 ThenFor i = 0 To sendtolb.Items.Count - 1If sends <> "" Thensends += ";"End Ifsends += sendtolb.Items(i).TextNextEnd IfIf ctolb.Items.Count > 0 ThenFor i = 0 To ctolb.Items.Count - 1If ctos <> "" Thenctos += ";"End Ifctos += ctolb.Items(i).TextNextEnd IfIf stolb.Items.Count > 0 ThenFor i = 0 To stolb.Items.Count - 1If stos <> "" Thenstos += ";"End Ifstos += stolb.Items(i).TextNextEnd IfPage.ClientScript.RegisterStartupScript(GetType(String), "", "<script>javascript:returnvalue('" + sends + "','" + ctos + "','" + stos + "');window.close();</script>") ''注册js代码运行End Sub文章出处：DIY部落(/course/4_webprogram//netjs/2007112/82184_5.html)。
c#封装jmail的pop3收邮件
public POP3(string UserName,string Password,string Server,int Port)
{
this._UserName = UserName;
this._Password = Password;
this._Server = Server;
将如下所有代码:
1.复制到 Microsoft Visual Studio .Net 2003 的新建的 "控制台应用程序" 项目的 *.cs 文件中
2.然后添加引用 JMail 4.x Library!
jmail 的注册方法,运行命令行: regsvr32 e:\jmail\jmail.dll
int I = jms.Count;
MessagesState omss = null;
for (int i = 0; i < I - 1; i++)
{
try
{
jmail.MessageClass jmc = (jmail.MessageClass) jms[i+1];
{
if (this.AttachmentException != null)
{
oass.Exception = e;
this.AttachmentException(oass);
if (oass.ExceptionAction == Microshaoft.NJMail.ExceptionActions.CancelAll)
轻松收取Gmail邮件
轻松收取Gmail邮件
我心飞翔
【期刊名称】《网友世界》
【年(卷),期】2011(000)022
【摘要】作为办公人员。
离不开收发邮件，而随着安卓系统的普及，越来越多的人开始使用谷歌的Gmail邮箱，有些人也想把Gmail邮箱设置在笔记本或台式机上，应该如何操作呢？
【总页数】1页(P32-32)
【作者】我心飞翔
【作者单位】不详
【正文语种】中文
【中图分类】TP393.098
【相关文献】
1.QQ & Gmail一家亲——用QQ邮箱收取Gmail邮件 [J], 李耀南
2.Gmail Labs让Gmail也能书写图文并茂的邮件 [J], 武金刚
3.使用360邮件通邮件收取更方便 [J], 吉吉
4.在QQ邮箱中收取Gmail邮件 [J], 周文娟
5.禁用POP也让能客户端收取Gmail邮件 [J], 汉江
因版权原因，仅展示原文概要，查看原文内容请购买。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Jmail接收邮件已有410 次阅读2010-8-18 12:49 |关键词:Jmail 邮件前段时间弄了下Jmail接收邮件的问题，发现不太理想，没有成熟的代码。
只是收集了该控件的相关属性，贴出来供大家参考（所需DLL到网上自行下载，4.5版好像不能用？）。
Form1:Option ExplicitDim i&, Attachment&Dim att As ObjectDim EmailMsg As ObjectDim atts As ObjectDim JMail As ObjectDim EmailList$, Subject$, EmailID&Dim X$()Private Sub Command1_Click()Dim J#Set JMail = CreateObject("JMail.POP3")JMail.Connect "***@", "***", "", "110" 'JMail.Connect "邮箱名", "密码", "服务器" [,"端口号"]' Debug.Print "你有" & JMail.Count & "封邮件" '邮件数量For i = 1 To JMail.Count' EmailID = JMail.GetMessageUID(I) '邮件唯一ID标识Set EmailMsg = JMail.Messages.Item(i) '取得一条邮件信息'-----------------------------------------------------------------------------取得附件数量并下载Set atts = EmailMsg.Attachments '附件集合Attachment = atts.Count '附件的数量If Attachment > 0 ThenFor J = 0 To Attachment - 1Set att = atts(J)If Dir(App.Path & "\" & ) = "" Then '附件的名称，如果存在同名文件而不加判断则会出错att.SaveToFile App.Path & "\" & End IfNext JEnd If'------------------------------------------------------------------------------以下为各种参数设置' EmailMsg.Charset = "gb2312" '编码方式' EmailMsg.ContentTransferEncoding = "base64"'解码方式' EmailMsg.Encoding = "base64"' EmailMsg.ContentType = "multipart/mixed" '发送邮件时' EmailMsg.ContentType = "text/html" '接收邮件时' EmailMsg.ISOEncodeHeaders = False'True '功能不清？'-----------------------------------------------------------------------------可以取得的各元素' MsgBox EmailMsg.Priority '邮件的优先级，1-5，1最高，正常情况为3。
' MsgBox EmailMsg.From '邮件的发送人的信箱地址' MsgBox EmailMsg.FromName '邮件的发送人' MsgBox EmailMsg.Date '邮件日期' MsgBox EmailMsg.Body '邮件内容' MsgBox EmailMsg.Size '邮件大小'----------------------------------------------------------------------------Subject = EmailMsg.Headers.GetHeader("Subject") '邮件标题，可正常解码，但UTF-8格式的标题取不全X = Split(EmailMsg.Headers.GetHeader("Subject"), "?")If X(1) = "UTF-8" ThenSubject = Utf8ToUnicode(StrToBytes(X(3)))ElseSubject = Base64Decode(X(3))End If' Subject = EmailMsg.Headers.GetHeader("From") '发件人，可解码' Subject = EmailMsg.Headers.GetHeader("FromName")EmailList = EmailList & CStr(i) & "、" & Subject & vbCrLfDoEventsNextText1.Text = EmailListEnd SubBase64.bas：Option ExplicitPublic Const cstBase64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"Public arrBase64() As StringPublic Function Base64Encode(strSource As String) As String '编码On Error Resume NextIf UBound(arrBase64) = -1 ThenarrBase64 = Split(StrConv(cstBase64, vbUnicode), vbNullChar)End IfDim arrB() As Byte, bTmp(2) As Byte, bT As ByteDim i As Long, J As LongarrB = StrConv(strSource, vbFromUnicode)J = UBound(arrB)For i = 0 To J Step 3Erase bTmpbTmp(0) = arrB(i + 0)bTmp(1) = arrB(i + 1)bTmp(2) = arrB(i + 2)bT = (bTmp(0) And 252) / 4Base64Encode = Base64Encode & arrBase64(bT)bT = (bTmp(0) And 3) * 16bT = bT + bTmp(1) \ 16Base64Encode = Base64Encode & arrBase64(bT)bT = (bTmp(1) And 15) * 4bT = bT + bTmp(2) \ 64If i + 1 <= J ThenBase64Encode = Base64Encode & arrBase64(bT)ElseBase64Encode = Base64Encode & "="End IfbT = bTmp(2) And 63If i + 2 <= J ThenBase64Encode = Base64Encode & arrBase64(bT)ElseBase64Encode = Base64Encode & "="End IfNextEnd FunctionPublic Function Base64Decode(strEncoded As String) As String '解码On Error Resume NextDim arrB() As Byte, bTmp(3) As Byte, bT As Long, bRet() As ByteDim i As Long, J As LongarrB = StrConv(strEncoded, vbFromUnicode)J = InStr(strEncoded & "=", "=") - 2ReDim bRet(J - J \ 4 - 1)For i = 0 To J Step 4Erase bTmpbTmp(0) = (InStr(cstBase64, Chr(arrB(i))) - 1) And 63bTmp(1) = (InStr(cstBase64, Chr(arrB(i + 1))) - 1) And 63bTmp(2) = (InStr(cstBase64, Chr(arrB(i + 2))) - 1) And 63bTmp(3) = (InStr(cstBase64, Chr(arrB(i + 3))) - 1) And 63bT = bTmp(0) * 2 ^ 18 + bTmp(1) * 2 ^ 12 + bTmp(2) * 2 ^ 6 + bTmp(3)bRet((i \ 4) * 3) = bT \ 65536bRet((i \ 4) * 3 + 1) = (bT And 65280) \ 256bRet((i \ 4) * 3 + 2) = bT And 255NextBase64Decode = StrConv(bRet, vbUnicode)End FunctionBaseToUtfToUnicode.bas（注：这是本论坛仙版(仙剑魔)提供的代码，在此感谢！）Option ExplicitPrivate Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As LongPrivate Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As LongPrivate Const CP_ACP = 0 ' default to ANSI code pagePrivate Const CP_UTF8 = 65001 ' default to UTF-8 code pageFunction StrToBytes(ByVal Source As String) As Byte()Dim bB64Str() As BytebB64Str = StrConv(Source, vbFromUnicode)Dim lB64Len As LonglB64Len = InStrB(bB64Str, ChrB$(Asc("="))) - 1Dim lLenPad As LonglLenPad = (4 - lB64Len Mod 4) Mod 4Dim lLen As LonglLen = ((lB64Len + lLenPad) \ 4) * 3Dim bStr() As ByteReDim bStr(lLen - 1)lLen = lLen - lLenPadDim i As LongDim lBuffer As LongFor i = 0 To lB64Len - 1 Step 4lBuffer = DeB64CodeA(bB64Str(i + 0)) * &H40000 Or DeB64CodeA(bB64Str(i + 1)) * &H1000& _Or DeB64CodeA(bB64Str(i + 2)) * &H40& Or DeB64CodeA(bB64Str(i + 3)) bStr((i \ 4) * 3 + 2) = lBuffer And &HFF&lBuffer = lBuffer \ &H100&bStr((i \ 4) * 3 + 1) = lBuffer And &HFF&lBuffer = lBuffer \ &H100&bStr((i \ 4) * 3 + 0) = lBuffer And &HFF&lBuffer = lBuffer \ &H100&NextReDim Preserve bStr(lLen - 1)StrToBytes = bStrEnd FunctionPrivate Function DeB64CodeA(ByVal Char As Byte) As ByteSelect Case CharCase Asc("A") To Asc("Z"): DeB64CodeA = Char - Asc("A")Case Asc("a") To Asc("z"): DeB64CodeA = Char - Asc("a") + 26Case Asc("0") To Asc("9"): DeB64CodeA = Char - Asc("0") + 52Case Asc("+"): DeB64CodeA = 62Case Asc("/"): DeB64CodeA = 63Case Asc("="): DeB64CodeA = 64End SelectEnd FunctionFunction Utf8ToUnicode(ByRef Utf() As Byte) As StringDim lRet As LongDim lLength As LongDim lBufferSize As LonglLength = UBound(Utf) - LBound(Utf) + 1If lLength <= 0 Then Exit FunctionlBufferSize = lLength * 2Utf8ToUnicode = String$(lBufferSize, Chr(0))lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf(0)), lLength, StrPtr(Utf8ToUnicode), lBufferSize)If lRet <> 0 ThenUtf8ToUnicode = Left(Utf8ToUnicode, lRet)End IfEnd Function。