Discussion :

[LtDan74]

Bonjour,

Je travaille avec une entreprise chinoise et le nom des personnes qui m'envoient de e-mails est en caractères chinois. Pas facile d'identifier immédiatement l'expéditeur ou de faire des recherches rapidement.

Je souhaite pouvoir renommer automatiquement le nom de l'expéditeur affiché dans la colonne "De" d'Outlook 2016 à réception des e-mails.

Merci d'avance pour vos lumières.

Cordialement,
LtDan74

[Oliv-]

Bonjour,
Avec une macro et une liste de correspondance entre nom en caractères chinois et latin.

il faudra sans doute utiliser Redemption.

[Oliv-]

j'ai cherché un exemple et suis tombé sur un site https://fr.bab.la/phrases/affaires/c...ancais-chinois

j'ai bien ri c'est la fameuse histoire du tatouage chinois qui ne veut pas dire ce que l'on croit

Monsieur Dupont,??????????，traduction Google =Cher M. Smith
Madame Dupont,??????????，=Chère Mme Smith
Mademoiselle Dupont,??????????，=Chère miss smith
Cher Benjamin,??????????，=Cher john

tout cela pour dire qu'on peut sans doute utiliser google pour traduire
tu as un exemple là en vba : https://stackoverflow.com/questions/...text-using-vba

j'ai du remplacer les caractères chinois par ?????????? car le forum pense que c'est du spam

[LtDan74]

Bonjour,

Merci pour la réponse.

La liste de correspondance n'est pas un problème car je connais le nom des expéditeurs.

La macro par contre, je serais incapable de la faire et c'est là que j'ai besoin d'aide... En fait je pensais que ce genre de macro (ou de script) existait déjà mais je n'ai rien trouvé malgré mes recherches ici et ailleurs.

Cordialement,
LtDan74

[Oliv-]

SAlut,

Voici un exemple de code mais les caractères chinois ne sont pas exploitable facilement dans VBE remplacés par des ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Change_de_sendername()
    Dim objmail As MailItem
    Dim msg, RDOSession, Nom
    Set objmail = ActiveInspector.CurrentItem
    Set RDOSession = CreateObject("Redemption.RDOSession")
    RDOSession.MAPIOBJECT = Application.Session.MAPIOBJECT
    Set msg = RDOSession.GetMessagefromID(objmail.EntryID)
 
 
 
    Select Case msg.SenderName
    Case "?????"
        Nom = "aaa"
    Case "BBB"
        Nom = "bbb"
    End Select
 
    If Nom <> "" Then
        msg.SenderName = Nom
        msg.Save
    End If
End Sub

il y a peut être une astuce à exploiter
quand tu reçois un mail tu cliques sur l'expéditeur bouton droit et tu l'ajoutes au carnet d'adresse, et là tu changes le nom.

quand tu poseras la souris sur l'expéditeur tu auras son nom qui va s'afficher tel que tu l'as saisi .

[LtDan74]

Bonjour,

En effet les caractères chinois ne sont pas supportés. Du coup est-il possible de prendre l'adresse mail en référence ? Si oui comment ?

En attendant j'ai testé avec des caractères latin avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Change_de_sendername()
    Dim objmail As MailItem
    Dim msg, RDOSession, Nom
    Set objmail = ActiveInspector.CurrentItem
    Set RDOSession = CreateObject("Redemption.RDOSession")
    RDOSession.MAPIOBJECT = Application.Session.MAPIOBJECT
    Set msg = RDOSession.GetMessagefromID(objmail.EntryID)
 
 
 
    Select Case msg.SenderName
    Case "LtDan74"
        Nom = "LtDan"
    End Select
 
    If Nom <> "" Then
        msg.SenderName = Nom
        msg.Save
    End If
End Sub

J'obtiens un message d'erreur :



Quand je clique sur "Débogage", j'obtiens ceci :



Encore merci de ton aide.

Cordialement,
LtDan74

[Oliv-]

2 CHOSES pour que le code fonctionne il faut que l'Email soit ouvert dans une fenetre

sinon utiliser ce code pour prendre l'élément actif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application
 
    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select
 
    Set objApp = Nothing
End Function

Ensuite il te faut REDEMPTION : http://www.dimastr.com/redemption/Redemption.zip
en effet le modèle d'objet outlook ne propose le sendername que en lecture seule.

Pour parvenir à traiter les caractères chinois je pense qu'il faut utiliser une feuille excel avec une fonction recherchev et envoyer le résultat dans .sendername

[LtDan74]

OK donc après avoir installé Redemption ça fonctionne.

Mais le nom est renommé dans le "volet de lecture" (à droite sur la copie d'écran ci-dessous) mais pas dans la colonne "De"...

[Oliv-]

Essaye comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Change_de_sendername()
    Dim objmail As MailItem
    Dim msg As RDOMail, RDOSession, Nom
    Set objmail = ActiveInspector.CurrentItem
    Set RDOSession = CreateObject("Redemption.RDOSession")
    RDOSession.MAPIOBJECT = Application.Session.MAPIOBJECT
    Set msg = RDOSession.GetMessagefromID(objmail.EntryID)
 
 
 
    Select Case msg.SenderName
    Case "?????"
        Nom = "aaa"
    Case "BBB"
        Nom = "bbb"
      End Select
 
    If Nom <> "" Then
        msg.SenderName = Nom
        msg.SentOnBehalfOfName = Nom
        msg.Save
    End If
End Sub