用Jmail做收取郵件附件的程序
當(dāng)前位置：點(diǎn)晴教程→知識(shí)管理交流
→『 技術(shù)文檔交流 』
我現(xiàn)在自己在用asp做一個(gè)web郵件處理程序，就和網(wǎng)上263，163的web電子郵箱。
我在制作自己的web郵件系統(tǒng)的時(shí)候，使用的是網(wǎng)上很流行的asp郵件處理組件aspmail和jmail分別作web郵件的發(fā)件和收件程序，現(xiàn)在的問(wèn)題就是我在用我做的web收件程序收一個(gè)帶有附件的郵件的時(shí)候，下載下來(lái)的附件會(huì)被損壞（比如說(shuō)：我在郵件中粘貼一個(gè)50k大小的jpg圖片附件，但用web程序收下來(lái)的時(shí)候圖片大小就變成40k的了，并且圖片打開后看不到東西）,我原先是以為jmail這個(gè)收郵件組件本身有Bug，但我又用了其他的用在asp里的收郵件組件，還是老樣子。 另外需要說(shuō)明的是郵件本身沒問(wèn)題，我用郵件客戶端軟件收這個(gè)郵件時(shí)都沒問(wèn)題。 下面是我的程序的一個(gè)demo,不知道你有沒有這方面的編程經(jīng)驗(yàn)，幫我解決這個(gè)問(wèn)題。 <% @LANGUAGE=VBSCRIPT %> <% Set pop3 = Server.CreateObject( "JMail.POP3" ) '創(chuàng)建對(duì)象 pop3.Connect "pzhou", "pzhou", "10.157.11.42" '連接服務(wù)器 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 編輯過(guò)
|
關(guān)鍵字查詢
相關(guān)文章
正在查詢... 
|
||||||||
400 186 1886
