Thank you for your seminar and responding to the earlier post. I now have the group email I wanted.
My question now is when I try to query my list of people to receive the email I get an error message [Run-time-error Too Few parameters Expected 1]
If this is something I can get from one of your lessons I will be glad to look (I am the proud owner of numerous lessons)
I have included my code with a note as to where it stops. Any help are guidance would be appreciated
Thank again

Private Sub Command0_Click()
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
Dim rs As Recordset

If oOutlook Is Nothing Then
    Set oOutlook = New Outlook.Application
End If

Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem
    
    'This first attempt works to list all in the emails for the ActionGroup named Manager
    'Set rs = CurrentDb.OpenRecordset("SELECT AddressEmail FROM ActionGroupQ where ActionGroup='Manager'")
                
    'The second attempt works to list all of the AddressEmail in the ActionGroupQ query
    'Set rs = CurrentDb.OpenRecordset("SELECT AddressEmail FROM ActionGroupQ")
        
    'Code will not pass this point. 
    'What I want but will not work, I want all of the AddressEmail,s from ActionGroupQ 
    'where the ActionGroup = the forms GroupsCombo combo box
    Set rs = CurrentDb.OpenRecordset("SELECT AddressEmail FROM ActionGroupQ where ActionGroup=GroupsCombo")
        
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        Do Until rs.EOF
            If IsNull(rs!AddressEmail) Then
                rs.MoveNext
            Else
                contactEmail = contactEmail & rs!AddressEmail & ";"
                .To = contactEmail
                rs.MoveNext
            End If
        Loop
    Else
        MsgBox "No email addresses available"
    End If
    .Display
End With

Set oEmailItem = Nothing
Set oOutlook = Nothing

End Sub

---

Reply from Alex Hedley:

Rich showed a video recently where controls on a form would be parsed by access in a string but what version of Access are you using?

Set rs = CurrentDb.OpenRecordset("SELECT AddressEmail FROM ActionGroupQ where ActionGroup=GroupsCombo")

Set rs = CurrentDb.OpenRecordset("SELECT AddressEmail FROM ActionGroupQ where ActionGroup='" & GroupsCombo & "'")