[VB.NET] Invio di email con SmtpMail e risorse allocate mai rilasciate

[Stratus]

Invio email tramite il seguente codice:

Function SendMail(ByVal msgFrom As String, ByVal msgTo As String, ByVal msgSubject As String, ByVal msgBody As String, Optional ByVal msgCc As String = "") As String

        Dim mail As New MailMessage()

        SmtpMail.SmtpServer = "out.virgilio.it"

        mail.From = msgFrom
        mail.To = msgTo
        mail.Cc = msgCc
        mail.Subject = msgSubject
        mail.Priority = MailPriority.High
        mail.BodyFormat = MailFormat.Text
        mail.Body = msgBody
        Try
            SmtpMail.Send(mail)
            Return "Mail inviato."
        Catch e As Exception
            Return "Mail non inviato. " & e.ToString
        End Try
    End Function

Se invio un unica email mi funziona tutto alla perfezione ma se ne invio più di una, le invia tutte ma il thread del SmtpMail non mi rilascia più le risorse e anche se chiudo l'applicazione mi lascia tutto in memoria.

Ho pensato di utilizzare un approccio MultiThreading ma mi sembra un poco superfluo per un invio di E-mail.

Grazie 100000000000000000 per un eventuale aiuto...

:Ciauz: