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 :

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
Mais je souhaite que les pièces jointes soient sauvegardées dézippées.
Quelles commande dois-je ajouter à mon code ci-dessus pour ce faire ?

Merci par avance pour votre aide.