Unify name of sender when received

[Larsona]

Hello,

I am receiving plenty of emails from POP accounts used on different devices. Unfortunate the users set different names in the different configs and so it is difficult to search and sort. As the sender are mostly located in Far East there are also variants in local characters which is not helpful. Therefor I tried my best to write a small VB code which set a unified sender name while receiving an email - one name by email address.<br>Here is what I have tried so far:<br>
Unfortunately SenderName is protected and cannot be changed and I do not find a way around. Can anyone help, please?

Sub test(MyMail As MailItem)

    Dim strID As String
    Dim olNS As Outlook.NameSpace
    Dim olMail As Outlook.MailItem
    
    strID = MyMail.EntryID
    Set olNS = Application.GetNamespace("MAPI")
    Set olMail = olNS.GetItemFromID(strID)
            


    If olMail.SenderEmailAddress = "email.address" Then
        olMail.SenderName = "John Doe"
        olMail.Save
    End If
    
    Set olMail = Nothing
    Set olNS = Nothing


End Sub

[gmayor]

You cannot do what you suggest. The sender is not an editable property of the message. I would suggest using sub folders and rules to direct the various alternatives to the appropriate sub folder.