Visual Basic.NET - enviar contenido de DataGridView por correo

message.Body="<table border='3'>"

message.Body &="<tr>"

For i As Integer=0 To DatagridView1.ColumnCount-1

   message.Body &="<th>" & DataGridView1.Columns(i).Name & "</th>"

Next

message.Body &="</tr>

For Each row As DataGridViewRow In DatagridView1.Rows

    message.Body &="<tr>"      'Defineuna nueva fila

    message.Body &="<td>" & row.Cells(0).Value & "</td>".

    message.Body &="<td>" & row.Cells(1).Value & "</td>"

   message.Body &="<td>" & row.Cells(2).Value & "</td>"

   'Repite el mismo codigo por cada columna del datagridview, tambien puedes hacerlo con un for directamente

  message.Body &="</tr>"  'Cierra la definicion de la fila

Next

message.Body &="</table>"

</table>

message.Body="<h1>Texto a enviar </h1>"

message.Body &="<table border='3'>"  'Y aqui recien entra la definicion de la tabla