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