すべての件数を送信するには？ (ID:146304)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になります。 現在メールの送信プログラムを作成しております。 ５０件ほどのメールをループ処理で送信しようとしているのですが、 ２５件前後しか送信されずに困っております。 決してエラーが出るわけでもありません。 以下がそのコードです。（ループ処理内） Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("iso-2022-jp") Dim msg As New System.Net.Mail.MailMessage() Try msg.From = New System.Net.Mail.MailAddress(xxx@xxx, xxx) msg.To.Add(New System.Net.Mail.MailAddress(xxx@xxx)) msg.Subject = xxx msg.Body = xxx msg.SubjectEncoding = enc msg.BodyEncoding = enc Dim smtpClient As New System.Net.Mail.SmtpClient(xxxxx, 587) smtpClient.ServicePoint.MaxIdleTime = 1 smtpClient.Credentials = New System.Net.NetworkCredential(xxx, xxx) AddHandler smtpClient.SendCompleted, New System.Net.Mail.SendCompletedEventHandler(AddressOf smtpClient_SendCompleted) smtpClient.SendAsync(msg, nothing) Catch ex As Exception End Try 環境はWinXP,VB2005です。 どなたかアドバイスよろしくお願いします。