1  
   2  <%@ Control Language="VB" ClassName="Email" %>
   3  <%@ Import Namespace="System.Net.Mail" %>
   4  
   5  
   6  
   7  <script runat="server">
   8      Public Property Email() As String
   9          Get
  10              Return recipientEmail
  11          End Get
  12          Set(ByVal value As String)
  13              recipientEmail = value
  14          End Set
  15      End Property
  16  
  17  
  18      Public Property Host() As String
  19          Get
  20              Return mhost
  21          End Get
  22          Set(ByVal value As String)
  23              mhost = value
  24          End Set
  25      End Property
  26  
  27  
  28      Public Property Port() As String
  29          Get
  30              Return mport
  31          End Get
  32          Set(ByVal value As String)
  33              mport = value
  34          End Set
  35      End Property
  36  
  37  
  38      Public Property Message() As String
  39          Get
  40              Return sentMessage
  41          End Get
  42          Set(ByVal value As String)
  43              sentMessage = value
  44          End Set
  45      End Property
  46      
  47      Dim recipientEmail As String
  48      Dim mhost As String
  49      Dim mport As Integer
  50      Dim sentMessage As String
  51      Dim client As New Net.Mail.SmtpClient()
  52  
  53      Protected Sub btnSendMail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSendMail.Click
  54  
  55          client.Host = Host
  56          client.Port = Port
  57          client.Send(txtSenderEmail.Text, recipientEmail, txtSubject.Text, txtMessage.Text)
  58          lblMessage.Text = sentMessage
  59      End Sub
  60  </script>
  61  
  62  <style type="text/css">
  63    label
  64    {
  65     	   float: left;
  66     	   width:10em;
  67     	   text-align:right;
  68     	   clear:left;
  69     	   margin-right: 7px;
  70     	   font-family: Tahoma, Sans-Serif;
  71     	   font-size:12px;
  72     	   font-weight:bold;
  73    	    padding:4px;
  74     		background:#FFFFFF;
  75     		color:#333333;
  76    }
  77    
  78    .validate
  79    {
  80      font-family: Tahoma, Sans-Serif;
  81     	font-size:12px;
  82    }
  83    
  84    </style>
  85    
  86  <label>Email:</label><asp:TextBox ID="txtSenderEmail" runat="server" Width="375px"></asp:TextBox>
  87  <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txtSenderEmail"
  88      ErrorMessage="Required!" CssClass="validate"></asp:RequiredFieldValidator><br />
  89  
  90  <label>Subject:</label><asp:TextBox ID="txtSubject" runat="server" Width="375px"></asp:TextBox>
  91  <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="txtSubject"
  92      ErrorMessage="Required!" CssClass="validate"></asp:RequiredFieldValidator><br />
  93  <label>Message:</label><asp:TextBox ID="txtMessage" runat="server" TextMode="MultiLine"
  94          Height="160px" Width="375px"></asp:TextBox>
  95  <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="txtMessage"
  96      ErrorMessage="Required!" CssClass="validate"></asp:RequiredFieldValidator><br />
  97  <label><asp:Label ID="lblMessage" runat="server"></asp:Label></label><asp:Button ID="btnSendMail"
  98          runat="server" Text="Send" />
  99