Nettoyage des boites aux lettres (MP)

Participez et suggérez des améliorations
Nouveaux thèmes ? Questions sur l'utilisation
Répondre
MARS
Messages : 1800
Enregistré le : 31 mars 2013, 20:38
Localisation : France
Contact :

Nettoyage des boites aux lettres (MP)

Message par MARS » 29 déc. 2016, 15:53

Voici la fin d'année
le moment de purger vos boites aux lettres de la somme de MP que chacun emmagasine
Si vous désirez les conserver voici un moyen

En bas de chaque page de la boite de "réception" de vos MP ou de "éléments envoyés"
vous avez un choix "exporter ce dossier" , vous pouvez choisir dans l'onglet "exporter en XML"

1 exécuter cette fonction, en cliquant sur "aller"
Selon votre PC , l opération va soit ouvrir une nouvelle fenêtre avec le résultat
Soit vous demander de l'enregistrer dans un fichier bloc note
Dans un cas comme l'autre copier ensuit l'intégralité du code résultat
Et le coller dans un fichier Word résultat
recommencer l'opération 1, page par page de vos MP et copier dans le Word a la suite

Comme vous pouvez le constater le résultats n'est pas très lisible
Il faut donc convertir tout cela en un texte plus clair
Pour ceci vous pouvez créer une macro Word dont le travail va être de séparer les MP, mettre les titres etc.etc. Bref convertir les codes XML en quelque chose de compréhensible

2 créer cette macro dans word
Pour cela copier le code indiqué dans le post suivant et le coller dans CREER UNE MACRO (la cherchez ou est cette fonction, suivant votre version WORD) Sauvegardez cette MACRO

6 sauvegarder le fichier Word ainsi traduit Vous pouvez le réutiliser par la suite

Ensuite vous pouvez faire le ménager dans votre boite aux lettres

7 Forum : dans MP Cocher l'ensemble des messages a supprimer (plus simple tout supprimer en choisissant en bas a gauche TOUT COCHER ) Puis Fonction "Supprimer La sélection" , et "Aller"
Faire ceci et pour BOITE DE RECEPTION et pour ELEMENTS ENVOYES
MARS est le pseudo collectif de l'équipe en charge de la modération protection du forum. Il ne correspond pas une personne physique, conformément à la politique de non personnalisation du site.viewtopic.php?f=5&t=10

MARS
Messages : 1800
Enregistré le : 31 mars 2013, 20:38
Localisation : France
Contact :

detail de la macro word permettant de traduire les codes XML

Message par MARS » 29 déc. 2016, 15:53

ub ConversionXML()
'
' ConversionXML Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = True
End With
With Selection.Find
.Text = "<subject>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</subject>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=" "
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "De :<date>"
.Replacement.Text = "^lEnvoyé :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "De :<date>"
.Replacement.Text = "^lEnvoyé :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
ActiveWindow.ActivePane.VerticalPercentScrolled = 4
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</date><message>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
ActiveWindow.ActivePane.SmallScroll Down:=23
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</message></privmsg>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
MARS est le pseudo collectif de l'équipe en charge de la modération protection du forum. Il ne correspond pas une personne physique, conformément à la politique de non personnalisation du site.viewtopic.php?f=5&t=10

Avatar du membre
christine
Membre associatif
Messages : 8635
Enregistré le : 28 avr. 2013, 22:08
Localisation : Haute Normandie, proche St Valéry en caux (76)

Re: Nettoyage des boites aux lettres (MP)

Message par christine » 29 déc. 2016, 18:46

Voilà qui est fait, merci pour le mode d'emploi [asiatique.gif]
http://www.forum-bassin.com/Formulaire-Adhesion.pdf

Bassin bâché de 120m3 commencé en 2011, filtration maison. Membre du FCKC ....

MARS
Messages : 1800
Enregistré le : 31 mars 2013, 20:38
Localisation : France
Contact :

FAQ : Notifications de MP mais aucun MP n'est marqué non lu

Message par MARS » 20 juil. 2017, 16:57

