using office and access to create a mail list

B

buseruka

I've just gotten elected communications officer for a club at school. I need
a way to communicate with more than 300 people at once.(The list may
eventually top 700)

I know how to build a database using Access, actually I've already done that
part. And I can use a querey to extract just the email addresses.

I know how to use Outlook. But I have been told I can only contact up to
100 people max. using the business add-in.

Ideally, I need a way to send the email so that recipients cannot gather
email addresses from the headers; I need to protect privacy as much as I
can.(This isn't an absolute necessity however)

If this is possible, will someone please inform me how it is done?
 
A

Arvin Meyer

This code was written before the security functionality in Outlook was
created. It used to go automatically, but now you'll need to tell Outlook
that it's OK, or use Redemption.It works by using the BCC field to send
email:Function Email(strTo As String, strSubject _
As String, Optional varMsg As Variant, Optional varAttachment As
Variant)

' ©Arvin Meyer 1999-2004
' Permission to use is granted if copyright notice is left intact.
' Permisssion is denied for use with unsolicited commercial email

'Set reference to Outlook
On Error GoTo Errhandler
Dim strBCC As String
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim objOutl As Outlook.Application
'Dim objEml As Outlook.MailItem
Dim i As Integer

Set db = CurrentDb
Set rst = db.OpenRecordset("qryContacts", dbOpenSnapshot)

Set objOutl = CreateObject("Outlook.application")
'Set objEml = objOutl.createItem(olMailitem)

With rst
If .RecordCount > 0 Then
.MoveLast
.MoveFirst
End If
End With

For i = 1 To rst.RecordCount
If Len(rst!EmailAddress) > 0 Then
strTo = rst!EmailAddress
Dim objEml As Outlook.MailItem
Set objEml = objOutl.createItem(olMailitem)

With objEml
.BCC = strTo

.Subject = strSubject

If Not IsNull(varMsg) Then
.Body = varMsg
End If

' Uncomment for attachment
' If Not IsMissing(varAttachment) Then
' .Attachments.Add varAttachment
' End If

.Send
End With
End If
Set objEml = Nothing
rst.MoveNext
Next i

ExitHere:
Set objOutl = Nothing
'Set objEml = Nothing
Set rst = Nothing
Set db = Nothing

Exit Function

Errhandler:
MsgBox Err.Number & ": " & Err.Description
Resume ExitHere

End Function-- Arvin Meyer, MCP, MVPMicrosoft AccessFree Access
downloads:http://www.datastrat.comhttp://www.mvps.org/access
 
B

buseruka

Arvin, thankx for the quick reply. But you went a little over my head. Can
you put the advice in laymens terms? I can follow directions, but I know
nothing about code. I haven't tried this yet as I don't want to upsept
members with practice runs.

Let's say I have the message ready to send, and I have the list of
addresses...I should put all the addresses in the BCC field?
Where do I tell Outlook that it's ok?
What is Redemption?
Where do I use the code?
Buseruka
 
B

buseruka

Another user has just suggested using Mail Merge and selected Queries. This
seems to be working, thought my anti-virus slows it down, and I don't have
the 'sent in mass' problem. Unless someone has a better suggestion, I
consider this matter closed. Thanks for your help though.
Buseruka
 
A

Arvin Meyer

The best thing to do to learn would be to use the code and practice a bit.,
You can avoid actually sending the email by commenting the Send, like:

' .Send

The single quote comments out that line so it won't run. Also, adding a line
just before it:

.Display
' .Send

will show the email that is ready to go out. You can simply hit the Send
button on the Outlook form to send the email when you are ready.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access
 
C

chenjy

thanks
Arvin Meyer said:
The best thing to do to learn would be to use the code and practice a bit.,
You can avoid actually sending the email by commenting the Send, like:

' .Send

The single quote comments out that line so it won't run. Also, adding a line
just before it:

.Display
' .Send

will show the email that is ready to go out. You can simply hit the Send
button on the Outlook form to send the email when you are ready.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

school. up as
Click to expand...
 
Top