This tutorial will show you how to send a simple email message with CCs and BCCs using ASP.NET 2.0 and VB.NET
Sending a email with CCs and BCCs using ASP.NET 2.0 and VB.NET is actually very simple.
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 CCs.
Try Server Intellect for Windows Server Hosting. Quality and Quantity!
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 use the CC and Bcc methods to add the emails we would like to CC to.
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 SendCC As MailAddress = New MailAddress(txtCC.Text)
Dim SendBCC As MailAddress = New MailAddress(txtBCC.Text)
Dim MyMessage As MailMessage = New MailMessage(SendFrom, SendTo)
MyMessage.CC.Add(SendCC)
MyMessage.Bcc.Add(SendBCC)
MyMessage.Subject = txtSubject.Text
MyMessage.Body = txtBody.Text
Dim emailClient As New SmtpClient(txtSMTPServer.Text)
emailClient.Send(MyMessage)
litStatus.Text = "Message Sent"
Catch ex As Exception
litStatus.Text = ex.ToString()
End Try |
If you're ever in the market for some great Windows web hosting, try Server Intellect. We have been very pleased with their services and most importantly, technical support.
The front end .aspx page looks something like this:
<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">
CC</td>
<td bgcolor="#FFFFFF"><asp:TextBox ID="txtCC" runat="server" Columns="50"></asp:TextBox>
</td>
</tr>
<tr>
<td align="right" bgcolor="#eeeeee" class="header1">
BCC</td>
<td bgcolor="#FFFFFF"><asp:TextBox ID="txtBCC" 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 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>
|
Need help with Windows Dedicated Hosting? Try Server Intellect. I'm a happy customer!
The flow for the code behind page is as follows.
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 SendCC As MailAddress = New MailAddress(txtCC.Text)
Dim SendBCC As MailAddress = New MailAddress(txtBCC.Text)
Dim MyMessage As MailMessage = New MailMessage(SendFrom, SendTo)
MyMessage.CC.Add(SendCC)
MyMessage.Bcc.Add(SendBCC)
MyMessage.Subject = txtSubject.Text
MyMessage.Body = txtBody.Text
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 |
Download the Full Working Version of this Project written with Visual Studio.NET VB.NET 2005 Here!
Looking for the C# 2005 Version? Click Here!
Looking for more ASP.NET Tutorials? Click Here!