Simple Array

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

You can try this:

Sub SendMessage()
Dim OL As New Outlook.Application
Dim MI As MailItem
Dim strAddresses As String
Dim strAddress As String
Dim aCell As Range


Set OL = New Outlook.Application
Set MI = OL.CreateItem(olMailItem)

For Each aCell In Range("your range")
If aCell = Empty Then
Else
strAddress = aCell.Value
strAddresses = strAddresses & strAddress & ";"
End If
Next aCell
strAddresses = Left(strAddresses, Len(strAddresses) - 1)

With MI
.To = strAddresses
.Subject = "your subject"
.Body = "Here the text you want to mail"
.Display
End With

Set OL = Nothing
Set MI = Nothing
End Sub

Or this
http://www.j-walk.com/ss/excel/tips/tip86.htm