Navigator : Home > Tutorials > Email Tutorials > ...
Send Email with Priorities using ASP.NET 2.0 and VB.NET
This tutorial will show you how to send a simple email message with priorities using ASP.NET 2.0 and VB.NET
Sending a email with Priorities using ASP.NET 2.0 and VB.NET is actually very simple.
Server Intellect offers Windows Hosting Dedicated Servers at affordable prices. I'm very pleased!
First, you will need to import the System.Net.Mail namespace.
The System.Net.Mail namespace contains the SmtpClient and MailMessage Classes that we need in order to send the email and specify the Priority.
We use the btnSubmit_Click event to do the work.
We then call the emailClient.Send to send the message using the variables from our ASP.NET coded page. We then use a switch statement to determine the desired level of priority and set the Priority property of our MailMessage object accordingly.
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Try
Dim SendFrom As MailAddress = New MailAddress(txtFrom.Text) Dim SendTo As MailAddress = New MailAddress(txtTo.Text) Dim MyMessage As MailMessage = New MailMessage(SendFrom, SendTo) MyMessage.Subject = txtSubject.Text MyMessage.Body = txtBody.Text Select Case ddPriority.SelectedValue
Case "Low"
MyMessage.Priority = MailPriority.Low
Case "Normal"
MyMessage.Priority = MailPriority.Normal
Case "High"
MyMessage.Priority = MailPriority.High End Select Dim emailClient As New SmtpClient(txtSMTPServer.Text) emailClient.Send(MyMessage) litStatus.Text = "Message Sent" Catch ex As Exception
litStatus.Text = ex.ToString() End Try |
The front end .aspx page looks something like this:
<table width="600" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#5482fc">
<tr>
<td height="50" align="center" class="lgHeader1">How to set Email Priority using ASP.NET 2.0 and C#</td>
</tr>
</table>
<br />
<table width="600" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
<tr>
<td width="100" align="right" bgcolor="#eeeeee" class="header1"> To</td>
<td bgcolor="#FFFFFF"><asp:TextBox ID="txtTo" runat="server" Columns="50"></asp:TextBox>
</td>
</tr>
<tr>
<td width="100" align="right" bgcolor="#eeeeee" class="header1"> From</td>
<td bgcolor="#FFFFFF"><asp:TextBox ID="txtFrom" runat="server" Columns="50"></asp:TextBox>
</td>
</tr>
<tr>
<td align="right" bgcolor="#eeeeee" class="header1"> SMTP Server</td>
<td bgcolor="#FFFFFF"><asp:TextBox ID="txtSMTPServer" runat="server" Columns="50"></asp:TextBox></td>
</tr>
<tr>
<td width="100" align="right" bgcolor="#eeeeee" class="header1"> Subject</td>
<td bgcolor="#FFFFFF"><asp:TextBox ID="txtSubject" runat="server" Columns="50"></asp:TextBox></td>
</tr>
<tr>
<td align="right" bgcolor="#eeeeee" class="header1">
Priority</td>
<td bgcolor="#ffffff">
<asp:DropDownList ID="ddPriority" runat="server">
<asp:ListItem>Low</asp:ListItem>
<asp:ListItem Selected="True">Normal</asp:ListItem>
<asp:ListItem>High</asp:ListItem>
</asp:DropDownList></td>
</tr>
<tr>
<td width="100" align="right" bgcolor="#eeeeee" class="header1"> Body</td>
<td bgcolor="#FFFFFF"><asp:TextBox ID="txtBody" runat="server" Columns="40" TextMode="MultiLine"></asp:TextBox></td>
</tr>
<tr>
<td align="right" bgcolor="#eeeeee" class="header1">Action</td>
<td bgcolor="#FFFFFF"><asp:Button ID="btnSubmit" runat="server" Text="Send Email" OnClick="btnSubmit_Click" /></td>
</tr>
<tr>
<td width="100" align="right" bgcolor="#eeeeee" class="header1">Status</td>
<td bgcolor="#FFFFFF" class="basix"><asp:Literal ID="litStatus" runat="server"></asp:Literal></td>
</tr>
</table> |
The flow for the code behind page is as follows.
Try Server Intellect for Windows Server Hosting. Quality and Quantity!
Imports System.Net.Mail
Partial Class _Default
Inherits System.Web.UI.Page Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Try
Dim SendFrom As MailAddress = New MailAddress(txtFrom.Text) Dim SendTo As MailAddress = New MailAddress(txtTo.Text) Dim MyMessage As MailMessage = New MailMessage(SendFrom, SendTo) MyMessage.Subject = txtSubject.Text MyMessage.Body = txtBody.Text Select Case ddPriority.SelectedValue
Case "Low"
MyMessage.Priority = MailPriority.Low
Case "Normal"
MyMessage.Priority = MailPriority.Normal
Case "High"
MyMessage.Priority = MailPriority.High End Select Dim emailClient As New SmtpClient(txtSMTPServer.Text) emailClient.Send(MyMessage) litStatus.Text = "Message Sent" Catch ex As Exception
litStatus.Text = ex.ToString() End Try End Sub |
Looking for the C# 2005 Version? Click Here!
Looking for more ASP.NET Tutorials? Click Here!