Posez votre question Signaler

Vba excel ouvrir calendrier outlook spécifier

greg_1984 - Dernière réponse le 20 janv. 2010 à 21:28
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
Lire la suite 

Vba excel ouvrir calendrier outlook spécifier »

2 réponses
Réponse
+0
moins plus
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
greg1984 - 20 janv. 2010 à 21:28
merci Eriiic,

ça va surement m'aider pour la suite.
Ajouter un commentaire
Ce document intitulé « vba excel ouvrir calendrier outlook spécifier » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?