Hola SandraLl. Tengo el siguiente codigo que l que hace es enviar correos desde una pagina web. A mi me funciona sin problemas. Espero porder ayudarte con este codigo.
Código:
Imports System.Web.Mail
Imports System.Net.Mail
Imports System.Net.Mime.MediaTypeNames
Sub enviarcorreos()
'variables de envio de correo
Dim MiStringBuilder As New StringBuilder
Dim MiStringWriter As New StringWriter(MiStringBuilder)
Dim MiHTMLTextWriter As New HtmlTextWriter(MiStringWriter)
'Mandamos llamar el metodo RenderControl con el control TextWriter como parametro
formularioweb.RenderControl(MiHTMLTextWriter)
'Así obtenemos el texto HTML que el browser tomaría como entrada para desplegarlo
'gráficamente.
Dim TextoControlHTML As String = MiStringBuilder.ToString()
Dim correo As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage
correo.To.Add("direccion de correo del destinatario)
correo.From = New MailAddress("direccion de correo", System.Text.Encoding.UTF8)
correo.Subject = "Asunto de envio del correo"
correo.Body = TextoControlHTML
correo.SubjectEncoding = System.Text.Encoding.UTF8
correo.BodyEncoding = System.Text.Encoding.UTF8
correo.IsBodyHtml = True
Dim cliente As New SmtpClient
cliente.Credentials = New System.Net.NetworkCredential("usuario", "contraseña")
cliente.Host = "nombre del host"
cliente.Port = 25
Try
cliente.Send(correo)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Si te fijas arriva he puesto
Código:
formularioweb.RenderControl(MiHTMLTextWriter)
. Formulario web es el formulario en html que quiero enviaqr por correo. De este modo en el cuerpo del correo pueden ir tablas con datos imagenes, etc
Por ejemplo una parte de ese formulario web seria:
Código:
<body>
<form id="formularioweb" runat="server">
<div>
<table>
<tr>
<th>
<a>
Hola Hola
</a>
</th>
</tr>
</table>
</div>
</form>
</body>
Espero que mi explicación te sirva de ayuda. Mucha suerte en tu proyecto.
Un saludo
Pinty