Rapport de message :*
 

créer et enregistrer une tâche dans un sous dossier de tâches outlook.

Titre du sujet : créer et enregistrer une tâche dans un sous dossier de tâches outlook.
par pierre3401 le 23/01/2012 09:37:27

Bonjour,

Avec le code ci-dessous, j'arrive à créer un sous-dossier de tâches dans outlook et à créer une tâche, mais le problème est que la tâche ne s'enregistre pas dans le sous-dossier qui vient d'être créé, mais à la racine du dossier de tâches...
Quelqu"un d'assez aimable aurait-il la solution ?

Merci d'avance.


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