Bonjour,
je ne suis pas spécialiste vb, mais pour des besoins urgente je dois y plonger.
j'ai un code qui est censé extraire les pieces jointes d'un mail reçu, avec une regle effectué pour executer le script.
Le souci est que à la recption d'un mail, seul le mail selectionné par la souris qui est traité , mais pas le mail recu.
dans le code j'ai remarqué qu'il y a un foreach sur le mail selectionné (For Each myItem In myOlSel) et franchement je ne sais pas quoi faire, avez vous une idée?
merci.
cde:
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57 Sub SaveAttachment() 'Declaration Dim myItems, myItem, myAttachments, myAttachment As Object Dim myOrt As String Dim myOlApp As New Outlook.Application Dim myOlExp As Outlook.Explorer Dim myOlSel As Outlook.Selection Dim i As Integer 'Boîte de dialogue simple pour le chemin de sauvegarde myOrt = InputBox("Destination", "Save Attachments", "C:\temp\") On Error Resume Next For Each oMail In myFolder.Items 'Actions sur les objets sélectionnés Set myOlExp = myOlApp.ActiveExplorer Set myOlSel = myOlExp.Selection 'boucle For Each myItem In myOlSel Set myAttachments = myItem.Attachments If myAttachments.Count > 0 Then 'Ajoute une remarque dans le corps du message myItem.Body = myItem.Body & vbCrLf & _ "pièce jointe enlevée:" & vbCrLf 'for all attachments do... For i = 1 To myAttachments.Count 'save them to destination myAttachments(i).SaveAsFile myOrt & _ myAttachments(i).DisplayName myItem.Body = myItem.Body & _ "File: " & myOrt & _ myAttachments(i).DisplayName & vbCrLf Next i 'Sauvegarde le message sans ses pièces jointes myItem.Save End If Next Set myItems = Nothing Set myItem = Nothing Set myAttachments = Nothing Set myAttachment = Nothing Set myOlApp = Nothing Set myOlExp = Nothing Set myOlSel = Nothing Next End Sub
Partager