Lettres avec accents dans Eudora

Question

Bonjour à tous,

Je suis sur Windows 2000 et j'utilise Eudora comme boite Email. Ca fonctionne pas mal, sauf que j'ai un problème car pas mal d'emails (pas tous) que je reçois voient les mots comportant des accents transformés en truc bizarroides.

Par exemple, le "é" devient "Ã©". 

Ca fait des emails pas très sympa à lire et quelques fois faut s'accrocher pour y comprendre quelque chose. Je suppose qu'il y a donc un problème au niveau de la configuration de qq chose, mais je ne trouve pas quoi...

QQ pourrait-il m'aider?

Merci d'avance et bonne journée à tous!

Marc.

Jan-eudora · Accepted Answer

Voici un macro pour Word, qui restitue les lettres accentuées.
Sub FReudora()
'convert txt from eudora with unprintable into printable
Dim i%
    Dim kar(1 To 2, 1 To 16)
    kar(1, 1) = Chr(195) & Chr(169)
    kar(2, 1) = "é"
    kar(1, 2) = Chr(226) & Chr(128) & Chr(153)
    kar(2, 2) = "'"
    kar(1, 3) = Chr(195) & Chr(187)
    kar(2, 3) = "û"
    kar(1, 4) = Chr(195) & Chr(171)
    kar(2, 4) = "ë"
    kar(1, 5) = Chr(195) & Chr(162)
    kar(2, 5) = "â"
    kar(1, 6) = Chr(195) & Chr(168)
    kar(2, 6) = "è"
    kar(1, 7) = Chr(195) & Chr(170)
    kar(2, 7) = "ê"
    kar(1, 8) = Chr(195) & Chr(167)
    kar(2, 8) = "ç"
    kar(1, 9) = Chr(195) & Chr(175)
    kar(2, 9) = "ï"
    kar(1, 10) = Chr(195) & Chr(180)
    kar(2, 10) = "ô"
    kar(1, 11) = Chr(194) & Chr(171)
    kar(2, 11) = Chr(171)
    kar(1, 12) = Chr(194) & Chr(187)
    kar(2, 12) = Chr(187)
    kar(1, 13) = Chr(195) & Chr(185)
    kar(2, 13) = "ù"
    kar(1, 14) = Chr(195) & Chr(174)
    kar(2, 14) = "î"
    kar(1, 15) = Chr(195) & " "
    kar(2, 15) = "à "
    kar(1, 16) = Chr(194) & Chr(160)
    kar(2, 16) = Chr(160)
For i = 1 To 16
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = kar(1, i)
        .Replacement.Text = kar(2, i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub

aja · Answer

Bonjour
Etant confronté au mêm problème, j evoulais savoir si vous aviez obtenu yne réponse
. Si oui, que faut il faire
Merci
AJ

Lettres avec accents dans Eudora

2 réponses

Discussions similaires

Newsletters