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
