Click here to Skip to main content
13,300,331 members (53,320 online)
Click here to Skip to main content
Add your own
alternative version


32 bookmarked
Posted 11 Apr 2003

Handy ASP.NET Email Control

, 28 Apr 2003
Rate this:
Please Sign up or sign in to vote.
An email feedback control written in VB.NET
<!-- Add the rest of your HTML here -->


Most websites have the need for some sort of "feedback form" or "email-us" page, which, as we know, is tedious to re-develop on every site, even in .NET. I have developed this simple E-Mail control in VB.NET that can be wrapped around any form to be turned into an email form, even with file inputs.

The first major thing to overcome is the <ParseChildren(False)> property which must be set just above the CLASS in the .ascx.vb file (no extra linebreaks). This allows the User Control to access the controls on the .aspx page where it is used.

<ParseChildren(False)> _ 'No extra linebreak after this!!
    Public MustInherit Class MailAnything
    Inherits System.Web.UI.UserControl

If you do have a file input on your web form remember to set the enctype="multipart/form-data".

Another important thing to remember is to use Web Forms Labels to name your fields on the web form so that it can be read by your user control and form part of the email.

The basic elements of the form in the .aspx file is as follows (example).

<Bluegrass:Mailer Mailto="" runat="server"> 
 <table border="0" ID="Table1"> 
   <td align="right" valign="top"> 
    <asp:Label ID="lblFirstname" Runat="server" /> 
    <asp:TextBox CssClass="input" ID="txtFirstname" Runat="server" /> 
   <td align="right" valign="top"> 
    <asp:Label ID="lblLastname" Runat="server" /> 
    <asp:TextBox CssClass="input" ID="txtLastname" Runat="server" /> 
   <td align="right" valign="top"> 
    <asp:Label ID="lblDescription" Runat="server" /> 
    <asp:TextBox CssClass="input" ID="txtDescription" TextMode="MultiLine"<BR>      Runat="server" /> 
   <td align="right" valign="top"> 
    <asp:Label ID="lblAge" Runat="server" /> 
    <asp:DropDownList CssClass="input" ID="selAge" Runat="server" /> 
   <td align="right" valign="top"> 
    <asp:Label ID="lblfile" Runat="server" /> 
    <input CssClass="input" type="file" id="FileInput" runat="server"<BR>      NAME="FileInput"> 
   <td align="right" valign="top"> 
    <asp:Label ID="lblReply" Runat="server" /> 
    <asp:CheckBox ID="chkReply" Runat="server" /> 

Also don't forget to register your User control in the .aspx file

<%@ Register TagPrefix="Bluegrass" TagName="Mailer"<BR>  Src="controls/MailAnything.ascx" %>

The rest is then all done in the user control which can be re-used in any project. Here is how I did the user control:

Imports System
Imports System.Collections
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.ComponentModel
Imports System.Web.Mail
Imports System.Text

Namespace Bluegrass.Mail

    <ParseChildren(False)> _ 'No extra linebreak after this!!
        Public MustInherit Class MailAnything
        Inherits System.Web.UI.UserControl
        'Add your button so that it doesn't need to be done in the aspx side
        Protected WithEvents btnMail As Button
        Protected lblSent As Label
        'Declare this public string so that the "mail to" address can be set<BR>        'in the aspx page
        Public Mailto As String

