Agregar buz贸n de otro usuario en Outlook desde VB
Me gustar铆a agregar un buz贸n de Outlook de otro usuario desde c贸digo visual basic, en el que he compartido un calendario. Utilizo Outlook 2002.
Hasta ahora he conseguido mostrarlo como si hubiera seleccionado en Outlook Archivo\Abrir\Carpeta de otro usuario, pero no me sirve.
Lo que necesito es agregar el buz贸n para que aparezca en la lista de carpetas, como b煤z贸n adicional.
Gracias
Private Sub cmdBilatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBilatu.Click
Dim olapp As New Outlook.Application
Dim olns As Outlook.NameSpace
Dim myrecipient As Outlook.Recipient
Dim Egutegia As MAPIFolder
olns = olapp.GetNamespace("MAPI")
myrecipient = olns.CreateRecipient("10. Gela")
myRecipient.Resolve()
If myrecipient.Resolved Then
Egutegia = olns.GetSharedDefaultFolder _
(myrecipient, OlDefaultFolders.olFolderCalendar)
Egutegia.Display()
End If
End Sub
Hasta ahora he conseguido mostrarlo como si hubiera seleccionado en Outlook Archivo\Abrir\Carpeta de otro usuario, pero no me sirve.
Lo que necesito es agregar el buz贸n para que aparezca en la lista de carpetas, como b煤z贸n adicional.
Gracias
Private Sub cmdBilatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBilatu.Click
Dim olapp As New Outlook.Application
Dim olns As Outlook.NameSpace
Dim myrecipient As Outlook.Recipient
Dim Egutegia As MAPIFolder
olns = olapp.GetNamespace("MAPI")
myrecipient = olns.CreateRecipient("10. Gela")
myRecipient.Resolve()
If myrecipient.Resolved Then
Egutegia = olns.GetSharedDefaultFolder _
(myrecipient, OlDefaultFolders.olFolderCalendar)
Egutegia.Display()
End If
End Sub