Hi,
Thanks, but I ought to have mentioned that I'm a relative Newbie and
not too good at doing VB.
I scanned the site you mentioned but couln't find anything suitable
however I did find an earlier post from Albert Kallai in 2002 as
follows:-
Private Sub cdmEmail_Click()
Dim rstMailList As Recordset
Dim strMySql As String
strMySql = "select emailname from qryGroupList where (emailname is
not null) " _
& " and (Mailto = True) order by emailname"
Set rstMailList = CurrentDb.OpenRecordset(strMySql)
Call BulkEmail(rstMailList)
rstMailList.Close
Set rstMailList = Nothing
End Sub
Public Sub BulkEmail(rstMailList As Recordset)
Dim lngMailCount As Long
Dim strWhoList As String
If rstMailList.RecordCount = 0 Then
MsgBox "No email names in selected list", vbInformation, "No
email names found"
Else
' display names found...give chance
rstMailList.MoveLast
rstMailList.MoveFirst
lngMailCount = rstMailList.RecordCount
If MsgBox("There are " & lngMailCount & " email names in this
list" & vbCrLf _
& "Do you want to make a email for this list?",
vbQuestion + vbYesNo) = vbYes Then
' build the list
strWhoList = ""
Do While rstMailList.EOF = False
If InStr(rstMailList(0), "@") > 0 Then
strWhoList = strWhoList & rstMailList(0) & ";"
End If
rstMailList.MoveNext
Loop
If InStr(strWhoList, ";") > 0 Then
strWhoList = Left$(strWhoList, Len(strWhoList) - 1)
End If
DoCmd.SendObject , , , , , strWhoList, "Greetings from My
Company"
End If
End If
End Sub
I modified the field names to suit but it baulks at this line:-
Set rstMailList = CurrentDb.OpenRecordset(strMySql)
Bearig in mind I run Access2000, is there any reason it would stutter
at this stage?
Jim
pietlinden@hotmail.com wrote:
[color=blue]
> Tomdhu wrote:[color=green]
> > I've got a Contacts & Events database in Access 2K where contacts
> > attend various events.
> >
> > At present, where I want to group e-mail all the attendees who are
> > going to attend a particular event, I run a macro which runs a select
> > query which strips out and exports a list of their e-mail addresses (
> > separated by commas) into a text file. I then copy the CSV e-mail
> > addresses and paste them into the BCC field of Outlook.
> >
> > I'd love to have a means of achieving this in one step. Is there a way?
> >
> > If it's of interest , my select query is as follows:-
> >
> > SELECT [email] & "," AS EMAILADDRESS
> > FROM Contacts LEFT JOIN tblAttendance ON Contacts.PersonID =
> > tblAttendance.PersonID
> > WHERE (((Contacts.EMAIL)<>"") AND
> > ((tblAttendance.EventID)=[Forms]![FrmEvent2].[EventID]));
> >
> > Many thanks
> >
> > Jim Tomdhu[/color]
>
> You can automate Outlook (search here or there's code at Danny
> Lesandrini's website
> www.amazecreations/datafast) and then you can open the query inside a
> recordset and then loop through it, adding to the BCC list of the
> message.[/color]
