while using SmtpClient class to send the mailmessage to an email-address, how can we get the email failure delivery notification if the user has entered invalid "recepient email-adress" ??
Please Refer the below code which give all cases to send and recive the mail confirmation
The Basics
Let’s start simple. Here is the code required to send an email in a Windows, ASP.NET, or Web Service application. I think you’ll agree it’s pretty straightforward.
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver / IP Address here")
SMTPServer.Send(MyMailMessage)
</div>
The code opens by creating a MailMessage object and using one of the four available overloads. The sample code makes it pretty clear what the different parameters being passed in are. Next a SmtpClient object is created with the name or IP Address of the
mail server. An optional parameter after the mail server is the port number the mail server is listening on. The default is 25. Lastly the SmtpClient’s Send method is called with the MailMessage object being passed in as the parameter. That’s it.
We can expand on the sample code by breaking things out into specific property settings.
‘From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@fromdomain.com")
'To is a collection of MailAddress types
MyMailMessage.To.Add("to@todomain.com")
MyMailMessage.Subject = "Plain and Simple - Part II"
MyMailMessage.Body = "This is the message text"
'Create the SMTPClient object and specify the SMTP server
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
SMTPServer.Send(MyMailMessage)
</div>
The MailMessage.From property requires an instance of the MailAddress object be assigned to it. In the initial code sample the From address was automatically converted to a MailAddress object. The MailMessage.To property is a collection of MailAddress objects.
Sending an email to multiple recipients is as simple as adding additional addresses to the To collection. So far I have only been working with plain text in the email body. HTML can also be used in email body.
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@fromdomain.com")
'To is a collection of MailAddress types
MyMailMessage.To.Add("to@todomain.com")
MyMailMessage.Subject = "HTML Content"
MyMailMessage.IsBodyHtml = True
MyMailMessage.Body = "This is the <b>HTML text</b> for the body of the message and this is <font color=red>red</font>."
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
SMTPServer.Send(MyMailMessage)
</div>
The IsBodyHTML property determines if the message being sent is HTML or plain text. The default value is false.
What if some of the readers of your email don’t have an email client that can correctly display HTML emails? The good news is that you can send your message as plain text and HTML and let the client automatically select which version to display.
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@fromdomain.com")
'To is a collection of MailAddress types
MyMailMessage.To.Add("to@todomain.com")
MyMailMessage.Subject = "Plain Text and HTML Content"
'PlainText will be viewable by email clients that do not support HTML
Dim BodyText As String = "This is plain text."
Dim MediaType As String = "text/plain"
Dim PlainText As AlternateView = AlternateView.CreateAlternateViewFromString(BodyText, Nothing, MediaType)
'HTMLContent will be viewable by email clients that support HTML
BodyText = "This is the <b>HTML text</b> for the body of the message and this is <font color=red>red</font>."
MediaType = "text/html"
Dim HTMLContent As AlternateView = AlternateView.CreateAlternateViewFromString(BodyText, Nothing, MediaType)
MyMailMessage.AlternateViews.Add(PlainText)
MyMailMessage.AlternateViews.Add(HTMLContent)
'Create the SMTPClient object and specify the SMTP server
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
SMTPServer.Send(MyMailMessage)
</div>
The MailMessage.AlternateViews collection contains all of alternate forms of the email message body. In addition to the message body and encoding parameters, the content type (text/HTML or text/plain), is specified in the MediaType property when you create
each AlternateView object.
Handling Exceptions
You know as well as I do that things are going to go wrong sometimes. In the case of sending emails things that typically go wrong are network related. What if the mail server is down? What if the network is down?
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@fromdomain.com")
'To is a collection of MailAddress types
MyMailMessage.To.Add("to@todomain.com")
MyMailMessage.Subject = "Handling Exceptions"
'PlainText will be viewable by email clients that do not support HTML
Dim BodyText As String = "This is plain text."
Dim MediaType As String = "text/plain"
Dim PlainText As AlternateView = AlternateView.CreateAlternateViewFromString(BodyText, Nothing, MediaType)
'HTMLContent will be viewable by email clients that support HTML
BodyText = "This is the <b>HTML text</b> for the body of the message and this is <font color=red>red</font>."
MediaType = "text/html"
Dim HTMLContent As AlternateView = AlternateView.CreateAlternateViewFromString(BodyText, Nothing, MediaType)
MyMailMessage.AlternateViews.Add(PlainText)
MyMailMessage.AlternateViews.Add(HTMLContent)
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>
SmtpException is the exception that is thrown if the SmtpClient object is unable to complete a Send or SendAsync method. I cover the SendAsync method later in the article. There are two other types of exceptions, SmtpFailedRecipientException and SmtpFailedRecipientsException
that could be thrown when an email cannot be delivered to the recipient or recipients.
Using Display Name
So far all the emails I have sent will display the email address used for the From and To in the email client. I would rather have the individual’s name displayed instead.
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>
I threw a few things in this time. Notice that to take advantage of the Display Name capability I had to create a MailAddress object while adding it to the To collection. The second parameter is the name that will be displayed in the email client. I also
show code for adding recipients in the cc and bcc collections.
Adding additional MailAddress objects to the To, CC, and BCC collections results in the email being sent to all the email addresses in the collections.
MyMailMessage.ReplyTo = New MailAddress("replyTo@replyTo.com")
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>
The MailMessage.ReplyTo property determines the email address that automatically populates the To line if the recipient decides to reply to the email they received.
Setting Message Priority
Being the important person that you are, of course all the emails you send needs to be of the highest priority. Ok, well, maybe not but you can specify the message priority for the email being sent.
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>
Message priority is specified by assigning the MailMessage.Priority property one of the values in the MailPriority enum. I’ve included them all in the code sample above for reference. The email above will be sent with a High priority.
Requesting a Return Receipt
I know I have gotten my fair share of emails that came with a Return Receipt request. You can specify that your emails are sent with a return receipt as well.
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>
Adding a return receipt is accomplished by adding a custom header to the MailMessage.Headers collection. Specify Disposition-Notification-To as the first parameter and the email address the return receipt should be sent to as the second parameter when adding
the item to the Headers collection and you’re good to go.
Adding Custom Headers
If you take a closer look at the details of an email you may see a number lines starting with X- in the email header. While some of these have specific values, you can add your own custom header information as well. You could throw the name of the current
user, the name of the computer, or any other type of information you may want to capture.
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>
Just like the code in the previous section, adding custom headers is accomplished by adding an item to the MailMessage.Headers collection. In the code above I added two custom header items, one named X-Company which contains the name of my company another
named X-ComputerName which contains the name of the machine the email was generated from.
Sending Attachments
Very often sending information the body of an email just isn’t enough. One or more attachments may be necessary to fully communicate the entire message of the email.
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>
Attachments are added to an email message by adding a new Attachment object to the MailMessage.Attachments collection.
Reading Setting from Configuration Files
So far all of the code samples have explicitly set the properties required to send an email. What if things changed over time, say you want to use a different mail server or change the email address the emails are sent from. Up to now you would have to make
the change in your code, recompile, and re-distribute. That’s not good. Enter the world of the configuration file. In Windows applications I’m referring to app.config and with web applications I’m referring to web.config.
In the configuration file you can specify a number of settings including the default from address, the default mail sever, the port number the mail server listens to, and authentication credentials.
Above is a piece of a configuration file specifying a number of different settings. In order for these settings to be used you just omit the code that explicitly sets these values and the default settings from the config file will be used.
'Create the SMTPClient object and DO NOT specify the SMTP server name
Dim SMTPServer As New SmtpClient()
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>
Notice in the above code that explicitly set the MailMessage.From property has been omitted and the name of the mail server has been omitted from the line that creates the SMTPServer object. Those two values will be picked up from the configuration file.
Embedding Image in Message
Sometimes you may want to embed an image in the text you’re creating for the body of the email message. This is accomplished by adding an item to the LinkedResources collection and referencing its cid in the body of the email.
'HTMLContent will be viewable by email clients that support HTML
Dim BodyText As String = "This is my company's logo: <br><img src=cid:TNTlogo><br>http://www.takenote.com"
Dim MediaType As String = "text/html"
Dim HTMLContent As AlternateView = AlternateView.CreateAlternateViewFromString(BodyText, Nothing, MediaType)
'create the LinkedResource (embedded image)
Dim CompanyLogo As New LinkedResource("D:\temp\TakeNote.gif")
CompanyLogo.ContentId = "TNTlogo"
'add the LinkedResource to the appropriate view
HTMLContent.LinkedResources.Add(CompanyLogo)
MyMailMessage.AlternateViews.Add(HTMLContent)
'Create the SMTPClient object and DO NOT specify the SMTP server name
Dim SMTPServer As New SmtpClient()
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>
The BodyText variable contains the HTML for the body of the message. Embedded in the HTML is an <img> tag with the cid equal to the ContentID of the LinkedResource. The CompanyLogo object is created and is of type LinkedResource. I then set its ContentID
set to TNTLogo. Next the CompanyLogo LinkedResource object is added to the HTMLContent.LinkedResouces collection. The HTMLContent AlternateView object is then added to the MailMessage.AlternateViews collection.
Delivery Methods
One of the properties on the SMTPServer object determines if the email will be immediately sent via the network connection or if an .EML email file will be dropped in a folder and wait to be picked up by IIS to be sent.
The values available in the SmtpDelieveryMethod enum are Network (the default), PickupDirectoryFromIIS, and SpecifiedPickupDirectory. In this sample code an email file (.EML) is dropped in the default location where IIS looks for emails to send (C:\Inetpub\mailroot\Pickup).
Using Delivery Notification
Delivery Notification, not to be confused with requesting a Return Receipt, provides the option of having an email sent to the from email address based on the delivery success or failure of the email.
The SmtpClient.EnableSsl property determines if the email should be sent via a SSL connection.
Authentication
If your IIS mail server has been configured to use Basic Authentication then a userName and password values need to be supplied when sending the message.
Up until now all of the emails being sent in this article have been sent synchronously using the SMTPServer.Send() method. That means that any subsequent code has to wait until the email delivery process has completed. It doesn’t have to be that way though.
The SMTPServer.SendAsync() method provides a way to send an email and have the code after the email delivery process continue executing without having to wait for the process to complete.
'You could cancel a SendAsync call with SendAsyncCancel
'SMTPServer.SendAsyncCancel()
End Sub
Public Sub SMTPServer_OnCompleted(ByVal sender AsObject, ByVal e As AsyncCompletedEventArgs)
'Get a reference to the Original MailMessage object
Dim CompletedMailMessage As MailMessage = CType(e.UserState, MailMessage)
'Get information about the email being sent
Dim EmailFrom As String = CompletedMailMessage.From.Address
Dim EmailSubject As String = CompletedMailMessage.Subject
'Was the async operation cancelled?
If e.Cancelled Then
Console.WriteLine("SendAsync email from {0} regarding {1} was canceled.", EmailFrom, EmailSubject)
ExitSub
EndIf
If e.Error Is Nothing Then
'Email sent successfully
Console.WriteLine("SendAsync email from {0} regarding {1} was sent.", EmailFrom, EmailSubject)
Else
'Trap and handle the problem here
Console.WriteLine("SendAsync email from {0} regarding {1} was *NOT* sent.", EmailFrom, EmailSubject)
EndIf
End Sub
</div>
There are two key lines of code for sending email asynchronously, the AddHandler line and the actual call to the
SMTPServer.SendAsync. The SMTPServer_OnCompleted method is executed when the email operation completes. In the SMTPServer_OnCompleted method
e.UserState refers to the UserState object passed into the SMTPServer.SendAsync method. Since I assigned MyMailMessage to the UserState object in the initial procedure I have access to all of the information about the MailMessage in the SMTPServer_OnCompleted
method. In the SMTPServer_OnCompleted method I check the value in e.Cancelled to see if the operation had been cancelled by a call to the
SMTPServer.SendAsyncCancel method. If the operation wasn’t cancelled then I check to see if an error object was passed in as an AsyncCompletedEventArgs member. If it wasn’t then I know the email was sent successfully.
If i enter invalid email-address in "recepient email-address" using SmtpClient Class, then I get the exception "Bad sequence of commands. The server response was: This mail server requires authentication when attempting to send to a non-local e-mail address.
Please check your mail client settings or contact your administrator to verify that the domain or address is defined for this server."
is this the exception w/h indicates "Bounce-Email" as you mentioned or there is any other way to find this.
Seema Ahlawa...
Member
6 Points
7 Posts
Email Failure Delivery Notification
Mar 09, 2009 10:40 AM|LINK
while using SmtpClient class to send the mailmessage to an email-address, how can we get the email failure delivery notification if the user has entered invalid "recepient email-adress" ??
mohd786hussa...
Contributor
4329 Points
878 Posts
Re: Email Failure Delivery Notification
Mar 09, 2009 10:52 AM|LINK
Hi,
when coding you has to take care of "Bounce-Email".
Hope it helps
Mohammad Hussain
Web design, Logo design & Asp.net development
mudassarkhan
All-Star
78956 Points
13402 Posts
MVP
Re: Email Failure Delivery Notification
Mar 09, 2009 10:52 AM|LINK
refer this
http://forums.asp.net/p/1189023/2038523.aspx
http://forums.asp.net/t/1111538.aspx
Contact me
jaiswarvipin
Participant
808 Points
159 Posts
Re: Email Failure Delivery Notification
Mar 09, 2009 10:53 AM|LINK
Please Refer the below code which give all cases to send and recive the mail confirmation
The Basics
Let’s start simple. Here is the code required to send an email in a Windows, ASP.NET, or Web Service application. I think you’ll agree it’s pretty straightforward.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
DimMyMailMessage As New MailMessage( _
"from@fromdomain.com", _
"to@todomain.com ", _
"Message Subject", _
"This is the text for the body of the message")
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver / IP Address here")
SMTPServer.Send(MyMailMessage)
</div>The code opens by creating a MailMessage object and using one of the four available overloads. The sample code makes it pretty clear what the different parameters being passed in are. Next a SmtpClient object is created with the name or IP Address of the mail server. An optional parameter after the mail server is the port number the mail server is listening on. The default is 25. Lastly the SmtpClient’s Send method is called with the MailMessage object being passed in as the parameter. That’s it.
We can expand on the sample code by breaking things out into specific property settings.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
DimMyMailMessage As New MailMessage()
‘From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@fromdomain.com")
'To is a collection of MailAddress types
MyMailMessage.To.Add("to@todomain.com")
MyMailMessage.Subject = "Plain and Simple - Part II"
MyMailMessage.Body = "This is the message text"
'Create the SMTPClient object and specify the SMTP server
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
SMTPServer.Send(MyMailMessage)
</div>The MailMessage.From property requires an instance of the MailAddress object be assigned to it. In the initial code sample the From address was automatically converted to a MailAddress object. The MailMessage.To property is a collection of MailAddress objects. Sending an email to multiple recipients is as simple as adding additional addresses to the To collection. So far I have only been working with plain text in the email body. HTML can also be used in email body.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@fromdomain.com")
'To is a collection of MailAddress types
MyMailMessage.To.Add("to@todomain.com")
MyMailMessage.Subject = "HTML Content"
MyMailMessage.IsBodyHtml = True
MyMailMessage.Body = "This is the <b>HTML text</b> for the body of the message and this is <font color=red>red</font>."
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
SMTPServer.Send(MyMailMessage)
</div>The IsBodyHTML property determines if the message being sent is HTML or plain text. The default value is false.
What if some of the readers of your email don’t have an email client that can correctly display HTML emails? The good news is that you can send your message as plain text and HTML and let the client automatically select which version to display.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@fromdomain.com")
'To is a collection of MailAddress types
MyMailMessage.To.Add("to@todomain.com")
MyMailMessage.Subject = "Plain Text and HTML Content"
'PlainText will be viewable by email clients that do not support HTML
Dim BodyText As String = "This is plain text."
Dim MediaType As String = "text/plain"
Dim PlainText As AlternateView = AlternateView.CreateAlternateViewFromString(BodyText, Nothing, MediaType)
'HTMLContent will be viewable by email clients that support HTML
BodyText = "This is the <b>HTML text</b> for the body of the message and this is <font color=red>red</font>."
MediaType = "text/html"
Dim HTMLContent As AlternateView = AlternateView.CreateAlternateViewFromString(BodyText, Nothing, MediaType)
MyMailMessage.AlternateViews.Add(PlainText)
MyMailMessage.AlternateViews.Add(HTMLContent)
'Create the SMTPClient object and specify the SMTP server
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
SMTPServer.Send(MyMailMessage)
</div>The MailMessage.AlternateViews collection contains all of alternate forms of the email message body. In addition to the message body and encoding parameters, the content type (text/HTML or text/plain), is specified in the MediaType property when you create each AlternateView object.
Handling Exceptions
You know as well as I do that things are going to go wrong sometimes. In the case of sending emails things that typically go wrong are network related. What if the mail server is down? What if the network is down?
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@fromdomain.com")
'To is a collection of MailAddress types
MyMailMessage.To.Add("to@todomain.com")
MyMailMessage.Subject = "Handling Exceptions"
'PlainText will be viewable by email clients that do not support HTML
Dim BodyText As String = "This is plain text."
Dim MediaType As String = "text/plain"
Dim PlainText As AlternateView = AlternateView.CreateAlternateViewFromString(BodyText, Nothing, MediaType)
'HTMLContent will be viewable by email clients that support HTML
BodyText = "This is the <b>HTML text</b> for the body of the message and this is <font color=red>red</font>."
MediaType = "text/html"
Dim HTMLContent As AlternateView = AlternateView.CreateAlternateViewFromString(BodyText, Nothing, MediaType)
MyMailMessage.AlternateViews.Add(PlainText)
MyMailMessage.AlternateViews.Add(HTMLContent)
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>SmtpException is the exception that is thrown if the SmtpClient object is unable to complete a Send or SendAsync method. I cover the SendAsync method later in the article. There are two other types of exceptions, SmtpFailedRecipientException and SmtpFailedRecipientsException that could be thrown when an email cannot be delivered to the recipient or recipients.
Using Display Name
So far all the emails I have sent will display the email address used for the From and To in the email client. I would rather have the individual’s name displayed instead.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@from.com", "From Name")
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to@todomain.com”, "To Name"))
MyMailMessage.CC.Add(New MailAddress("cc@ccdomain.com”, "CC Name"))
MyMailMessage.Bcc.Add(New MailAddress("bcc@bccdomain.com”, "BCC Name"))
MyMailMessage.Subject = "Display Name"
MyMailMessage.Body = "This is the message text"
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>I threw a few things in this time. Notice that to take advantage of the Display Name capability I had to create a MailAddress object while adding it to the To collection. The second parameter is the name that will be displayed in the email client. I also show code for adding recipients in the cc and bcc collections.
Adding additional MailAddress objects to the To, CC, and BCC collections results in the email being sent to all the email addresses in the collections.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@from.com", "From Name")
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.To.Add(New MailAddress("to2@todomain.com”, "To 2 Name"))
MyMailMessage.Subject = "More than one"
MyMailMessage.IsBodyHtml = True
MyMailMessage.Body = "This is the <b>HTML text</b> for the body of the message and this is <font color=red>red</font>."
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>Specifying the Reply To Address
You can specify the email address that is used if the recipient replies to the email.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@from.com", "From Name")
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.Subject = "Reply To"
MyMailMessage.Body = "This is the message text"
MyMailMessage.ReplyTo = New MailAddress("replyTo@replyTo.com")
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>The MailMessage.ReplyTo property determines the email address that automatically populates the To line if the recipient decides to reply to the email they received.
Setting Message Priority
Being the important person that you are, of course all the emails you send needs to be of the highest priority. Ok, well, maybe not but you can specify the message priority for the email being sent.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@fromdomain.com")
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.Subject = "High Priority!!"
MyMailMessage.Body = "This is the message text"
'Priority being assigned
MyMailMessage.Priority = MailPriority.Low
MyMailMessage.Priority = MailPriority.Normal
MyMailMessage.Priority = MailPriority.High
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>Message priority is specified by assigning the MailMessage.Priority property one of the values in the MailPriority enum. I’ve included them all in the code sample above for reference. The email above will be sent with a High priority.
Requesting a Return Receipt
I know I have gotten my fair share of emails that came with a Return Receipt request. You can specify that your emails are sent with a return receipt as well.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@from.com", "From Name")
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.Subject = "Return Receipt Requested"
MyMailMessage.Body = "This is the message text"
'Add a custom header named Disposition-Notification-To and specify the
'read recept address
MyMailMessage.Headers.Add("Disposition-Notification-To", "returnreceipt@return.com")
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>Adding a return receipt is accomplished by adding a custom header to the MailMessage.Headers collection. Specify Disposition-Notification-To as the first parameter and the email address the return receipt should be sent to as the second parameter when adding the item to the Headers collection and you’re good to go.
Adding Custom Headers
If you take a closer look at the details of an email you may see a number lines starting with X- in the email header. While some of these have specific values, you can add your own custom header information as well. You could throw the name of the current user, the name of the computer, or any other type of information you may want to capture.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@from.com", "From Name")
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.Subject = "Custom Header Information Inserted"
MyMailMessage.Body = "This is the message text"
'Add custom headers named X-Company and X-ComputerName and add them to the message
MyMailMessage.Headers.Add("X-Company", "TakeNote Technologies")
MyMailMessage.Headers.Add("X-ComputerName", My.Computer.Name)
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>Just like the code in the previous section, adding custom headers is accomplished by adding an item to the MailMessage.Headers collection. In the code above I added two custom header items, one named X-Company which contains the name of my company another named X-ComputerName which contains the name of the machine the email was generated from.
Sending Attachments
Very often sending information the body of an email just isn’t enough. One or more attachments may be necessary to fully communicate the entire message of the email.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From requires an instance of the MailAddress type
MyMailMessage.From = New MailAddress("from@from.com", "From Name")
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.Subject = "Attachements Included"
MyMailMessage.Body = "This is the message text"
'Add an attachment to your message simply add a new Attachment object to the Attachments collection
MyMailMessage.Attachments.Add(New Attachment("article.txt"))
MyMailMessage.Attachments.Add(New Attachment("article.docx"))
MyMailMessage.Attachments.Add(New Attachment("TakeNote.gif"))
'Create the SMTPClient object and specify the SMTP server name
Dim SMTPServer As New SmtpClient("mailserver name or IP Address here")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>Attachments are added to an email message by adding a new Attachment object to the MailMessage.Attachments collection.
Reading Setting from Configuration Files
So far all of the code samples have explicitly set the properties required to send an email. What if things changed over time, say you want to use a different mail server or change the email address the emails are sent from. Up to now you would have to make the change in your code, recompile, and re-distribute. That’s not good. Enter the world of the configuration file. In Windows applications I’m referring to app.config and with web applications I’m referring to web.config.
In the configuration file you can specify a number of settings including the default from address, the default mail sever, the port number the mail server listens to, and authentication credentials.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">< configuration >
< system.net >
< mailSettings >
< smtp from =" from@from.com">
< network
host =" mail server here"
defaultCredentials =" true"
port =" 25"
/>
</ smtp >
</ mailSettings >
</ system.net >
</div>Above is a piece of a configuration file specifying a number of different settings. In order for these settings to be used you just omit the code that explicitly sets these values and the default settings from the config file will be used.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From being pulled from config file
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.Subject = "Configuration Settings"
MyMailMessage.Body = "This is the message text"
'Create the SMTPClient object and DO NOT specify the SMTP server name
Dim SMTPServer As New SmtpClient()
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>Notice in the above code that explicitly set the MailMessage.From property has been omitted and the name of the mail server has been omitted from the line that creates the SMTPServer object. Those two values will be picked up from the configuration file.
Embedding Image in Message
Sometimes you may want to embed an image in the text you’re creating for the body of the email message. This is accomplished by adding an item to the LinkedResources collection and referencing its cid in the body of the email.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From being pulled from config file
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.Subject = "Linked Resource"
'HTMLContent will be viewable by email clients that support HTML
Dim BodyText As String = "This is my company's logo: <br><img src=cid:TNTlogo><br>http://www.takenote.com"
Dim MediaType As String = "text/html"
Dim HTMLContent As AlternateView = AlternateView.CreateAlternateViewFromString(BodyText, Nothing, MediaType)
'create the LinkedResource (embedded image)
Dim CompanyLogo As New LinkedResource("D:\temp\TakeNote.gif")
CompanyLogo.ContentId = "TNTlogo"
'add the LinkedResource to the appropriate view
HTMLContent.LinkedResources.Add(CompanyLogo)
MyMailMessage.AlternateViews.Add(HTMLContent)
'Create the SMTPClient object and DO NOT specify the SMTP server name
Dim SMTPServer As New SmtpClient()
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>The BodyText variable contains the HTML for the body of the message. Embedded in the HTML is an <img> tag with the cid equal to the ContentID of the LinkedResource. The CompanyLogo object is created and is of type LinkedResource. I then set its ContentID set to TNTLogo. Next the CompanyLogo LinkedResource object is added to the HTMLContent.LinkedResouces collection. The HTMLContent AlternateView object is then added to the MailMessage.AlternateViews collection.
Delivery Methods
One of the properties on the SMTPServer object determines if the email will be immediately sent via the network connection or if an .EML email file will be dropped in a folder and wait to be picked up by IIS to be sent.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From being pulled from config file
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.Subject = "Pick me up!"
MyMailMessage.Body = "This is the message text"
'Create the SMTPClient object and DO NOT specify the SMTP server name
Dim SMTPServer As New SmtpClient()
SMTPServer.DeliveryMethod = SmtpDeliveryMethod.PickupDirectoryFromIis
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>The values available in the SmtpDelieveryMethod enum are Network (the default), PickupDirectoryFromIIS, and SpecifiedPickupDirectory. In this sample code an email file (.EML) is dropped in the default location where IIS looks for emails to send (C:\Inetpub\mailroot\Pickup).
Using Delivery Notification
Delivery Notification, not to be confused with requesting a Return Receipt, provides the option of having an email sent to the from email address based on the delivery success or failure of the email.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From being pulled from config file
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.Subject = "Delivery Notification"
MyMailMessage.Body = "This is the message text"
'Sends a message to from if email is not deliverable
MyMailMessage.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
'Create the SMTPClient object and DO NOT specify the SMTP server name, it’s being pulled from config file
Dim SMTPServer As New SmtpClient()
SMTPServer.DeliveryMethod = SmtpDeliveryMethod.PickupDirectoryFromIis
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>In this sample code an email will be sent to the From address specified in the configuration file if the email is not successfully sent.
Sending Email With SSL
Sending email via a Secure Sockets Layer (SSL) connection is a simple matter of setting a property.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From being pulled from config file
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com", "To 1 Name"))
MyMailMessage.Subject = "SSL Email"
MyMailMessage.Body = "This is the message text"
'Create the SMTPClient object and DO NOT specify the SMTP server name
Dim SMTPServer As New SmtpClient()
'Enable SSL does not work in tandem with SmtpDeliveryMethod.PickupDirectoryFromIis
SMTPServer.DeliveryMethod = SmtpDeliveryMethod.Network
SMTPServer.EnableSsl = True
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>The SmtpClient.EnableSsl property determines if the email should be sent via a SSL connection.
Authentication
If your IIS mail server has been configured to use Basic Authentication then a userName and password values need to be supplied when sending the message.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From being pulled from config file
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.Subject = "Authentication Email"
MyMailMessage.Body = "This is the message text"
'Create the SMTPClient object and DO NOT specify the SMTP server name
Dim SMTPServer As New SmtpClient()
'The userName and password can be explicity set or pulled from config file
'SMTPServer.Credentials = New NetworkCredential("jim", "secret")
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
MessageBox.Show(ex.Message)
EndTry
</div>In this code sample the credentials are not explicitly set. They are retrieved from a configuration file that looks like one below.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">< configuration >
< system.net >
< mailSettings >
< smtp from =" from@from.com">
< network
host =" mail server name or IP here"
userName =" jim"
password =" secret"
defaultCredentials =" false"
port =" 25"
/>
</ smtp >
</ mailSettings >
</ system.net >
</div>Sending Email Asynchronously
Up until now all of the emails being sent in this article have been sent synchronously using the SMTPServer.Send() method. That means that any subsequent code has to wait until the email delivery process has completed. It doesn’t have to be that way though. The SMTPServer.SendAsync() method provides a way to send an email and have the code after the email delivery process continue executing without having to wait for the process to complete.
<div style="FONT-FAMILY: monospace; BACKGROUND-COLOR: #eeeeee">Private Sub btnASync_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnASync.Click
'Start by creating a mail message object
Dim MyMailMessage As New MailMessage()
'From being pulled from config file
'To is a collection of MailAddress types
MyMailMessage.To.Add(New MailAddress("to1@todomain.com”, "To 1 Name"))
MyMailMessage.Subject = "Async Email"
MyMailMessage.Body = "This is the message text"
'Create the SMTPClient object and DO NOT specify the SMTP server name
Dim SMTPServer As New SmtpClient()
'the UserState object can be accessed in OnCompleted event handler via e.UserState
Dim UserState As Object = MyMailMessage
'Add an event handler for when the Async send completes
AddHandler SMTPServer.SendCompleted, AddressOf SMTPServer_OnCompleted
SMTPServer.SendAsync(MyMailMessage, UserState)
'You could cancel a SendAsync call with SendAsyncCancel
'SMTPServer.SendAsyncCancel()
End Sub
Public Sub SMTPServer_OnCompleted(ByVal sender AsObject, ByVal e As AsyncCompletedEventArgs)
'Get a reference to the Original MailMessage object
Dim CompletedMailMessage As MailMessage = CType(e.UserState, MailMessage)
'Get information about the email being sent
Dim EmailFrom As String = CompletedMailMessage.From.Address
Dim EmailSubject As String = CompletedMailMessage.Subject
'Was the async operation cancelled?
If e.Cancelled Then
Console.WriteLine("SendAsync email from {0} regarding {1} was canceled.", EmailFrom, EmailSubject)
ExitSub
EndIf
If e.Error Is Nothing Then
'Email sent successfully
Console.WriteLine("SendAsync email from {0} regarding {1} was sent.", EmailFrom, EmailSubject)
Else
'Trap and handle the problem here
Console.WriteLine("SendAsync email from {0} regarding {1} was *NOT* sent.", EmailFrom, EmailSubject)
EndIf
End Sub
</div>There are two key lines of code for sending email asynchronously, the AddHandler line and the actual call to the SMTPServer.SendAsync. The SMTPServer_OnCompleted method is executed when the email operation completes. In the SMTPServer_OnCompleted method e.UserState refers to the UserState object passed into the SMTPServer.SendAsync method. Since I assigned MyMailMessage to the UserState object in the initial procedure I have access to all of the information about the MailMessage in the SMTPServer_OnCompleted method. In the SMTPServer_OnCompleted method I check the value in e.Cancelled to see if the operation had been cancelled by a call to the SMTPServer.SendAsyncCancel method. If the operation wasn’t cancelled then I check to see if an error object was passed in as an AsyncCompletedEventArgs member. If it wasn’t then I know the email was sent successfully.
OR
Please refer the http://msdn.microsoft.com/en-us/vbasic/bb630227.aspx
Seema Ahlawa...
Member
6 Points
7 Posts
Re: Email Failure Delivery Notification
Mar 09, 2009 11:40 AM|LINK
Hi,
If i enter invalid email-address in "recepient email-address" using SmtpClient Class, then I get the exception "Bad sequence of commands. The server response was: This mail server requires authentication when attempting to send to a non-local e-mail address. Please check your mail client settings or contact your administrator to verify that the domain or address is defined for this server."
is this the exception w/h indicates "Bounce-Email" as you mentioned or there is any other way to find this.
Many Thanks
hieu79vn
Member
4 Points
6 Posts
Re: Email Failure Delivery Notification
Nov 08, 2012 03:59 PM|LINK
Thank you jaiswarvipin for your useful response
I would like to ask a supplement question.
In case of Delivery Notifcation, normally, an email of delivery notification will be sent to the Sender (in MyMailMessage.From)
But I want this email of delivery notification will also be sent to another email for ex. myownemail@yahoo.com
How can I do?
Thank you