使用Jmail制作收取邮件附件的程序
程序员文章站
2022-03-26 17:57:24
现在我自己用asp做了一个web邮件处理，即像163电子信箱那样，可以在线收信发信的东东。我在制作自己的web邮件系统的时候，使用的是网上很流行的邮件处理asp...
现在我自己用asp做了一个web邮件处理，即像163电子信箱那样，可以在线收信发信的东东。我在制作自己的web邮件系统的时候，使用的是网上很流行的邮件处理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
%>
over,技术交流 永无止境
另外需要说明的是邮件本身没问题，我用邮件客户端软件收这个邮件时都没问题。
下面是我的程序的一个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
%>
over,技术交流 永无止境
上一篇： C语言程序设计练习之2008 数值统计
下一篇： C语言学习之联合体_枚举_IO实例