amigo cambie el nombre del datagridview1 a dg
tengo el código listo y recibo el correo pero sin el cuerpo del mensaje por favor ayudenme les dejo el codigo para el envío del mensaje.
COMO NOTA ADICIONAL EL DATAGRID CONTIENE SOLO 1 FILA CON INFORMACION NO SE SI EL INDEX SEA LO QUE ME ESTA FALLANDO
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim _Message As New System.Net.Mail.MailMessage()
Dim _SMTP As New System.Net.Mail.SmtpClient
Dim strB As New StringBuilder()
'CONFIGURACIÓN DEL STMP
_SMTP.Credentials = New System.Net.NetworkCredential(Login.TxtUsuario.Text, Login.MtxtClave.Text)
_SMTP.Host = "*********"
_SMTP.Port = 587
_SMTP.EnableSsl = True
' CONFIGURACION DEL MENSAJE
_Message.[To].Add("****.*****@***********.***") 'Cuenta de Correo al que se le quiere enviar el e-mail
_Message.From = New System.Net.Mail.MailAddress(Label6.Text, Login.TxtUsuario.Text) 'Quien lo envía
_Message.Subject = "Prueba de Correo" 'Sujeto del e-mail
_Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
_Message.Body = strB.ToString() 'contenido del mail
_Message.BodyEncoding = System.Text.Encoding.UTF8
_Message.Priority = System.Net.Mail.MailPriority.Normal
_Message.IsBodyHtml = True
'create html & table
strB.AppendLine("<html><body><center><" & "table border='1' cellpadding='0' cellspacing='0'>")
strB.AppendLine("<tr>")
Dim NCol As Integer = dg.ColumnCount
Dim NRow As Integer = dg.RowCount
'cteate table header
For i As Integer = 1 To NCol
strB.AppendLine("<td align='center' valign='middle'>" & dg.Columns(i - 1).HeaderText() & "</td>")
Next
'close table header
strB.AppendLine("</tr>")
'create table body
strB.AppendLine("<tr>")
For i As Integer = 1 To NRow
strB.AppendLine("<tr>")
For Each dgvc As DataGridViewCell In dg.Rows(i - 1).Cells
strB.AppendLine("<td align='center' valign='middle'>" & dg.ToString() & "</td>")
Next
strB.AppendLine("</tr>")
Next
'table footer & end of html file
strB.AppendLine("</table></center></body></html>")
'ENVIO
ServicePointManager.ServerCertificateValidationCallback = Function(s As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) True
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
End Sub
