vba excel ouvrir calendrier outlook spécifier Fermé

Question

Bonjour à tous,

Voilà j'ai réussi à écrire un code pour ouvrir le calendrier Outlook à partir de Excel avec ce code:

Dim mOutlookApp As New Outlook.Application
Dim mNameSpace As Outlook.Namespace
    Set mNameSpace = mOutlookApp.GetNamespace("MAPI")
    mNameSpace.GetDefaultFolder(olFolderCalendar).Display
Set mNameSpace = Nothing
Set mOutlookApp = Nothing

'maintenant je n'arrive pas à spécifier quel calendrier je voudrais afficher, car j'en ai 2. 
Le calendrier Outlook de base et un sous-calendrier personnel nommé "anniversaire".

Est-ce que quelqu'un peut m'aider s.v.p

eriiic · Answer

Bonsoir,

je ne programme pas sur outlook mais tu peux peut-être t'inspirer de l'aide sur Folders :
Utilisation de l'objet Folders
La propriété Folders permet de renvoyer l'objet Folders à partir d'un objet NameSpace ou d'un autre objet MAPIFolder.

Pour renvoyer un seul objet MAPIFolder, utilisez la propriété Folders(index), où index est le nom ou le numéro d'index. Les noms de dossiers respectent la casse.

Cet exemple Visual Basic pour Applications (VBA) montre comment renvoyer le dossier nommé « Old Contacts ».

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = _
    myNameSpace.GetDefaultFolder(olFolderContacts)
Set myNewFolder = myFolder.Folders("Old Contacts")
		
Cet exemple Visual Basic pour Applications montre comment renvoyer le premier dossier.

Set myNewFolder = myFolder.Folders(1)
eric

halozero1530 · Answer

Bonjour,

As tu trouvé un moyen d'ouvrir ton 2e calendrier ?

Si oui, comment ?

Vba excel ouvrir calendrier outlook spécifier

2 réponses