Bonjour,
Dans calendrier d'Outlook 2003, en plus de mes rendez-vous journaliers, j'ai
créé depuis le 20 avril 2005, un rendez-vous périodique chaque jour, qui
s'appelle A voir, dans lequel je mets des tâches complémentaires à faire, que
je pointe par VU, lorqu'elles sont faites.
Malheureusement, en voulant modifier la présentation de la périodicité à la
date du 10 juillet, j'ai effacé la période du 20 avril au 9 juillet !!! dans
laquelle se trouve mes tâches faites, puisqu'ils n'apparaissent plus à
l'écran.
Outlook conserve-t-il en mémoire, ces rendez-vous, malgré mon erreur de
manipulation ?
Merci pour votre aide.
--
dan
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bonjour
"dan101" a écrit dans le message de news:
| Bonjour, | Dans calendrier d'Outlook 2003, en plus de mes rendez-vous journaliers, j'ai | créé depuis le 20 avril 2005, un rendez-vous périodique chaque jour, qui | s'appelle A voir, dans lequel je mets des tâches complémentaires à faire, que | je pointe par VU, lorqu'elles sont faites. | Malheureusement, en voulant modifier la présentation de la périodicité à la | date du 10 juillet, j'ai effacé la période du 20 avril au 9 juillet !!! dans | laquelle se trouve mes tâches faites, puisqu'ils n'apparaissent plus à | l'écran. | Outlook conserve-t-il en mémoire, ces rendez-vous, malgré mon erreur de | manipulation ? | Merci pour votre aide. | -- | dan
J'ai bien peur que non. Mais si tu veux en avoir le coeur net, tu tapes ALT+F11, tu sélectionnes "ThisOutlookSession" à gauche et dans la fenêtre de droite, tu colles la fonction ci-dessous
Ensuite, tu cliques n'importe où dans la fonction et tu appuyes sur la touche F8 (mode pas à pas) Pour dérouler le code jusqu'à la fin, F5
La ligne Debug.Print OlTaskItem.DueDate & " " & OlTaskItem.Subject peut être modifiée à ta convenance pour afficher les propriétés de la tache que tu veux (j'ai mis la date de fin prévue et la ligne d'objet)
Function ListTasks() As String
Dim OlApp As Outlook.Application Dim OlMAPI As Outlook.NameSpace Dim OlFolder As Outlook.MAPIFolder Dim OlItems As Outlook.Items Dim OlTaskItem As Outlook.TaskItem
Set OlApp = GetObject(, "Outlook.Application") If OlApp Is Nothing Then: Set OlApp = CreateObject("Outlook.Application")
Set OlMAPI = OlApp.GetNamespace("MAPI") Set OlFolder = OlMAPI.GetDefaultFolder(olFolderTasks) Set OlItems = OlFolder.Items
For Each OlTaskItem In OlItems
Debug.Print OlTaskItem.DueDate & " " & OlTaskItem.Subject Next OlTaskItem
Set OlTaskItem = Nothing Set OlItems = Nothing Set OlFolder = Nothing Set OlMAPI = Nothing Set OlApp = Nothing
"dan101" <dan101@discussions.microsoft.com> a écrit dans le message de news:
8EE50249-0F31-47BF-887B-9719854D6591@microsoft.com...
| Bonjour,
| Dans calendrier d'Outlook 2003, en plus de mes rendez-vous journaliers, j'ai
| créé depuis le 20 avril 2005, un rendez-vous périodique chaque jour, qui
| s'appelle A voir, dans lequel je mets des tâches complémentaires à faire, que
| je pointe par VU, lorqu'elles sont faites.
| Malheureusement, en voulant modifier la présentation de la périodicité à la
| date du 10 juillet, j'ai effacé la période du 20 avril au 9 juillet !!! dans
| laquelle se trouve mes tâches faites, puisqu'ils n'apparaissent plus à
| l'écran.
| Outlook conserve-t-il en mémoire, ces rendez-vous, malgré mon erreur de
| manipulation ?
| Merci pour votre aide.
| --
| dan
J'ai bien peur que non.
Mais si tu veux en avoir le coeur net, tu tapes ALT+F11, tu sélectionnes "ThisOutlookSession" à
gauche et dans la fenêtre de droite, tu colles la fonction ci-dessous
Ensuite, tu cliques n'importe où dans la fonction et tu appuyes sur la touche F8 (mode pas à
pas)
Pour dérouler le code jusqu'à la fin, F5
La ligne Debug.Print OlTaskItem.DueDate & " " & OlTaskItem.Subject
peut être modifiée à ta convenance pour afficher les propriétés de la tache que tu veux (j'ai
mis la date de fin prévue et la ligne d'objet)
Function ListTasks() As String
Dim OlApp As Outlook.Application
Dim OlMAPI As Outlook.NameSpace
Dim OlFolder As Outlook.MAPIFolder
Dim OlItems As Outlook.Items
Dim OlTaskItem As Outlook.TaskItem
Set OlApp = GetObject(, "Outlook.Application")
If OlApp Is Nothing Then: Set OlApp = CreateObject("Outlook.Application")
Set OlMAPI = OlApp.GetNamespace("MAPI")
Set OlFolder = OlMAPI.GetDefaultFolder(olFolderTasks)
Set OlItems = OlFolder.Items
For Each OlTaskItem In OlItems
Debug.Print OlTaskItem.DueDate & " " & OlTaskItem.Subject
Next OlTaskItem
Set OlTaskItem = Nothing
Set OlItems = Nothing
Set OlFolder = Nothing
Set OlMAPI = Nothing
Set OlApp = Nothing
| Bonjour, | Dans calendrier d'Outlook 2003, en plus de mes rendez-vous journaliers, j'ai | créé depuis le 20 avril 2005, un rendez-vous périodique chaque jour, qui | s'appelle A voir, dans lequel je mets des tâches complémentaires à faire, que | je pointe par VU, lorqu'elles sont faites. | Malheureusement, en voulant modifier la présentation de la périodicité à la | date du 10 juillet, j'ai effacé la période du 20 avril au 9 juillet !!! dans | laquelle se trouve mes tâches faites, puisqu'ils n'apparaissent plus à | l'écran. | Outlook conserve-t-il en mémoire, ces rendez-vous, malgré mon erreur de | manipulation ? | Merci pour votre aide. | -- | dan
J'ai bien peur que non. Mais si tu veux en avoir le coeur net, tu tapes ALT+F11, tu sélectionnes "ThisOutlookSession" à gauche et dans la fenêtre de droite, tu colles la fonction ci-dessous
Ensuite, tu cliques n'importe où dans la fonction et tu appuyes sur la touche F8 (mode pas à pas) Pour dérouler le code jusqu'à la fin, F5
La ligne Debug.Print OlTaskItem.DueDate & " " & OlTaskItem.Subject peut être modifiée à ta convenance pour afficher les propriétés de la tache que tu veux (j'ai mis la date de fin prévue et la ligne d'objet)
Function ListTasks() As String
Dim OlApp As Outlook.Application Dim OlMAPI As Outlook.NameSpace Dim OlFolder As Outlook.MAPIFolder Dim OlItems As Outlook.Items Dim OlTaskItem As Outlook.TaskItem
Set OlApp = GetObject(, "Outlook.Application") If OlApp Is Nothing Then: Set OlApp = CreateObject("Outlook.Application")
Set OlMAPI = OlApp.GetNamespace("MAPI") Set OlFolder = OlMAPI.GetDefaultFolder(olFolderTasks) Set OlItems = OlFolder.Items
For Each OlTaskItem In OlItems
Debug.Print OlTaskItem.DueDate & " " & OlTaskItem.Subject Next OlTaskItem
Set OlTaskItem = Nothing Set OlItems = Nothing Set OlFolder = Nothing Set OlMAPI = Nothing Set OlApp = Nothing
