Underfrågan returnerade mer än 1 värde

Felet är här där du har många rader som försöker tilldelas en enda variabel

SET @Recipients =(SELECT DISTINCT a.EMail
     FROM   a
    --approximately 600 email addresses 

Du skulle behöva ändra den till en separat lista

SET @Recipients = STUFF(
           (select DISTINCT ';' + CAST(a.EMail AS varchar(max))
           FROM a FOR XML PATH ('')
           )
          ,1,1, '') 

Obs:@Recipients måste vara varchar(max)