Macro en vba pour effacer les fichiers joints d'un ou plusieurs messages...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 583 fois - Téléchargée 29 fois

Contenu du snippet

Macro en VBA pour effacer les fichiers joints d'un ou plusieurs messages...
Après sélection de un ou plusieurs messages on efface tous les fichiers joints d'un seul clic.

Source / Exemple :


Sub EffacerLesFichiersJoints()
        Dim OutlookApp As New Outlook.Application
        Dim OutlookExp As Outlook.Explorer
        Dim OutlookSélex As Outlook.Selection
        Dim x As Integer
        Dim i As Integer
         'Procedure de traitement des messages
        Set myOlApp = CreateObject("Outlook.Application")
        Set OutlookApp = CreateObject("Outlook.Application")
        Set OutlookExp = OutlookApp.ActiveExplorer
        Set OutlookSélex = OutlookExp.Selection
        If OutlookSélex.Count < 1 Then
            MsgBox "Aucun message n'est sélectionné.", vbExclamation, "Erreur"
            Exit Sub
        End If

        For x = 1 To OutlookSélex.Count
            Set myItem = OutlookSélex.Item(x)
                If myItem.Attachments.Count > 0 Then
                    NbFic = myItem.Attachments.Count
                    For pi = 1 To myItem.Attachments.Count
                        Set myattachments = myItem.Attachments
                        'Efface la piece attachee
                        myattachments.Remove 1
                        'myattachments.Item(pi).Delete
                        Set myattachments = Nothing
                    Next
                Else
                    MsgBox "Le message ne contient pas de fichier joint.", vbExclamation, "Erreur"
                End If
        Next x
        Set myattachments = Nothing
        Set myItem = Nothing

End Sub

Conclusion :


me donner votre avis et les améliorations à y apporter !!

A voir également

Ajouter un commentaire

Commentaires

alo111
Messages postés
2
Date d'inscription
vendredi 1 octobre 2010
Statut
Membre
Dernière intervention
9 octobre 2010

peut ont appliquer ce code de telle façon a supprimer quelque pièce jointe et laisser d'autre d un seul mail qui contient plusieurs pj
cs_philzig
Messages postés
1
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
6 janvier 2009

Merci à tous pour vos commentaires...
Bonne année 2009
philzig
cs_tonymalt
Messages postés
1
Date d'inscription
mardi 30 décembre 2008
Statut
Membre
Dernière intervention
30 décembre 2008

bonjour
je rejoins l'avis de HARDT68 au sujet de la traçabilité, le nom de la piece jointe effacée ajoutée à la fin du mail serait un plus.
cs_hardt68
Messages postés
1
Date d'inscription
mercredi 28 mars 2007
Statut
Membre
Dernière intervention
28 mars 2007

Cette macro est très interessante pour l'archivage des emails, sans les pièces jointes et je remercie pour son travail. Une amélioration interessante (à mon sens) serait d'ajouter en fin d'email, le nom des pièces jointe effacées. Cela permettrait un minimum de traçabilité tout en desengorgeant les dossiers mail...
Je ne sais hélas pas programmer, mais peut-être en est-il parmi vous qui saurez apporter des contributions constructives...
obsess
Messages postés
1
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
5 mai 2006

sais tu comment faire pour imprimer les fichiers joints ,??

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.