E-mail with Access

[DJRhino1175]

I copied and pasted code I currently use with no issue, but I'm having an issue now. I have the following code:

Private Sub btnGroupEmail_Click()
 
On Error GoTo EH
 
    Dim strSendTo     As String
    Dim strSubject    As String
    Dim strEMailBody  As String
    Dim strCCLine     As String
    Dim strBCCLine    As String
    Dim strOnBehalfOf As String
    Dim MyDB          As DAO.Database
    Dim rstEMail      As DAO.Recordset
    Dim strEMail      As String
 
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "qryEmail", acViewNormal
    DoCmd.SetWarnings True
 
Set MyDB = CurrentDb
 
Set rstEMail = MyDB.OpenRecordset("Select * From tblEMail", _
    dbOpenSnapshot, dbOpenForwardOnly)
 
   With rstEMail
            If Not (.BOF And .EOF) Then
                Call .MoveFirst
                Do While Not .EOF
                    'Build the Recipients String
                    strSendTo = ""
                    strSendTo = _
                        strSendTo & _
                        IIf(strSendTo = "", _
                            "", _
                            ";") & !Email
                  Call .MoveNext
                Loop
            End If
            Call .Close
        End With
 
        Call MyDB.Close
        Set rstEMail = Nothing
        Set MyDB = Nothing
 
    'Generate and Display the E-Mail
 
        Call SendAnEmail(olSendTo:=strSendTo, _
                     olSubject:=strSubject, _
                     olEMailBody:=strEMailBody, _
                     olDisplay:=True, _
                     SendAsHTML:=True)
 
    Exit Sub
EH:
    MsgBox "There was an error sending mail!" & vbCrLf & vbCrLf & _
        "Error: " & Err.Number & vbCrLf & _
        "Description: " & Err.Description & vbCrLf & vbCrLf & _
        "Please contact your Database Administrator.", vbCritical, "WARNING!"
    Exit Sub
 
End Sub

My issue is its not building the sting correctly in the loop. Currently I only have 2 email address' in my table, but it is only putting in one email address. I'm not getting any errors, so I feel like I'm missing something in the loop.

Can anyone see something I'm missing?

[twinnyfo]

You are setting strSendTo to "" every new email address. Lines 27-36 should be:

                strSendTo = ""
                Do While Not .EOF
                    'Build the Recipients String
                    strSendTo = _
                        strSendTo & _
                        IIf(strSendTo = "", _
                            "", _
                            ";") & !Email
                  Call .MoveNext
                Loop

Hope this hepps!

[DJRhino1175]

Good fined Twinny, I don't think I would have ever caught that.

Thanks a million

[twinnyfo]

Glad I could be of service.

Let us know if we can hepp in any other way!