recojer carpetas publicas de Exchange Hola a todo@s:
Estoy intentando recoger los grupos de noticias de las carpetas publicas en un servidor Exchange 2003. El codigo que estoy usando es:
<%
CONST strServer = "serverExchange"
CONST strMailbox = "anonimo"
Dim objSession
Dim objMessages
Dim objOneMessage
Dim objInfoStores
Dim objInfoStore
Dim objTopFolder
Dim objFolders
Dim objSubFolder
Dim objTargetFolder
Dim strProfileInfo
Dim i
Dim bstrPublicRootID
strProfileInfo = strServer & vblf & strMailbox
Set objSession = Server.CreateObject("MAPI.Session")
objSession.Logon , , , False, , True, strProfileInfo
Set objInfoStores = objSession.InfoStores
'Recorremos recogiendo las carpetas publicas
For i = 1 To objInfoStores.Count
If objInfoStores.Item(i)= "Public Folders" Then
Set objInfoStore=objInfoStores.Item(i)
Exit For
End If
Next
bstrPublicRootID = objInfoStore.Fields.Item( &H66310102 ).Value
Set objTopFolder = objSession.GetFolder(bstrPublicRootID, objInfoStore.ID)
Set objFolders = objTopFolder.Folders
Set objFolder = objFolders.GetFirst()
Do Until objFolder.Name = "Internet Newsgroups"
Set objFolder=objFolders.GetNext()
Loop
Set objMessages = objFolder.Messages
For Each objOneMessage in objMessagesff
Response.Write("objOneMessage.Subject = " & objOneMessage.Subject & "<br>")
Response.Write("objOneMessage.Text = " & objOneMessage.Text & "<br>")
Next
'Cerrar variable de sesion
Set objOneMessage = Nothing
Set objMessages = Nothing
Set objFolder = Nothing
Set objTopFolder = Nothing
Set objSession = Nothing
%>
Pero al ejecutar el codigo me da un error que dice:
Collaboration Data Objects error '000004f7'
[Collaboration Data Objects - [MAPI_E_NOT_FOUND(8004010F)]]
/microsoft.asp, línea 29
¿Elguien me sabria decir porque se produce este error?, ¿Es posible que sea porque mi servidor no es compatible con MAPI o no este configurado para ello?
Gracias a tod@s
