Show Outlook Recipient Display Names Instead of Email Addresses from Excel VBA

[dcoker]

HI,

I have some VBA code that sends an email to specific recipients based on inputs from the user. The code works flawlessly. I just need to improve it to show the actual display names of the recipients rather than the specific email addresses. This way all recipients can see who is receiving the email, even if they do not know whose email address is whose. Is this possible?

Would I have to add this manually to the code for each recipient?

Current Example: bsmith@co.com
Example Wanted: Bob Smith

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

    With Destwb
     
        On Error Resume Next
        With OutMail
        .display
            .To = ToEmails
            .CC = CCEmails
            .BCC = ""
            .Subject = "Random Subject"
            .HTMLBody = body & .HTMLBody
                             
        End With

Any help is appreciated!

 

[Kenneth Hobson]

The only way that would work is IF the sender has that name in their addresses as an alias. The email can include a name or label. e.g.

Ken Hobson (ken.hobson@gmail.com)

where () are <>.