My Happy Moments » Asp.net

Read a Web Page and send it as an HTML Email

Vish — Thu, 23 Apr 2009 01:43:46 +0000

Recently I was asked to write a code to send entire Aspx page as an HTML mail using VB.Net.
Private Function ReadAspxPage(ByVal url As String) As String Dim htmlPage As String Dim objResponse As System.Net.WebResponse Dim objRequest As System.Net.WebRequest = System.Net.HttpWebRequest.Create(url) objResponse = objRequest.GetResponse() Dim readpage As New System.IO.StreamReader(objResponse.GetResponseStream())


htmlPage = readpage.ReadToEnd()

readpage.Close()

Return htmlPage.toString() End Function

How to read HTML file onServer in ASP.Net

Vish — Thu, 23 Apr 2009 01:31:57 +0000

Private Function GetEmailTemplate(ByVal templateName As String) As String Dim sr As IO.StreamReader = New IO.StreamReader(System.Web.HttpContext.Current.Server.MapPath(templateName)) Dim body As String = sr.ReadToEnd() sr.Close() sr.Dispose() Return body End Function Related posts:Read a Web Page and send it as an HTML Email Read all Mail Merge Field in an Collection. How to Use Code Behind to display text [...] Related posts:

Read all Mail Merge Field in an Collection.

Vish — Thu, 23 Apr 2009 00:37:49 +0000

I was asked to read all Mail merge Files in an HTML Template and then perform a mail Merge.
The MailMerge Fields were like ##[Field]##.
So thought to use regex to find the fields.

The biggest task for me was to write a regex for Matching ##[Merge Fields]##.

This is the code that I ended with.

Private Function GetEmailMergeFields(ByVal body As String) As ListItemCollection Dim list As ListItemCollection = New ListItemCollection


Dim pattern As String = "##\[.*?\]##"

Dim mymatches As System.Text.RegularExpressions.MatchCollection

Dim myregex As New System.Text.RegularExpressions.Regex(pattern)
mymatches = myregex.Matches(body)

For Each succ As System.Text.RegularExpressions.Match In mymatches

list.Add(succ.Value)

Next
Return list

End Function