Page 1 sur 1

Nettoyage des boites aux lettres (MP)

Posté : 29 déc. 2016, 15:53
par MARS
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

Exporter les messages
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

Mettre le contenu des MP, dans un fichier Word
2 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
Sauvegarder votre document Word

Conversion en un format lisible
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 convertir les codes XML en quelque chose de compréhensible, il vous faut faire des REMPLACER PAR pour mettre une ligne de ----- entre chaque MP, sauter des lignes, mettre des blancs devant les citations... Ca va être long ...
Pour ne pas le refaire l'année prochaine, vous pouvez enregistrer toutes ces manipulations dans une MACRO Word...

Mais nous avons créer cette macro pour vous, dans le post ci dessous.
Donc vous allez pouvoir la copier et l'utiliser dans votre Word

Copier cette macro dans Word
2 Ouvrez un word, et cherchez ou est la fonction MACRO suivant votre version WORD
Généralement elle est dans l'onglet DEVELOPPEUR Mais cet onglet n'est pas visible dans l'installation standard.
Pour le rendre visible, aller dans FICHIERS / OPTION / PERSONNALISER LE RUBAN et dans le deuxième tableau a droite cocher la case DEVELOPPEUR, faire OK
3 Dans word , l onglet DEVELLOPEUR apparaît , cliquer sur CREER UNE MACRO, donner un titre comme CONVERTISSEUR , Cliquer sur OK, puis ARRETER L ENREGISTREMENT , votre Macro est créée, il faut y copier le code fourni
4 Pour cela copier le code indiqué dans le post suivant
Dans WORD cliquer sur MACRO, choisir votre Macro, cliquer sur MODIFIER, effacer les 4 lignes de code, et coller le code copier du forum a la place, cliquer sur le bouton fermé X de la page macro , puis sur le x de la page Visual Basic

Convertisez votre texte
Vous avez copier votre texte dans le word (voir 1 et 2)
Ouvrir ce document
5 Dans l'onglet DEVELOPPEUR, Cliquer sur MACRO, choisissez votre Macro CONVERTISSEUR et cliquer sur EXECUTER
Si vous avez tout suivi, le texte est modifié

6 sauvegarder le fichier Word ainsi traduit

Supprimer les MP dans votre boite aux lettres
Ensuite vous pouvez faire le ménage 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

detail de la macro word permettant de traduire les codes XML

Posté : 29 déc. 2016, 15:53
par MARS
Sub Convertisseur()
'
'
' 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

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<phpbb></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
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<phpbb></privmsg>"
.Replacement.Text = "^l"
.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 = "<phpbb><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
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<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
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "Sujet : "
.Replacement.Text = "^lSujet : "
.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 = "[/quote]"
.Replacement.Text = "[/quote]^l"
.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
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "[quote"
.Replacement.Text = "^l [quote"
.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 = "[quote"
.Replacement.Text = "^l [quote"
.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

Re: Nettoyage des boites aux lettres (MP)

Posté : 29 déc. 2016, 18:46
par christine
Voilà qui est fait, merci pour le mode d'emploi [asiatique.gif]

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

Posté : 20 juil. 2017, 16:57
par MARS
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

Re: Nettoyage des boites aux lettres (MP)

Posté : 20 juil. 2017, 18:40
par Lorenzo76
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]

Re: Nettoyage des boites aux lettres (MP)

Posté : 20 juil. 2017, 19:04
par MARS
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]

Re: Nettoyage des boites aux lettres (MP)

Posté : 20 juil. 2017, 19:56
par Yves83
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]