How can I put E-mail addresses from a Access file into Outlook?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

We have a Microsoft Access 2003 database that includes a field that has
people's E-mail addresses. We would like to send each person an E-mail. How
can I take all of the E-mail addresses from the Access file and put them into
Outlook? I don't want to have to re-type (or copy and paste) each separate
E-mail adddresse into my Outlook address book if there is an easier way.
Thanks, Jane
 
I have a VB Script at my web site that allows you to create an Outlook Contact.
You'll have to modify it a bit, but here's how it looks ...


Dim objOutlook
Dim itmContact
Dim strMsg

Const olContactItem = 2

'Create Outlook Object and Contact Item
Set objOutlook = CreateObject("Outlook.application")
Set itmContact = objOutlook.CreateItem(olContactItem)


'Query the User for the Contact Info
strData = InputBox("Enter contact Full Name.","Enter Contact Information")
itmContact.FullName = strData

strData = InputBox("Enter contact EMail Address.","Enter Contact Information")
itmContact.EMail1Address = strData

strData = InputBox("Enter contact Phone.","Enter Contact Information")
itmContact.PrimaryTelephoneNumber = strData

strData = InputBox("Enter contact Street Address.","Enter Contact Information")
itmContact.BusinessAddressStreet = strData

strData = InputBox("Enter contact City.","Enter Contact Information")
itmContact.BusinessAddressCity = strData

strData = InputBox("Enter contact State.","Enter Contact Information")
itmContact.BusinessAddressState = strData

strData = InputBox("Enter contact Postal Code.","Enter Contact Information")
itmContact.BusinessAddressPostalCode = strData


'Save and display the Contact
itmContact.Save
itmContact.Display



'Clean up
Set itmContact = Nothing
Set objOutlook = Nothing
 
Thank you. I passed on your message to someone in my office who knows more
about the computer than I do and she thought your information was wonderful!

Jane
 
Back
Top