ciao,
prova ad utilizzare il seguente modulo, tenendo presente che puoi anche usare per il destinatario una collection.

Imports System.Web.Mail

Module InvioMail

Public Sub SendMail(ByVal mittente As String, _
ByVal destinatario As String, _
ByVal oggetto As String, _
ByVal corpoLettera As String, _
ByVal SmtpServer As String)

Dim oMsg As MailMessage = New MailMessage

' TODO: Replace with sender e-mail address.
oMsg.From = mittente
' TODO: Replace with recipient e-mail address.
oMsg.To = destinatario
oMsg.Subject = oggetto

' SEND IN HTML FORMAT (comment this line to send plain text).
oMsg.BodyFormat = MailFormat.Html

'HTML Body (remove HTML tags for plain text).
oMsg.Body = corpoLettera

' ADD AN ATTACHMENT.
' TODO: Replace with path to attachment.
Dim sFile As String '= pathAllegato
Dim oAttch As MailAttachment = New MailAttachment(sFile, MailEncoding.Base64)

oMsg.Attachments.Add(oAttch)

' TODO: Replace with the name of your remote SMTP server.
SmtpMail.SmtpServer = SmtpServer
SmtpMail.Send(oMsg)

oMsg = Nothing
'oAttch = Nothing

End Sub


End Module

Il metodo che ti hanno esposto è l'unico metodo esistente per .NET (almeno con le classi base) quindi è sicuro e funzionante....se il server si appesantisce non è colpa del codice...ma della quantità di dati.

Infatti io devo fare la stessa cosa con aruba... mi sa che faccio proprio così...
Ciao e grazie