Welcome to SPN

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

Sign Up Now!
  1.   Become a Supporter    ::   Make a Contribution   
    Target (Recurring Monthly): $200 :: Achieved: $98

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

    >
    >
    >
     
Since you're here... we have a small favor to ask...

More people are visiting & reading SPN than ever but far fewer are paying to sustain it. Advertising revenues across the online media have fallen fast. So you can see why we need to ask for your help. Donating to SPN's is vote for free speech, for diversity of opinions, for the right of the people to stand up to religious bigotry. Without any affiliation to any organization, this constant struggle takes a lot of hard work to sustain as we entirely depend on the contributions of our esteemed writers/readers. We do it because we believe our perspective matters – because it might well be your perspective, too... Fund our efforts and together we can keep the world informed about the real Sikh Sikhi Sikhism. If everyone who writes or reads our content, who likes it, helps us to pay for it, our future would be much more secure. Every Contribution Matters, Contribute Generously!

    Become a Supporter      ::     Make a Contribution     



Share This Page