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
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
https://codes-sources.commentcamarche.net/source/32377-macro-en-vba-pour-effacer-les-fichiers-joints-d-un-ou-plusieurs-messages
9 oct. 2010 à 10:13
6 janv. 2009 à 18:39
Bonne année 2009
philzig
30 déc. 2008 à 09:56
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.
28 mars 2007 à 12:12
Je ne sais hélas pas programmer, mais peut-être en est-il parmi vous qui saurez apporter des contributions constructives...
5 mai 2006 à 17:04
28 juin 2005 à 21:38
l'incrementation est présente ce qui manque dans beaucoup de programmes. Ici ton prog est bien lisible.
28 juin 2005 à 09:16
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 ... )
28 juin 2005 à 09:13
# 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)