Bonjour à tous,
J'utilise le script suivant (merci Northben) associé à une règle Outlook pour sauvegarder automatiquement sur mon disque des pièces jointes .zip reçues par mail :
Mais je souhaite que les pièces jointes soient sauvegardées dézippées.
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 Public Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String saveFolder = "C:\Users\..." For Each objAtt In itm.Attachments If Right(objAtt.FileName, 3) = "zip" Then objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName Set objAtt = Nothing End If Next End Sub
Quelles commande dois-je ajouter à mon code ci-dessus pour ce faire ?
Merci par avance pour votre aide.
Partager