Nettoyage des boites aux lettres (MP)

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

Nettoyage des boites aux lettres (MP)

Message 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
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 : 3314
Enregistré le : 31 mars 2013, 20:38
Localisation : France
Contact :

detail de la macro word permettant de traduire les codes XML

Message 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
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 : 16757
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 »

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

Bassin bâché de 120m3 commencé en 2011, filtration maison. Membre du FCKC ....
Les bétises des uns, font l'enseignement des autres...

MARS
Messages : 3314
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 »

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

Lorenzo76
Membre associatif
Messages : 2246
Enregistré le : 22 mai 2014, 19:20
Localisation : Haute Normandie - Yvetot

Re: Nettoyage des boites aux lettres (MP)

Message 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]
14 Koï (s) 2 Esturgeons
Bassin: 42m3, Pompe 50m3 + 20 m3, FAT Inazuma, Filtre SHARK 150/80 + Pompe HIBLOW HP60 et HP 80 + 1 UV 75W + 2UV x50W Immergé, Skimmer,

Image
Membre FCKC

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

Re: Nettoyage des boites aux lettres (MP)

Message 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]
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 : 8916
Enregistré le : 29 avr. 2013, 20:59
Localisation : Fox Amphoux.....83 Var

Re: Nettoyage des boites aux lettres (MP)

Message 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]
Une bassine de 80 m3 Image Un vivier quoi!!.....Mais avec des plantes!!!! :wink.gif:

Répondre

Retourner vers « Suggestions, Améliorations du site »