[OL-2002] inscrire une ^tâche dans un sous dossier

[pierre3401]

Bonjour,

Avec le code ci-dessous, je peux depuis excel créer un sous dossier de tâches et inscrire une tâche...

Le problème, c'est que je ne trouve pas le moyen pour que la tâches soit bien inscrite dans le sous-dossier qui vien d'être créé, elle s'inscrit toujours à la racine

Puis-je solliciter votre aide ?

Grand merci,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub CreateDossierTask()
 
    Dim monOutlook As New Outlook.Application
    Dim ns As NameSpace
    Dim dossier As MAPIFolder
    Dim myNewFolder As MAPIFolder
 
    Set ns = monOutlook.GetNamespace("MAPI")
    Set dossier = ns.Folders("Mailbox - BOULANGER PIERRE").Folders("Tasks")
    Set myNewFolder = dossier.Folders.Add("Test")
 
'appeller la fonction de création de la tâche
Creer_TacheOutlook
 
End Sub
 
Sub Creer_TacheOutlook()
 
    ' Dimensionner l'objet Outlook
    Dim oOutlook As Outlook.Application
    ' Dimensionner la tâche
    Dim oTache As TaskItem
 
        Set oOutlook = CreateObject("Outlook.Application")     ' Créer la tâche
        Set oTache = oOutlook.CreateItem(olTaskItem)           ' Affecter les propriétés à la tâche
 
 
With oTache
    .Status = olTaskInProgress
    .Importance = olImportanceHigh
    .StartDate = Now  'Date de épart
    .DueDate = Now + 5   ' Echéance
    .Subject = "Test " ' Objet
    .Body = "Test de création de tâches dans un sous-dossier"  ' texte explicatif
    .Save ' Enregistrer la nouvelle tâche
End With
 
' vider les objets pour libérer la mémoire
Set oTache = Nothing
Set oOutlook = Nothing
 
End Sub