Sharepoint Forum

Ask Question   UnAnswered
Home » Forum » Sharepoint       RSS Feeds

Public folder Web part

  Asked By: Imdrajit    Date: Jan 06    Category: Sharepoint    Views: 2282

I need some help here to create a web part, which display the tree
view of Public folders and user can access any of folder from that
hierarchy same way as they access in outlook 2000.

For your refernce I am able to display content of anyone folder but
not the complete hierarchy! can we do this usiong asp/vbscript.



3 Answers Found

Answer #1    Answered By: Manohar Kothare     Answered On: Jan 06

Well I think you can I have access  to my public  folders from an asp page but
I'm stuck I don't know where in the portal I can place my asp as a web  part.

Answer #2    Answered By: Terri Wolfe     Answered On: Jan 06

You can convert your asp to vbs and put it in. If you send me the asp
code (wish i would apresiate it alot) i will send you back the web
part and you can import it.

Answer #3    Answered By: Andre Mason     Answered On: Jan 06

I have also tried using asp file
But I am getting this error:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required
line 48

Can anyone please help  me in debugging this what object or string I
have to place there

the code is

<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html;charset=iso-
<TITLE>Document Title</TITLE>

<!-- Insert HTML here -->
CONST strServer = "MyServer"
CONST strMailbox = "MyMailBox"
Dim objSession
Dim objMessages
Dim objOneMessage
Dim objInfoStores
Dim objInfoStore
Dim objTopFolder
Dim objFolders
Dim objFolder
Dim objSubFolder
Dim objTargetFolder
Dim strProfileInfo
Dim i
Dim bstrPublicRootID

strProfileInfo = strServer & vblf & strMailbox
Set objSession = Server.CreateObject("MAPI.Session")
objSession.Logon "", "", False, True, 0, True, strProfileInfo
'objSession.Logon , , , False, , True, strProfileInfo
Set objInfoStores = objSession.InfoStores

For i = 1 To objInfoStores.Count
If objInfoStores.Item(i)= "Public Folders" Then
Set objInfoStore=objInfoStores.Item(i)
Exit For
End If

bstrPublicRootID = objInfoStore.Fields.Item( &H66310102 ).Value
Set objTopFolder = objSession.GetFolder(bstrPublicRootID, _
Set objFolders = objTopFolder.Folders
Set objFolder = objFolders.GetFirst()

Do Until objFolder.Name = "All Public Folders"
Set objFolder=objFolders.GetNext()

Set objMessages = objFolder.Messages
Response.Write("10 objMessages.Count = " & objMessages.Count _
& "<br>")
For Each objOneMessage in objMessages
Response.Write("objOneMessage.Subject = " & _
objOneMessage.Subject & "<br>")
Response.Write("objOneMessage.Text = " & objOneMessage.Text & _
"<br> <br>")

Set objOneMessage = Nothing
Set objMessages = Nothing
Set objFolder = Nothing
Set objTopFolder = Nothing
Set objSession = Nothing

Didn't find what you were looking for? Find more on Public folder Web part Or get search suggestion and latest updates.