Well, I tried
DoCmd.OpenForm "frmViewEmail", acNormal, "Year([ReceivedDate]) = " & Year(Date), _
"[EmailID] = " & DMax("EmailID", "tblEmails", "year([receiveddate]) = " & Year(Date))
and the combobox is still displaying EmailID's from previous years, so it looks like this method is a bust...