Bonjour,
j'ai créé une petite macro afin d'ouvrir plusieurs fenêtres avec des vues différentes au lancement de Outlook. Cela fonctionne très bien pour un calendrier sur 14 jours, une liste de tâches, mais je coince sur un point pour un calendrier avec affichage 1 jour. Je voudrais enlever la liste de tâche qui se trouve sous le calendrier, la 'daily task list', mais je ne trouve pas.
Quelqu'un a-t-il une idée ?
La partie du code pour l'affichage du calendrier 1 jour avec la Todo Bar:
Merci d'avance poru votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Dim myExplorers As Outlook.Explorers Dim myOlExpl As Outlook.Explorer Dim myFolder As Outlook.Folder Dim myCalView As Outlook.CalendarView Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar) Set myOlExpl = myExplorers.Add(myFolder, olFolderDisplayNormal) myOlExpl.ShowPane olToDoBar, True myOlExpl.Display myOlExpl.WindowState = olMaximized Set myCalView = myOlExpl.CurrentView myCalView.CalendarViewMode = olCalendarViewDay myCalView.Apply
Fred
Partager