How can I create an array or something similiar for the following situation?

I want to email something to 10 different people

instead of typing in all 10 names like

With OutMail
.To = "number1@mydomain.com", "number2@mydomain.com"
End with

Is there anyway to make an array

All of the email addresses are on Sheet1 Range(A1:A20)...not all cells in the range have email, some are blank

thanks for any help

Josh