请问有什么办法把公共文件夹的文件列表调用在首页上显示呢？
请问有什么办法把公共文件夹的文件列表调用在首页上显示呢？我的想法是把公共文件夹的功能当做公司内部的信息、通知发布区的。这样再把他的列表调用显示在进入邮箱的首页中。
请问高手朋友们有什么办法可以做到吗？
谢谢 这个做asp开发能实现 当然可以，我是这样做的
<%
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
%>
页:
[1]
