MailMessage = Nothing

[edwilli]

I've got a VB.NET web service that checks an email queue in a database.
We've been getting a spike in the RPC service on the email server. The
service is not running on the email server that it's using to send the email.

Dim emailTable As DataTable
Dim i As Integer
Dim Message As New MailMessage
Dim MailServer As SmtpMail

Try
'get a table with the queued emails
emailTable = CheckQueue()

For i = 0 To emailTable.Rows.Count - 1
Message.To =
NullToEmptyString(emailTable.Rows(i).Item("to_addr ess"))
Message.From =
NullToEmptyString(emailTable.Rows(i).Item("from_ad dress"))
Message.Cc =
NullToEmptyString(emailTable.Rows(i).Item("cc_addr ess"))
Message.Body =
NullToEmptyString(emailTable.Rows(i).Item("bcc_add ress"))
Message.Subject =
NullToEmptyString(emailTable.Rows(i).Item("subject "))
Message.Body =
NullToEmptyString(emailTable.Rows(i).Item("body"))
Message.BodyFormat = MailFormat.Html

MailServer.SmtpServer = "mail.corp.com"
MailServer.Send(Message)
Next

Catch ex As System.Exception

Finally
Message = Nothing
End Try

I'm thinking the Message = Nothing might be the problem, as the object is
unmanaged?? I could pull it out, but the problem is on and off, so I
couldn't be sure that's the fix.

Any suggestions.

Dan