Good morning,

I have this procedure that is run that pulls email names that match our
global database and emails reports to automatically to each group of names,
using click yes and Outlook.  I have created a trap, error handler that skips
the cost center that has an invalid name it.  My question is, if the field
has four names in it and only one of them is invalid, how can I still send to
the three that are good and skip the one that is invalid?

here is the code I am using:

Sub EMail_BranchPipeline()

Dim rst As DAO.Recordset
Dim dbs As DAO.Database
Dim qdf As QueryDef
Dim BRANCH As String
Dim BranchName As String
Dim BREml As String
Dim stDocName As String
Dim varme As Variant

Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("qryPIPWEmailList")
Let stDocName = "rptPIPWDetailPipeline"
rst.MoveFirst
DoCmd.SetWarnings False
DoCmd.OpenForm ("frmPIPWReportGen")
Do Until rst.EOF
   Let BRANCH = rst!Branch5dgt
   Let BranchName = rst![Branch Name]
   Let BREml = rst!PipelineEmail
   Let [Forms]![frmPIPWReportGen]![BrName].Value = BranchName
   Let [Forms]![frmPIPWReportGen]![BRANCH].Value = BRANCH
   varme = DCount("[Loan #]", "qryPIPWDetailPipeline")
   If (varme <> 0 And [Forms]![frmBPProdRepDateInput]![Check22] = False)
Then DoCmd.OpenReport stDocName, acViewNormal
   
  On Error GoTo ErrorHandler
       If (varme <> 0 And [Forms]![frmBPProdRepDateInput]![Check19] = False)
Then DoCmd.SendObject acSendReport, stDocName, acFormatSNP, BREml, , ,
BranchName & " Pipeline Reports", "Pipeline report for " & BranchName & "
attached.  This is a multiple page report, please make sure you view or print
all pages.", False
rst.MoveNext
Loop
rst.Close
Set dbs = Nothing
DoCmd.Close acForm, ("frmPIPWReportGen")
DoCmd.SetWarnings True

ErrorHandler:
   If Err.Number = 2295 Then
       MsgBox "Error number " & Err.Number & ": " & Err.Description + " For
Cost Center " + [Forms]![frmCMSHReportGen]![CstCntr]
       
  Resume Next
End If

End Sub