用Jmail做收取邮件附件的程序

admin

2011年12月24日 18:14 本文热度 2521

我现在自己在用asp做一个web邮件处理程序，就和网上263，163的web电子邮箱。
我在制作自己的web邮件系统的时候，使用的是网上很流行的asp邮件处理组件aspmail和jmail分别作web邮件的发件和收件程序，现在的问题就是我在用我做的web收件程序收一个带有附件的邮件的时候，下载下来的附件会被损坏（比如说：我在邮件中粘贴一个50k大小的jpg图片附件，但用web程序收下来的时候图片大小就变成40k的了，并且图片打开后看不到东西）,我原先是以为jmail这个收邮件组件本身有Bug，但我又用了其他的用在asp里的收邮件组件，还是老样子。
另外需要说明的是邮件本身没问题，我用邮件客户端软件收这个邮件时都没问题。
下面是我的程序的一个demo,不知道你有没有这方面的编程经验，帮我解决这个问题。
<% @LANGUAGE=VBSCRIPT %>
<%
Set pop3 = Server.CreateObject( "JMail.POP3" ) '创建对象
pop3.Connect "pzhou", "pzhou", "10.157.11.42" '连接服务器 pop3.connect user,password,host
Response.Write( "You have " & pop3.count & " mails in your mailbox!<br><br>" )
set msg=server.CreateObject("jmail.message")
if pop3.count > 0 then
Set msg = pop3.Messages.item(1)
separator = ", "
Function getAttachments() '获得附件
Set Attachments = msg.Attachments
separator = ", "
Response.Write "<br>"&msg.size&"<br>"
For i = 0 To Attachments.Count - 1
If i = Attachments.Count - 1 Then
separator = ""
End If
Set at = Attachments(i)
at.SaveToFile( "e:\" & at.Name )
getAttachments = getAttachments & "<a href=""" & at.Name &""">" &_
at.Name & "(" & at.Size & " bytes)" & "</a>" & separator
Next
End Function
%>
<html>
<body>
<TABLE>
<tr>
<td>Subject</td>
<td><%= msg.Subject %></td>
</tr>
<tr>
<td>From</td>
<td><%= msg.FromName %></td>
</tr>
<tr>
<td>Attachments</td>
<td><%= getAttachments %></td>
</tr>
<tr>
<td>Body</td>
<td><pre><%= msg.Body %></pre></td>
</tr>
</TABLE>
</body>
</html>
<%
end if
pop3.Disconnect
%>

该文章在 2011/12/24 18:14:27 编辑过


全部评论2
	admin 2011年12月24日 18:16 JMAIL如何实现从POP接收邮件的附件呢？？？在遍历每封信时 if jmail.message.attachments.count >0 then '遍历每个附件 for i=0 to jmail.message.attachments.count-1 dim att as jmail.attachment=jmail.message.attachments(i) att.savetofile(指定路径) next end if 该评论在 2011/12/24 18:16:03 编辑过
	admin 2011年12月24日 18:34 <% 'Jmail收取附件函数 'Function getAttachments(id) Set Attachments = msg.Attachments separator = ", " '创建文件夹，文件夹的名字为时间如2004-12-15152021 gg=now() gg1=replace(gg, " ", " ") gg1=replace(gg1, ": ", " ") gg1= "c:\temp\ "&gg1 Dim fso, f Set fso = CreateObject( "Scripting.FileSystemObject ") '判断c:是否以存在temp文件夹，如果不存在则需要建立该文件夹 if not fso.FolderExists( "c:\temp ") then fso.CreateFolder "c:\temp " end if Set f = fso.CreateFolder(gg1) '创建文件夹完毕 For i = 0 To Attachments.Count - 1 If i = Attachments.Count - 1 Then separator = " " End If Set at = Attachments(i) at.SaveToFile( gg1& "\ " & at.Name ) tt=gg1& "\ " & at.Name 'response.Write "tt11= "&tt %> <tr> <td> 附  件: </td> <td> <a href= " <%=tt%> "> <%=at.name%> </a> </td> </tr> <% Next %> 该评论在 2011/12/24 18:34:20 编辑过

关键字查询

正在查询...

点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。

点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。

点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。

点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。

用Jmail做收取邮件附件的程序

全部评论2