Outlook 2013 Affichage VBA Calendrier partagé

J'ai du code VBa qui ouvre le calendrier dans une nouvelle fenêtre, mais j'en ai maintenant besoin pour afficher les calendriers partagés que j'ai déjà configurés, mais le seul code que je peux trouver Crée un nouveau calendrier partagé dans la nouvelle fenêtre Je viens de créer

Sub DispCalendars()
    Dim myOlApp As Outlook.Application
    Dim myNms As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim myRecipient As Outlook.Recipient
    Dim myExplorer As Outlook.Explorer
    Dim SharedFolder As Outlook.MAPIFolder

    Set myOlApp = CreateObject("Outlook.Application")

    Set myNms = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNms.GetDefaultFolder(olFolderCalendar)

    Set myExplorer = myOlApp.ActiveExplorer
    Set myExplorer.CurrentFolder = myFolder
    Set myRecipient = myNms.CreateRecipient("Bob the Builder")
    Set SharedFolder = myNms.GetSharedDefaultFolder(myRecipient, olFolderCalendar)
    myExplorer.SelectFolder SharedFolder
End Sub

Si je change de partie 'myRecipient' en juste un nom, il y a des erreurs et je n'arrive pas à m'en sortir.

Here is something how it looks (when I do it manually) and I would like to recreate it in code.

1
ajouté édité
Vues: 1
Le problème est donc que GetSharedDefaultFolder renvoie une erreur pour un nom particulier? Quelle est l'erreur exacte? Outlook peut-il le résoudre si vous tapez la même valeur dans la zone d'édition À et appuyez sur Ctrl + K?
ajouté l'auteur Dmitry Streblechenko, source

1 Réponses

Je pense que vous manquez la ligne pour montrer le dossier sélectionné dans Outlook

    myExplorer.CurrentFolder = SharedFolder 

Je suppose qu'au lieu de "selectfolder" -line ... aussi certaines des autres lignes pourraient être supprimées, en particulier

Définissez myExplorer.CurrentFolder = myFolder

car il ne fait pas sende pour ouvrir deux dossiers l'un après l'autre dans un Sub.

Le tiens Max

1
ajouté