Sending bulk email out of access

[avayaman]

I have a membership database with email addresses for all the members. I want to extract all those emails from every record & insert them in the "bcc" field in outlook, so I can send a bulk email. I would manually insert my own in the main address field. I can currently double click on an entry & send a single one out of access using the code below:



Private Sub WorkEmail_DblClick(Cancel As Integer)

On Error GoTo errhandler

Dim strEmail As String

If IsNull(Me.WorkEmail) Then
MsgBox ("There is no email address shown")
Exit Sub
ElseIf Me.WorkEmail = " " Then
MsgBox ("There is no email address shown")
Exit Sub
End If
strEmail = Me.WorkEmail
DoCmd.SendObject , , , strEmail, , , , , True

errhandler:
Exit Sub

End Sub

Paul Beddows

Consulting, Avaya/EAS implementation, Training
Vancouver, Canada
E-mail paul at natcoa.com

 

[avayaman]

Oh, it would alsos be nice if I can insert a standard subject into that field & some text (eg you are recvieving this mail as a bulk mailing, etc" into the body of the email.

Paul Beddows

Consulting, Avaya/EAS implementation, Training
Vancouver, Canada
E-mail paul at natcoa.com