Hola vamos a explicar el envio de correo en visual basic.net 2010.
Dim _Message As New System.Net.Mail.MailMessage()
Dim _SMTP As New System.Net.Mail.SmtpClient
_SMTP.Credentials = New System.Net.NetworkCredential("anny18@msn.com", "nuevonovio12345")
_SMTP.Host = "smtp.live.com"
_SMTP.Port = 587
_SMTP.EnableSsl = True
' CONFIGURACION DEL MENSAJE
_Message.[To].Add("anny18@msn.com".ToString) 'Cuenta de Correo al que se le quiere enviar el e-mail
_Message.From = New System.Net.Mail.MailAddress("anny18@msn.com", "Aplicacion de INSUMO Base94", System.Text.Encoding.UTF8) 'Quien lo envía
_Message.Subject = "Aplicacion de INSUMO Base94".ToString 'Sujeto del e-mail
_Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
'_Message.Body = Me.txtMensaje.Text.ToString 'contenido del mail
_Message.BodyEncoding = System.Text.Encoding.UTF8
_Message.Priority = System.Net.Mail.MailPriority.Normal
Dim vBody As String = ""
vBody &= "<font size=6> <b>Insumos</b></font><br/> "
vBody &= "Cantidad Separada en la Base94".ToString & "<br/>" 'contenido del mail
vBody &= "Fecha de envio: " & Now.ToString & "<br/>"
vBody &= "<TABLE border=1 >"
vBody &= "<tr>"
vBody &= "<TD>Cantidad separada</TD>"
'vBody &= "<TD>CxB</TD>"
'vBody &= "<TD>Disponible</TD>"
'vBody &= "<TD>Fecha Entrada</TD>"
vBody &= "<TD>Referencia </TD>"
vBody &= "<TD>Descrpcion</TD>"
' vBody &= "<TD>PVP</TD>"
' vBody &= "<TD>Factor</TD>"
'vBody &= "<TD>Unidad</TD>"
vBody &= "</tr>"
For Each ci As CartItem In RSX.Items 'Aqui recorro una tabla virtual hecha en el programa 'ustedes le haria for a la tabla
If ci.cantidadSeparado <> 0 Then
vBody &= "<TR>"
vBody &= "<TD>" & ci.cantidadSeparado & "</TD>"
'vBody &= "<TD>" & ci.cxb & "</TD>"
'vBody &= "<TD>" & ci.disponible & "</TD>"
'vBody &= "<TD>" & ci.fechaEntrada & "</TD>"
vBody &= "<TD>" & ci.itemCode & "</TD>"
vBody &= "<TD>" & ci.itemName & "</TD>"
'vBody &= "<TD>" & ci.pvp & "</TD>"
'vBody &= "<TD>" & ci.unidad & "</TD>"
'vBody &= "<TD>" & ci.uxf & "</TD>"
'vBody &= "<TD>" & ci.cantidadSeparado * ci.cxb & "</TD>"
vBody &= "</TR>"
End If
Next
vBody &= "</TABLE>"
_Message.Body = vBody
_Message.IsBodyHtml = True
'ENVIO
Try
_SMTP.Send(_Message)
MessageBox.Show("Mensaje enviado correctamene", "Exito!", MessageBoxButtons.OK)
Catch ex As System.Net.Mail.SmtpException
MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK)
End Try