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
merci d'avance
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
Partager