Macro partagée sur le forum
Sub Step4(Item As Outlook.MailItem)
Set attachs = Item.Attachments
For Each attach In attachs
file = attach.FileName
If LCase(Right(file, 3)) = "xls" Then
attach.SaveAsFile "X:\1-XLS_SAV\" & file
End If
Next
End Sub
Macro partagée sur le forum
Sub Step4(Item As Outlook.MailItem)
Set attachs = Item.Attachments
For Each attach In attachs
file = attach.FileName
If LCase(Right(file, 3)) = "xls" Then
attach.SaveAsFile "X:\1-XLS_SAV\" & file
End If
Next
End Sub
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager