How do I generate emails from Access 2013

Hi Experts,
I need help generating emails from my Access 2013 application.
I have a table with employee names and employee email addresses (tblEmployees).
I have a List box control that will list the email addresses.  I want to be able to select one or more email addresses from the list box, and then click a button to send a pre written email message.  How can I do this ?

Thank you very much in advance,
mrotor
mainrotorAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rey Obrero (Capricorn1)Commented:
here is the code to get selected emails from a multi select listbox

Dim j,strEmails
 With Me.listEmail
     If .ItemsSelected.Count > 0 Then
         For Each j In .ItemsSelected
           strEmails =strEmails & ";" & .ItemData(j)  'collect all selected items as strEmails
         Next
     End If
 End With
 strEmails= mid(strEmails, 2)
0
Scott McDaniel (Microsoft Access MVP - EE MVE )Infotrakker SoftwareCommented:
When you say "pre-written", do you mean the user has already written an email in their email client? Or that you want to have the user write the email in Access, and then select the recipients in your listbox and send that email?

Rey has shown you how to collect the selected items from the listbox, but to send the email you can either use SendObject, or use automation.

SendObject is used like this:

DoCmd.SendObject acSendNoObject, "", "", strEmails, "", "", "Email Subject", "Email Body"

 http://msdn.microsoft.com/en-us/library/office/ff197046%28v=office.15%29.aspx

There are some limitations to SendObject - for example, you can't send HTML emails, messages are limited to 255 characters, you can't attach files from disc, and the security mechanism in Outlook can cause troubles. If you need that additional functionality, you can automate Outlook. This article shows how to do that:

http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/A_4316-Automate-Outlook-in-VBA-with-the-OutlookCreateItem-Class.html
0
mainrotorAuthor Commented:
Thank you both for your help.  How about if the users use Yahoo, or G-mail for sending emails, could this be done?  

Is outlook the only way this could be done?

Thank you,
mrotor
0
The Ultimate Tool Kit for Technolgy Solution Provi

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy for valuable how-to assets including sample agreements, checklists, flowcharts, and more!

Scott McDaniel (Microsoft Access MVP - EE MVE )Infotrakker SoftwareCommented:
You could, but not with Outlook Automation. Instead, you'd use CDO to do this. There are several questions here on EE that show how to do that, for example:

http://www.experts-exchange.com/Database/MS_Access/Q_21601489.html

You'd have to change the SMTP Server and Port to match those expected by the email server, of course.

There's also VBSendMail. As with CDO, there are many questions that address using vbSendMail, like this one:

http://www.experts-exchange.com/Database/MS_Access/Q_28093260.html
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
mainrotorAuthor Commented:
Thanks Scott,
I will checkout those links.

mrotor
0
Martin LissOlder than dirtCommented:
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.