OK this sin't perfect but it does work. It should give you a good start anyway.
VB Code:
<%@ Page Language="VB" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.Net" %>
<%@ import Namespace="System.Web.Mail" %>
<script runat="server">
Dim strMailBody as String
Private Sub GetHTML()
Dim strmReader As StreamReader = Nothing
Dim StrURL As String = "http://blogs.msdn.com/lisawoll/"
Dim objRequest As WebRequest = WebRequest.Create(StrURL)
Dim objResponse As WebResponse = objRequest.GetResponse()
strmReader = New StreamReader(objResponse.GetResponseStream())
Dim strContent As String = strmReader.ReadToEnd()
Dim RegEx As Regex = _
New Regex("<HTML>((.|\n)*?)</HTML>", _
RegexOptions.IgnoreCase)
Dim getMatch As Match = RegEx.Match(strContent)
strMailBody = (getMatch.Value)
Dim email As New MailMessage
With email
.To = txtTo.Text
.From = txtFrom.Text
.Body = strMailBody
.Subject = txtSubject.Text
.BodyFormat = MailFormat.HTML
End With
smtpMail.SmtpServer() = txtMserver.Text
SmtpMail.Send(email)
End Sub
Private Sub Button1_Click(s As Object, e As EventArgs)
GetHTML()
End Sub
</script>
Reply With Quote