Cómo envio una pagina html por mail?

[uruviel]

Hola a tod@s, tengo u programa que tiene una pagina .htm y una .aspx
En la .aspx la aplicación debe enviar la pagina .htm por mail a las direcciones de correo que especifico en el textboxPara y no tengo ni idea de cómo hacerlo.

Alguien me puede ayudar? Muchas gracias

[Antonito]

Puedes poner el codigo o un link a los ficheros?
un saludo,

[uruviel]

No, el cuerpo del mensaje tiene que mostrar el html.
No aceptan que ponga un link a la pagina.

Por ahora lo que tengo es esto:
Protected Sub btnEnviar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnEnviar.Click
Dim oMail As New MailMessage
Try
oMail.IsBodyHtml = True
oMail.From = New MailAddress("[email protected]")
oMail.To.Add(New MailAddress("[email protected]"))
oMail. 'Aqui quiero poner el archivo que contiene el html, pero no se como
'he visto que con MailDefinition puedes añadirselo con la propiedad
'BodyFileName, pero con este no sé como ponerle los destinatarios
oMail.Subject = "Newsletter"
Catch ex As Exception

End Try

End Sub

[uruviel]

Bueno, ya después de seguir investigando he conseguido mandar el archivo.
Lo que no consigo ahora es que me lea bien el css en el mail que se envia...

Si alguien sabe el motivo le agradecería que me lo comunicara.

Aquí les dejo el código de cómo solucioné lo del cuerpo del mensaje para que se enviara como archivo htm

Código:

Protected Sub btnEnviar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnEnviar.Click
        Dim oMail As New MailMessage
        Try
            oMail.IsBodyHtml = True
            oMail.From = New MailAddress("[email protected]")
            oMail.To.Add(New MailAddress("[email protected]"))
            oMail.Body = Mensaje()

            oMail.Subject = "Asunto"

            Dim oSender As New SmtpClient
            oSender.Host = System.Configuration.ConfigurationManager.AppSettings   ("etiquetadeweb.configdondetengaselservidor")
            oSender.Port = xx 'xx=numero del puerto
            oSender.Send(oMail)

        Catch ex As Exception

        End Try

    End Sub

    Private Function Mensaje() As String
        Dim oFile As System.IO.File
        Dim oRead As System.IO.StreamReader
        Dim EntireFile As String


        'Abrimos el archivo
        oRead = IO.File.OpenText(Server.MapPath("rutadelarchivo\conrespectoalsitiodedondelolanza"))
        EntireFile = oRead.ReadToEnd()

        oRead.Close()
        oRead = Nothing
        oFile = Nothing

        Return EntireFile
    End Function