Emailing from tab selection

[agorman]

Is there a simple way to select a number of email addresses via a tab on a form, and then clicking a button to open an email window with the addresses in the bcc?

I think this is a tall order

Thanks

Adrian

 

[KenHigg]

Not at all - Very easy, See this:

http://www.access-programmers.co.uk/forums/showpost.php?p=746470&postcount=2

 

[agorman]

Thanks Ken,

It looks great, but not sure where to put it or how to use it.

I have about 30 files each with a email field ! sometimes I want to email the same message to about 15 recipients so I do it one at a time: - this is what I have done so far (scrambling in the dark)

I have created a query called emailQuery, which calls up emails with in the field EmailAddress

I have added the code to the VB window and tweeked it as below. On the bottom line, when I remove everything except 'DoCmd.SendObject' I can get the button on a form to open up a mail window, but with no addresses inserted. Not sure how to tweak it

Dim stDocName As String
Dim stToName As String
Dim stCCName As String
Dim stBCCName As String
Dim stSubject As String
Dim stMessage As String

stDocName = "emailQuery" 'Below in Docmd insert acSendTable for table, acSendReport for report or acSendQuery for query
stToName = "EmailAddress" 'This could also be a field picked up by your query or report
stCCName = "Insert cc email adresses" 'This could also be a field picked up by your query or report
stBCCName= "Insert bcc email adresses" 'This could also be a field picked up by your query or report
stSubject = "Subject text"
stMessage = "Message" 'This could also be a field picked up by your query or report

DoCmd.SendObject acSendTable, stDocName, acFormatXLS, stToName,stCCName ,stBCCName , stSubject, stMessage

can you please point me in the right direction

Thanks

Adrian