l'icone "messages privés" me signale des MP en attente de lecture, mais a ouverture de la messagerie, il n'y a pas de nouveaux messages. Pourquoi ?
Parce que votre boite de réception a atteint le nombre maximum de MP permis.
En fait vous avez un petit message en dessous de BOITE DE RECEPTION
"Vous avez x messages en attente"
Il vous faut supprimer des MP et faire de la place
Si vous voulez les conserver vous avez ci dessous une procédure pour les sauvegarder avant de les effacer
MARS est le pseudo collectif de l'équipe en charge de la modération protection du forum. Il ne correspond pas une personne physique, conformément à la politique de non personnalisation du site.viewtopic.php?f=5&t=10

Avatar du membre
Lorenzo76
Membre associatif
Messages : 1467
Enregistré le : 22 mai 2014, 19:20
Localisation : Haute Normandie - Yvetot

Re: Nettoyage des boites aux lettres (MP)

Message par Lorenzo76 » 20 juil. 2017, 18:40

Bon certes ma boite MP n'ai pas pleine, mais j'arrive pas à sauvegarder les messages comme indiqué ci-dessous :whistle: :whistle:
Je dois vraiment être une buse ....... [cheesy.gif] [cheesy.gif] [cheesy.gif]

Il serait possible d'être plus précis, ou bien j'ai raté une étape [wink.gif] Je vais pas cacher que j'aime bien les photos ou copies d'écrans [wink.gif] Les images valent mieux que les grands discours [cheesy.gif] [cheesy.gif]
2 Koï (s) + 6 Tosaï 2015
Bassin: 42m3, Pompe 42m3, FAT Red-Label, Filtre SHARK 150/80 + Pompe HIBLOW HP60 et HP 80 + UV 75W Immergé, Skimmer,

Image
Membre FCKC

MARS
Messages : 1800
Enregistré le : 31 mars 2013, 20:38
Localisation : France
Contact :

Re: Nettoyage des boites aux lettres (MP)

Message par MARS » 20 juil. 2017, 19:04

J ai un peu rewrité le texte d explications pour être plus clair
Pour la macro... ma foi .. je trouve cela plus clair que les programmes d Arduno :snooty: .. c'est selon chacun [mdr.gif]

Pour créer la macro cela dépend de votre Word Il faut chercher dans l'aide CREER UNE MACRO puis suivre le lien . Une fois l'avoir créer et l'avoir nommé copier-coller le code, c'est tout

Si soucis, suivant votre version de WORD (si j'ai celle ci quelque part) je peux vous faire un WORD avec la MACRO créer :whistle: au delà je ne peux pas [embarrassed.gif]
MARS est le pseudo collectif de l'équipe en charge de la modération protection du forum. Il ne correspond pas une personne physique, conformément à la politique de non personnalisation du site.viewtopic.php?f=5&t=10

Avatar du membre
Yves83
Membre associatif
Messages : 3233
Enregistré le : 29 avr. 2013, 20:59
Localisation : Fox Amphoux.....83 Var

Re: Nettoyage des boites aux lettres (MP)

Message par Yves83 » 20 juil. 2017, 19:56

Pendant des années, j'ai sauvegardé tous les messages....... [rolleyes.gif]
Et je me suis aperçu que je n'ai pratiquement jamais ouvert ces fichiers!!!!!!
Les rares fois ou j'ai voulu rechercher un truc, je ne l'ai pas retrouvé..... :think:
Alors, j'ai tout viré et redemandé sur le forum...... J'ai récupéré ce que je recherchais...
Maintenant, quand la boite arrive proche du plein.....je vire systématiquement tous les anciens messages!!!!!...... :whistle:

Voila ce que je fais de tous vos messages!!!!..... [cheesy.gif] [cheesy.gif]

Bien sur, ceux qui sont très importants, comme par exemple tous ceux qui ont concernés mes déboires avec le revendeur de mon FAT sont en lieux sur........Faut pas déconner quand même, si un jour j'en avais besoin.............. [wink.gif]
Une bassine de 80 m3 Image Un vivier.....Avec des plantes!!!!Image

Répondre

Retourner vers « Suggestions, Améliorations du site »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité