Envio de mail a multiples destinarios Visual basic 2005

[sniper_lcd]

Perdon se me olvido decirte donde lo pongas, mira yo lo puse antes de todo lo de Outlook, y donde dice Mail.To, yo puse la variable direcciones y creo que con el tuyo podria quedar mas o menos asi

Dim i As Integer
Dim direcciones As String = ""

Sub Mail()
For i = 0 To (ListBox.Items.Count - 1)
direcciones = direcciones & Trim(ListBox.Items(i).ToString) & ";"
Next i
direcciones = Trim(direcciones).Substring(0, direcciones.Length - 1)


Dim m_OutLook As Outlook.Application
Try
Dim objMail As Outlook.MailItem 'Creacion de Objeto tipo Mail
m_OutLook = New Outlook.Application 'Inicializa OutLook
objMail = m_OutLook.CreateItem(Outlook.OlItemType.olMailItem ) 'Creacion de instancia de objeto tipo MailItem
' Asignacion de propiedades a la Instancia del objeto
' MailItem
objMail.To = Direcciones
objMail.Subject = "Servicio..............er"
objMail.Body = "En estos momentos, el sistema..... tomar las previsiones del caso." & vbCrLf & vbCrLf & "Muchas Gracias."
objMail.Send() 'Envio del Mail
Catch ex As Exception
MsgBox("Error enviando mail")
Finally
m_OutLook = Nothing
End Try

despues de la rutina que te obtiene las direcciones y antes de enviar el mail, puedes poner un msgbox para que te muestre como esta acomodando las direcciones por ejemplo MsgBox(Direcciones)