Hey Minty,
While I am waiting til you have time, I tried something and it still didn't work. Here it is:
EmailRecipiantsList = DLookup("Notification_email_dept", "qryEmailTo", "[EmailType_ID] = 1")
CC_List = DLookup("Notification_email_dept", "qryEmailTo", "[EmailType_ID] = 2")...