email selected contacts from access

[acni]

hey

just wondering if anyone could offer a bit of advice to me.i have a
database with a list of contacts on it with a checkbox beside each one.i
was wondering if it was possible to place a command button on the form so
that when you click it it opens an email to send to all those with the
ticked check box?

Thanks in anticipation

[David Lloyd]

One alternative is to use the SendObject function. You did not specify
whether you wanted to send an attachment with the email, so I assumed for
the example below that no attachment will be sent, however, you can easily
change this. The example assumes that you have a True/False field
(Checkbox) named SendEmail and an Email field with the user's email address.

Public Function SendEmail()
Dim rs As DAO.Recordset
Dim sEmailTo As String

Set rs = CurrentDb.OpenRecordset("SELECT Email FROM MyTable WHERE
SendEmail=True")

'Create a semicolon separated list of email addresses
Do Until rs.EOF
sEmailTo = sEmailTo & rs("Email") & ";"
rs.MoveNext
Loop

'Strip off the last semicolon
sEmailTo = Left(sEmailTo, Len(sEmailTo) - 1)

DoCmd.SendObject acSendNoObject, "", "", sEmailTo, , , "Declaration of
Independence", "WE hold these Truths to be self-evident...", True

Set rs = Nothing

End Function

Access Help has additional information on the parameters of the SendObject
function.

--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.
"acni" <nb***@artscouncil-ni.org> wrote in message
news:d5******************************@localhost.ta lkaboutdatabases.com...
hey

just wondering if anyone could offer a bit of advice to me.i have a
database with a list of contacts on it with a checkbox beside each one.i
was wondering if it was possible to place a command button on the form so
that when you click it it opens an email to send to all those with the
ticked check box?

Thanks in anticipation

[acni]

sorry there may be attachments added.it depends on what the email will be
about.though what im hoping for is that when i click this button it will
open a window in outlook so as i can type and email to all those selected
with the selected contacts email addresses already in the to field.that
make more sense?sorry i didnt make it clear but thanks for the suggestion.

[David Lloyd]

The code I gave you will allow you to send attachments. The last parameter
in the SendObject line of code (value=True) opens the email window with the
select recipients in the To field. You can type the message yourself, and
if necessary add attachments to the email before sending. If you want to
attach something from the Access database, you can change the first three
parameters of the SendObject method to specify a report, or other object to
send as an attachment to the email.

A second alternative, although a little more involved, is to use the Outlook
object model to send an email from Access. You can find an example in the
following KB article.

http://support.microsoft.com/default...b;en-us;209948

--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.
"acni" <nb***@artscouncil-ni.org> wrote in message
news:d2******************************@localhost.ta lkaboutdatabases.com...
sorry there may be attachments added.it depends on what the email will be
about.though what im hoping for is that when i click this button it will
open a window in outlook so as i can type and email to all those selected
with the selected contacts email addresses already in the to field.that
make more sense?sorry i didnt make it clear but thanks for the suggestion.

[acni]

i dont quite understand how it would do this.there is no mention of
SendObject line of code (value=True) like you said and what is the bit
bout declaration of independance?surely this is meaning that this will be
included in the email or something?