MACRO EN VBA POUR EFFACER LES FICHIERS JOINTS D'UN OU PLUSIEURS MESSAGES...

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 28 juin 2005 à 09:13
alo111 Messages postés 2 Date d'inscription vendredi 1 octobre 2010 Statut Membre Dernière intervention 9 octobre 2010 - 9 oct. 2010 à 10:13
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/32377-macro-en-vba-pour-effacer-les-fichiers-joints-d-un-ou-plusieurs-messages

alo111 Messages postés 2 Date d'inscription vendredi 1 octobre 2010 Statut Membre Dernière intervention 9 octobre 2010
9 oct. 2010 à 10:13
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
6 janv. 2009 à 18:39
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
30 déc. 2008 à 09:56
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
28 mars 2007 à 12:12
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
5 mai 2006 à 17:04
sais tu comment faire pour imprimer les fichiers joints ,??
Jean_Elens Messages postés 53 Date d'inscription dimanche 29 mai 2005 Statut Membre Dernière intervention 16 octobre 2006
28 juin 2005 à 21:38
Essaie de verifier les declarations de var. il en manque et des variables sont inutilisées. Essaie de documenter un max c'est souvent un bon point.

l'incrementation est présente ce qui manque dans beaucoup de programmes. Ici ton prog est bien lisible.
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 25
28 juin 2005 à 09:16
Autre remrque, vue trop tard ...

La ligne suivante, à la sortie de la boucle "For x" n'est pas nécessaire. C'est déjà fait (et très bien fait) à l'intérieur de la boucle.

#
# Set myattachments = Nothing


Et de toutes façons, myattachements n'a pas été déclaré (Dim myattachements As ... )
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 25
28 juin 2005 à 09:13
A quoi sert cette ligne ? Cette instance n'est pas utilisée ...
# Set myOlApp = CreateObject("Outlook.Application")

Tu peux aussi assigner Nothing à OutlookApp à la fin de ta procédure.

Dernier point : Les accents dans les noms de variable, ce n'est pas super propre, et çà peut encore générer des problèmes dans certains éditeurs. A éviter, quel que soit le langage utilisé.

A part çà, tout va bien. Bonne source. :o)
Rejoignez-nous