Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

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

Discussion in 'Information Technology' started by Jane Tutor, Jul 28, 2006.

  1. Jane Tutor

    Jane Tutor
    Expand Collapse
    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
     
  2. Loading...


  3. Danny J. Lesandrini

    Danny J. Lesandrini
    Expand Collapse
    Guest

    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


    --

    Danny J. Lesandrini
    dlesandrini@hotmail.com
    http://amazecreations.com/datafast


    "Jane Tutor" <JaneTutor@discussions.microsoft.com> wrote in message
    news:6738EED2-7ED8-4E06-9656-97F5BEBDCA5F@microsoft.com...
    > 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
     
  4. Jane Tutor

    Jane Tutor
    Expand Collapse
    Guest

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

    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

    "Danny J. Lesandrini" wrote:

    > 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
    >
    >
    > --
    >
    > Danny J. Lesandrini
    > dlesandrini@hotmail.com
    > http://amazecreations.com/datafast
    >
    >
    > "Jane Tutor" <JaneTutor@discussions.microsoft.com> wrote in message
    > news:6738EED2-7ED8-4E06-9656-97F5BEBDCA5F@microsoft.com...
    > > 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

    >
    >
    >
     

Share This Page