I would suggest to following approach that always worked for me. Put all your criteria in your query (OCRChecks....) and save it. Then simply modify your code like this:
Code:
Private Sub Dept_Deposit_Notification_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim emailTo As String
Dim emailCC As String
Dim emailSubject As String
Dim emailText As String
Dim outApp As Outlook.Application
Dim outMail As Outlook.MailItem
Dim outStarted As Boolean
'vlad
Dim qdf as Dao.QueryDef
Dim prm as Parameter
'vlad
On Error Resume Next
Set outApp = GetObject(, "Outlook.application")
On Error GoTo 0
If outApp Is Nothing Then
Set outApp = CreateObject("Outlook.application")
outStarted = True
End If
Set db = CurrentDb
'strSQL = "SELECT [myUFL Master Project], [Check Number], [Date of Check], [Total Amt of Check], [Department ID], [Deposit ID], [Date of Deposit], [IDC Charged to Project], [Payment is Split], [Is Backup Available], [Payee], [PI Name], [Check Notification contact Email] FROM OCRChecksReceivedDeptNotification"
Debug.Print strSQL
set qdf=db.QueryDefs("OCRChecksReceivedDeptNotification")
For each prm in qdf.parameters
prm.value=Eval(prm.name)
Next prm
'Set rs = db.OpenRecordset(strSQL)
Set rs=qdf.openrecordset
Do Until rs.EOF
Cheers,
Vlad