This code sample is to show how to send emails in ASP.NET. Obviously there's lots more you can do, such as add attachments, read receipts etc. I'll add different code samples for these type of events.
Main Page
Code BehindCode:<%@ Page Language="VB" AutoEventWireup="true" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN""http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> <html xmlns="XHTML namespace"> <head runat="server"> <title>Sending Email using ASP.Net</title> </head> <body> <form id="form1" runat="server"> <asp:Label ID="lbl_response" runat="server"/><br/> <br/> To: <asp:TextBox ID="txt_to" runat="server"/><br/> cc: <asp:TextBox ID="txt_cc" runat="server"/><br/> bcc: <asp:TextBox ID="txt_bcc" runat="server"/><br/> Subject: <asp:TextBox ID="txt_subject" runat="server"/><br/> <br/> Message:<br/> <asp:TextBox ID="txt_mess" runat="server" TextMode="MultiLine"/><br/> <br/> <asp:Button ID="but_send" runat="server" Text="Send"/> </form> </body> </html>
Code:'import the net.mail namespace Imports System.Net.Mail Partial Class _Default Inherits System.Web.UI.Page Protected Sub but_send_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles but_send.Click 'create smtp instance Dim smtp As New SmtpClient 'set the delivery method. We're using an external smtp server smtp.DeliveryMethod = SmtpDeliveryMethod.Network 'set the port the smtp server allows access on smtp.Port = 25 'set the name of the smtp server to use smtp.Host = "smtp.domain.com" 'create mail message instance Dim myMail As New MailMessage() 'stringbuilder for building message body Dim mail_body As New StringBuilder 'create html email body mail_body.Append("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">") mail_body.Append("<html>") mail_body.Append("<head>") mail_body.Append("<title>Send Email</title>") mail_body.Append("<style type=""text/css"">") mail_body.Append(".dblue8 { font-family:arial; color: #000066; font-size: 8pt }") mail_body.Append("</style>") mail_body.Append("</head>") mail_body.Append("<body class=""dblue8"">") 'add in text from message box as the body mail_body.Append(txt_mess.Text) mail_body.Append("</body>") mail_body.Append("</html>") 'create a variable to hold any error message Dim err_mess As String = String.Empty 'create a try...catch area for creating the email and catching any errors Try 'create instance of a mail address for the To address Dim mail_to As MailAddress 'for multiple email addresses, split the email address by ; Dim arr_email As Array = Split(txt_to.Text, ";") 'create a temp string to hold each email address in the to box Dim email_to As String 'iterate through all the email addresses in the email array For Each email_to In arr_email 'convert txt_to email to a mail address and set to variable mail_to = New MailAddress(Trim(email_to)) 'add the mail address to the .to property of the mail message myMail.To.Add(mail_to) Next 'check if cc text box is empty If Not txt_cc.Text = String.Empty Then 'txt_cc is not empty so need to add cc email addresses to cc property 'create instance of a mail address for the cc address Dim mail_cc As MailAddress 'for multiple email addresses, split the cc email addresses by ; 'can use the same array instance as we used for the to addresses arr_email = Split(txt_cc.Text, ";") 'create a temp string to hold each email address in the cc box Dim email_cc As String 'iterate through all the email addresses in the email array For Each email_cc In arr_email 'convert txt_to email to a mail address and set to variable mail_cc = New MailAddress(Trim(email_cc)) 'add the mail address to the .cc property of the mail message myMail.CC.Add(mail_cc) Next End If 'check if bcc text box is empty If Not txt_bcc.Text = String.Empty Then 'txt_bcc is not empty so need to add bcc email addresses to bcc property 'create instance of a mail address for the bcc address Dim mail_bcc As MailAddress 'for multiple email addresses, split the bcc email addresses by ; 'can use the same array instance as we used for the to addresses arr_email = Split(txt_bcc.Text, ";") 'create a temp string to hold each email address in the bcc box Dim email_bcc As String 'iterate through all the email addresses in the email array For Each email_bcc In arr_email 'convert txt_to email to a mail address and set to variable mail_bcc = New MailAddress(Trim(email_bcc)) 'add the mail address to the .bcc property of the mail message myMail.Bcc.Add(mail_bcc) Next End If 'add your email as the .from property of the mail message myMail.From = New MailAddress("youremail@domain.com") 'set the .subject property of the mail message to the value in the txt_subject box myMail.Subject = txt_subject.Text 'set the body of the email to HTML. Set to False if you want Plain Text myMail.IsBodyHtml = True 'set the .body property of the mail message to the email we created above myMail.Body = mail_body.ToString 'send the email smtp.Send(myMail) Catch ex As Exception err_mess = ex.Message.ToString Finally myMail.Dispose() End Try If err_mess = String.Empty Then lbl_response.Text = "Your email has been sent" Else lbl_response.Text = err_mess End If End Sub End Class



LinkBack URL
About LinkBacks
Reply With Quote



Bookmarks