メールの複数送信のやり方

MaD 2008-02-06 00:32:58 No: 138845

お世話になってます。
複数にメールを送信するプログラムを作っています。

Imports System.Net.Mail

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim FromAddress As String = My.Settings.FromAddress()
Dim ToAddress As String = My.Settings.ToAddress()
Dim ToAddress2 As String = My.Settings.ToAddress2()
Dim Subject As String = My.Settings.Subject()
Dim SmtpServerName As String = My.Settings.SmtpServerName()
Dim Body As String = "テストメール"

'メールメッセージの作成
Dim Message As New MailMessage()
'送信者の設定
Message.From = New MailAddress(FromAddress)
'宛先の設定
Message.To.Add(New MailAddress(ToAddress))
'宛先を追加する。
Message.To.Add(New MailAddress(ToAddress2))
'件名を設定する。
Message.Subject = Subject

'SMTPサーバーを指定する。
Dim Client As New SmtpClient(SmtpServerName)
'ファイルを添付する。
Dim Attach As New Attachment(AttachedFile)
Message.Attachments.Add(Attach)

      Try
        '送信する。
        Client.Send(Message)
            MessageBox.Show("送信完了しました")

        Catch ex As Exception
            'SMTPサーバーへ接続に失敗した場合
            MessageBox.Show(ex.Message)
        End Try
    End Sub

このやり方で複数に送信できるのですが
もし複数に送信する人数が増えた場合、増えた分だけ
Message.To.Add(New MailAddress(ToAddress3))のように
パラメータを増やさないといけないので
プログラムを変えないで設定ファイルだけを変えて
複数にメールする方法はできないのでしょうか？
ご教授よろしくお願いします。