Access to Email

[angela patrikka]

Hi
I have an access database, which contains over 1000 names including their
email addresses. I have macro, that takes all the email addresses and
places them into the BCC of a new email using Outlook 2000. Our company
uses MS Exchange. The problem is that not all emails get to the recipents
as some company's see this as spam. Is there a way from Access to send the
email names to Outlook one at a time. Or do I have to purchase a add on in
Outlook to handle this?

Angela

 

[Arvin Meyer [MVP]]

If you use this to spam, we'll send the Australian MVPs to picket your
company <g>

http://www.datastrat.com/Code/MultipleEmail.txt

Now, you may get the standard Microsoft "security" warning that an outside
program is trying to access your email. If you do, you'll need to buy
Redemption:

http://www.dimastr.com/redemption/
--
Arvin Meyer, MCP, MVP
Free MS-Access downloads:
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

 

[angela patrikka]

Hi Arvin

Thank you, and I understand your concerns, and I am a legit company. I work
for a local council.

Any way

This is what i currently have in my vb code

Private Sub btnEmail_Click()

On Error GoTo Err_btnEmail_Click

Dim stDocName As String

stDocName = "rptEmailAddressList"

DoCmd.OpenReport stDocName, acPreview


Dim stDocName2 As String

stDocName2 = "frmEmailToList"

DoCmd.OpenForm stDocName2


Exit_btnEmail_Click:

Exit Sub

Err_btnEmail_Click:

MsgBox Err.Description

Resume Exit_btnEmail_Click



Do i just replace it now with the new code?

Angela

 

[Arvin Meyer [MVP]]

Do i just replace it now with the new code?

Angela

Yes. Make sure that you change all the variables to those which pertain to
your own names.
--
Arvin Meyer, MCP, MVP
Free MS-Access downloads:
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com