Invio email tramite il seguente codice:
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.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
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:


Rispondi quotando
