bonjour,

j'ai ne macro qui crée une tache en reprenant les informations du mail sélectionner dont voici le code qui fonctionne et je souhaiterai à cela, que les pièces jointes des mails soient jointes à la tache, car au final de la macro je supprime le mail
je voudrai donc que toutes les infos du mail soit reproduites dans la tache
j'ai essayé en liant les attachemts mais pas moyen

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
    Dim objOutlook As New Outlook.Application
    Set objOutlook = Outlook.Application
 
    'partie selection du mail
    Dim myNameSpace As Outlook.NameSpace
    Set myNameSpace = objOutlook.GetNamespace("MAPI")
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
 
    Set objExplorer = objOutlook.ActiveExplorer
    Set objSelection = objExplorer.Selection
 
    Dim MaTache As Outlook.TaskItem
    'creation d'une tache pour chaque mail selectioné
    For Each objmail In objSelection
 
        Set MaTache = objOutlook.CreateItem(olTaskItem) 'Instance de la nouvelle tâche
        With MaTache
            .Subject = objmail.Subject '"Mon Sujet de Tâche"
            .Body = objmail.Body '"Le texte de ma tâche"
            .Categories = "0 A Suivre"
 
        End With
 
        MaTache.Save
        objMail.Delete
 
    Next
 
    'Vidage des instances
    Set objOutlook = Nothing
    Set MaTache = Nothing
merci d'avance