Don't add email addresses but names, then call the ResolveAll function. If
the names can be resolved, you will see the DisplayNames. A name can be
resolved if there's exactly one e-mail address for the name.

--
Best regards
Michael Bauer - MVP Outlook
Manage and share your categories:
http://www.vboffice.net/product.html?pub=6&lang=en


Am Mon, 21 Dec 2009 22:44:01 -0800 schrieb OssieMac:

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