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

王朝other·作者佚名  2008-05-30
窄屏简体版  字體: |||超大  

我现在自己在用asp做一个web邮件处理程序,就和网上263,163的web电子邮箱。

我在制作自己的web邮件系统的时候,使用的是网上很流行的asp邮件处理组件aspmail和jmail分别作web邮件的发件和收件程序,现在的问题就是我在用我做的web收件程序收一个带有附件的邮件的时候,下载下来的附件会被损坏(比如说:我在邮件中粘贴一个50k大小的jpg图片附件,但用web程序收下来的时候图片大小就变成40k的了,并且图片打开后看不到东西),我原先是以为jmail这个收邮件组件本身有Bug,但我又用了其他的用在asp里的收邮件组件,还是老样子。

另外需要说明的是邮件本身没问题,我用邮件客户端软件收这个邮件时都没问题。

下面是我的程序的一个demo,不知道你有没有这方面的编程经验,帮我解决这个问题。

Set pop3 = Server.CreateObject( "JMail.POP3" ) '创建对象

pop3.Connect "pzhou", "pzhou", "10.157.11.42" '连接服务器 pop3.connect user,password,host

Response.Write( "You have " %26amp; pop3.count %26amp; " mails in your mailbox!

" )

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 "

"%26amp;msg.size%26amp;"

"

For i = 0 To Attachments.Count - 1

If i = Attachments.Count - 1 Then

separator = ""

End If

Set at = Attachments(i)

at.SaveToFile( "e:" %26amp; at.Name )

getAttachments = getAttachments %26amp; "" %26amp;_at.Name %26amp; "(" %26amp; at.Size %26amp; " bytes)" %26amp; "" %26amp; separator

Next

End Function

%

Subject

From

Attachments

Body

end if

pop3.Disconnect

%

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航