supervision on mass e mail sending

i use a loop to send e mail to all my site users, and using this procedure for the work:

 Sub Mailshot(ByVal adress As String, ByVal subject As String, ByVal body As String)
 Dim msgmail As MailMessage = New MailMessage()
 SmtpMail.SmtpServer = "smtp.012.net.il"
 msgmail.From = "shoresh@dotnet.itags.org.shoresh.org.il"
 Try
 msgmail.To = adress
 msgmail.Body = body
 msgmail.Subject = subject
 msgmail.BodyFormat = MailFormat.Html
 SmtpMail.Send(msgmail)
 Catch exc As Exception
 'DO WHATEVER ERROR HANDLING
 End Try
 msgmail = Nothing
 End Sub

my site have something like 1000 users. and i call the sub one by one (for...next loop)

I have two questions about this e mail sending:
1) does this loop is going to overflow? if yes, what should i do to prevent it?
2) do i have any way to supervise the sending progress, i should to refresh the page every time, something that i think is not so good idea!!

thanksA For...Next loop is better suited for what you are trying to acomplish
i do use a for next loop to call the sending procedure. i wondered if this calling again and again wont stuck it.
Can you create a group and put all your users on it and then just send an email to the group?