请问有什么办法把公共文件夹的文件列表调用在首页上显示呢？

jae

请问有什么办法把公共文件夹的文件列表调用在首页上显示呢？

我的想法是把公共文件夹的功能当做公司内部的信息、通知发布区的。这样再把他的列表调用显示在进入邮箱的首页中。


请问高手朋友们有什么办法可以做到吗？

谢谢

rayer

这个做asp开发能实现

air831

当然可以，我是这样做的

<%
dim pf1
set pf1 = server.createobject("easymail.PubFolderManager")

dim pfvl
set pfvl = server.createobject("easymail.PubFolderViewLimit")

allnum = pf1.PubFoldersCount

i = 0

dim pfilename
dim count
vi = 0

do while i < allnum
        pf1.GetFolderInfoByIndex i, pfilename, admin, permission, name, createTime, count, maxid, maxitem, maxsize

        canView = false

        if admin = Session("wem") or isadmin() = true then
                canView = true
                vi = vi + 1
        else
                pfvl.Load pfilename
                if pfvl.IsShow(Session("mail")) = true then
                        canView = true
                        vi = vi + 1
                end if
        end if

if canView = true then
        Response.Write "<tr><td width=54 rowspan=2 align='center' ><img src='images/info.gif' width=15 height=15></td><td width=236  ><a href='showpf.asp?fileid=" & Server.URLEncode(pfilename) & "&" & getGRSN() & "' style='text-decoration: none'>" & server.htmlencode(name) & "</a></td>"
        Response.Write "<td width='244' align='center'>共 <font color=#FF0000><b>" & count & "</b></font> 条</td></tr><tr><td colspan=2 height=1 bgcolor='#CCCCCC'></td></tr>"
end if

pfilename = NULL
admin = NULL
count = NULL
    i = i + 1
loop

set pf1=noting
set pfvl=noting
%>