一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

在ASP中用EasyMailObject组件处理Exchange邮件源代码---读取邮件内容和附件(

时间:2008-01-12 编辑:简简单单 来源:一聚教程网

<%@ LANGUAGE="VBSCRIPT" %>
<%
'************************************************
'这个文件显示邮件的内容和附件
'作者:awayeah
'邮箱:awayeah@163.net
'************************************************
%>


读邮件


<%
SET POP3=session("POP3")
     x = POP3.Connect()
     If x <> 0 Then
        Response.Write "连接错误: " + CStr(x)
        POP3.Disconnect
     End If
     y = POP3.DownloadHeaders
     j=pop3.GetMessageNumFromID(request.querystring("id"))
     msg = POP3.DownloadSingleMessage(j)
     'Set Message Object to point to that downloaded message
     Set Message = POP3.Messages(msg)
     '显示邮件内容
     Response.Write replace(Message.bodytext,chr(13),"
")
    %>
<%
'如果该邮件有附件,则显示附件文件名和文件大小
if message.Attachments.Count>0 then%>     


    

    
    
    <%
    For k = 1 To message.Attachments.Count
    Response.Write ("
文件名大小
")%>
    &attid=<%=k%>','getatt',',,scrollbars=yes');>