#Region " Web Form Designer Generated Code "
 End Region

        Private Sub Page_Load(ByVal sender As System.Object, _<BR>          ByVal e As System.EventArgs) Handles MyBase.Load
        End Sub

        Private Sub RegisterBtn_Click(ByVal sender As System.Object, _<BR>          ByVal e As System.EventArgs) Handles btnMail.Click
            'Set random counter
            Dim iCount As Integer = 0
            'Set control counter
            Dim iControlCount As Integer
            'Dim filename in case there are files to email
            Dim sFileNameOnly As String

            Dim sControl As String
            Dim sBody As StringBuilder = New StringBuilder()
            'Count the controls
            iControlCount = Controls.Count
            'Loop through each control to add to message body
            Do While iCount < (iControlCount - 1)
              'do not include "lblSent" in the body
              If Not Controls(iCount).ID = "lblSent" Then
                Select Case Controls(iCount).GetType().Name
                  Case "HtmlInputFile"
                    'If there is a file to email then save the file<BR>                    'to disk
                    Dim currentControl As HtmlInputFile = Controls(iCount)
                    If Len(currentControl.PostedFile.FileName) > 0 Then
                      Dim iFileNameLength As Integer
                      Dim PostedFile = currentControl.PostedFile
                      Dim sFileNamePath As String
                      sFileNamePath = currentControl.PostedFile.FileName
                      iFileNameLength = InStr(1, StrReverse(sFileNamePath), _<BR>                        "\")
                      sFileNameOnly = Mid(sFileNamePath, _<BR>                        (Len(sFileNamePath) - iFileNameLength) + 2)
                      currentControl.PostedFile.SaveAs(_<BR>                        Server.MapPath("\MailTS\uploaded\" & sFileNameOnly))
                    End If
                  Case "TextBox"
                    Dim currentControl As TextBox = Controls(iCount)
                    sBody.AppendFormat("{0} <br />", currentControl.Text)
                  Case "Label"
                    Dim currentControl As Label = Controls(iCount)
                    sBody.AppendFormat("{0} ", currentControl.Text)
                  Case "DropDownList"
                    Dim currentControl As DropDownList = Controls(iCount)
                    sBody.AppendFormat("{0} <br />", _<BR>                      currentControl.SelectedItem.Text)
                  Case "CheckBox"
                    Dim currentControl As CheckBox = Controls(iCount)
                    If currentControl.Checked Then
                      sBody.AppendFormat("{0} <br />", "Yes")
                      sBody.AppendFormat("{0} <br />", "No")
                    End If
                End Select
              End If
              'Increment random counter
              iCount = iCount + 1
            'Dim mail message
            Dim mailCurrent As New MailMessage()
            'Assign mail attributes
            mailCurrent.Body = sBody.ToString()
            mailCurrent.To = Mailto
            mailCurrent.From = Mailto
            mailCurrent.BodyFormat = MailFormat.Html
            'If there is a file to mail add it to the email
            If Len(sFileNameOnly) > 0 Then
              mailCurrent.Attachments.Add(_<BR>                New System.Web.Mail.MailAttachment(_<BR>                  Server.MapPath("\MailTS\uploaded\" & sFileNameOnly)))
            End If
            'Set SMTP server to localhost
            SmtpMail.SmtpServer = "localhost"
            'Send mail
            'Assign text to say mail was sent
            lblSent.Text = "Your mail was sent to: " & Mailto
         End Sub
        'Some extra formatting
        Protected Overrides Sub RenderChildren(ByVal output As HtmlTextWriter)
          If HasControls() Then
            Dim iCount As Integer = 3
            Dim iControlCount As Integer

            iControlCount = Controls.Count

            Do While iCount < (iControlCount - 1)
              iCount = iCount + 1

          End If
        End Sub
    End Class
End Namespace


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


About the Author

Trevor Swanepoel
South Africa South Africa
No Biography provided

You may also be interested in...


Comments and Discussions

GeneralMaster Pages Pin
Wingnut121320-Jun-06 12:20
memberWingnut121320-Jun-06 12:20 
GeneralGood job ! Pin
Mohammed Aziz Elnahrawi19-Dec-05 22:52
memberMohammed Aziz Elnahrawi19-Dec-05 22:52 
GeneralHELP Pin
cookie king23-Aug-05 7:08
susscookie king23-Aug-05 7:08 
GeneralWeb form control : Table Pin
Anonymous13-Dec-04 6:31
sussAnonymous13-Dec-04 6:31 
GeneralObject Error Pin
Chianti7310-Dec-03 10:05
sussChianti7310-Dec-03 10:05 
GeneralSome project files would be nice Pin
Steven Carleton6-Jul-03 11:48
memberSteven Carleton6-Jul-03 11:48 
QuestionHow to use this inside a control? Pin
Anonymous19-May-03 10:51
sussAnonymous19-May-03 10:51 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

Permalink | Advertise | Privacy | Terms of Use | Mobile
Web04 | 2.8.171207.1 | Last Updated 29 Apr 2003
Article Copyright 2003 by Trevor Swanepoel
Everything else Copyright © CodeProject, 1999-2017
Layout: fixed | fluid