access denied--outlook intance

[Damichel]

Estoy creando una applicacion vb.net que tome los contactos de outlook, para luego mostrarlos en un datagrid.Envio el encabezado del codigo

' Crea aplicacion Outlook .
Dim miOutlook As Outlook.Application = New Outlook.Application

' Obtiene namespace y la referencia al folder Contacts
Dim miNameSpace As Outlook.NameSpace = miOutlook.GetNamespace("MAPI")

Dim oContactos As Outlook.MAPIFolder = miNameSpace.GetDefaultFolder(Outlook.OlDefaultFold ers.olFolderContacts)

No he podido avanzar ya que cuando lo corro me envia el siguiente error
"System.UnauthorizedAccessException: Access is denied.

Adicione el usuario ASP.NET y le di todos los permisos sobre la carpeta, pero me sigue enviando el mismo error .

Esperarando pronta respuesta

Gracial mil

[RootK]

Recuerda tener la firma de usuario y password de la cuenta a la que quieres accesar.. te faltaría algo como ésto:

miNameSpace.Logon("usuario", "password", Nothing, Nothing)

Es muy independiente usar la la MAPI de outlook con un usuario asp.net, ya que estas trabajando con cuentas diferentes...

Pruebalo y nos cuentas que tal ..

Salu2

[Damichel]

Hola Rootk, gracias por contestar...agregue el logon, pero me sigue enviando el mismo error...no soy muy experta en esto, y he estado investigando en internet..pero solo aparece el error pero no la solucion y no se que estoy haciendo mal. Alli t envio el codigo...para simplificar solo le agregue unas labels solo para verificar si me traina el resultado...pero todavia me aparece acceso no autorizado.



Dim miOutlook As Outlook.Application = New Outlook.Application

Dim miNameSpace As Outlook.NameSpace = miOutlook.GetNamespace("MAPI")
Dim oContactos As Outlook.MAPIFolder = miNameSpace.GetDefaultFolder(Outlook.OlDefaultFold ers.olFolderContacts)



'** Dim Profile As String = "netserver.evolusoft.hq" & " " & "Dayana Contreras"

' miNameSpace.Logon("usuario", "password", Nothing, Nothing)
miNameSpace.Logon("dayana", "lokita", Nothing, Nothing)

Dim oItems As Outlook.Items = oContactos.Items
Dim oCt As Outlook.ContactItem

Dim iCount As Integer
iCount = 0

oCt = CType(oItems.GetFirst(), Outlook.ContactItem)

'***---***
Label1.Text = oCt.FullName
Label2.Text = oCt.Email1Address
'***---***

Do While Not oCt Is Nothing
iCount += 1
Loop
Label3.Text = iCount.ToString

miOutlook = Nothing
oItems = Nothing
oCt = Nothing



gracias

[RootK]

Para mi que el problema viene de tu usuario y password.

Copia y pega éste código... (ya lo probé y me funciona perfecto)

Dim miOutlook As Outlook.Application = New Outlook.Application

Dim miNameSpace As Outlook._NameSpace = miOutlook.GetNamespace("MAPI")
miNameSpace.Logon("usuario", "password", Nothing, Nothing)

Dim oContactos As Outlook.MAPIFolder = miNameSpace.GetDefaultFolder(Outlook.OlDefaultFold ers.olFolderContacts)

Dim oItems As Outlook.Items = oContactos.Items
Dim oItem As Outlook.ContactItem = CType(oItems.GetFirst(), Outlook.ContactItem)
Label1.Text = oItem.FullName
Label2.Text = oItem.Email1Address

Label3.Text = oContactos.Items.Count.ToString()


miOutlook = Nothing

Espero que ahora si te funcione..

[Damichel]

gracias por la ayuda....todavia me sigue saliendo acceso denegado..asi que me imagino que sera algo en mi pc..puesto q a ti te funciona bien
te agradezco que te hallas tomado el tiempo en ayudarme ....


Esto es parte de lo q me aparece....x eso decia antes lo de los permisos.......

ASP.NET is not authorized to access the requested resource. Consider granting access rights to the resource to the ASP.NET request identity. ASP.NET has a base process identity (typically {MACHINE}\ASPNET on IIS 5 or Network Service on IIS 6) that is used if the application is not impersonating. If the application is impersonating via <identity impersonate="true"/>, the identity will be the anonymous user (typically IUSR_MACHINENAME) or the authenticated request user.

To grant ASP.NET write access to a file, right-click the file in Explorer, choose "Properties" and select the Security tab. Click "Add" to add the appropriate user or group. Highlight the ASP.NET account, and check the boxes for the desired access.

Source Error:
Line 133:
Line 135: Dim miOutlook As Outlook.Application = New Outlook.Application
Line 136:
Line 137: Dim miNameSpace As Outlook._NameSpace = miOutlook.GetNamespace("MAPI")



Chao y nuevamente gracias.......cuidate

[RootK]

Ahh..ok.. ya vi el porque del problema.. es que lo estas intentando hacer desde una página,.. y los ejemplos que te puse son para win forms, console app, etc..

Es que en un ambiente web es diferente porque debes señalar el dominio, entradas a los puertos pop3, etc... además de implementar protocolos de seguridad, especificamente SSL, ya que en web es algo público y hacerlo como tal no es cosa sencilla, es como si quisieras hacer un OWA.

Te recomiendo que si estas empezando primero veas como funciona el acceso desde un win form, para despues ir implementando los demas puntos...

Salu2

[Damichel]

ya esta solucionado.....gracias ...el error era por permisos..le agregue el usuario aspnet en el IIS le di los permisos y ya corrio...
gracias mil por tu tiempo ..nos estamos viendo