The following is an extract of code that I use to send emails from an Excel
program. How can I modify it to use peoples names as they appear in my
address book in lieu of using their actual email address for .To, .CC and .BCC

strTo = " 'Sample. Not valid email address
strCC = " 'Sample. Not valid email address
strBCC = " 'Sample. Not valid email address
Set objMail = objOutlook.CreateItem(olMailItem)

With objMail
.To = strTo
.CC = strCC
.BCC = strBCC
.Subject = strSubject
.Body = strBody
.DeleteAfterSubmit = True 'Does not save email in Sent mail folder.
.Display
.Send
End With

--
Regards,

OssieMac