User friendly display name in CDOSYS

[spencer]

If you want to show user friendly display name in the "FROM" and "TO" rows under CDOSYS

Set imsg = Createobject("cdo.message")
With iMsg
.To = "Spencer T.<spencer@mydomain.com>"
.From = "Support Department <support@hostingcompany.com>"
.Subject = "Support Request: " & Now()
.TextBody = "How to do this installation in…."
.Send
End With
Set imsg = nothing