1. Go to Control > Query
2. Click New and choose Individuals Query
3. Under "Available Fields For Search" expand Contacts > Profile > Profile Highlights and click on Email
4. Click Add
5. Choose Not Empty from the drop-down menu
6. Click OK
7. Expand Contacts > Profile > Personal/Organization > Communications Preference and click on Do not email
8. Click Add
9. Choose Equals from the first drop-down menu, and No in the second drop down
10. Click OK
11. Click Next
12. Choose what fields you want to output in the query
13. Click Finish