ASP.NET

Imports System.Net.Mail
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        'create the mail message
        Dim mail As New MailMessage()

        Try

        
            'set the addresses
            'to specify a friendly 'from' name, we use a different ctor
            mail.From = New MailAddress(TextBox1.Text)
            mail.To.Add(TextBox2.Text)

            'set the content
            mail.Subject = "This is an email"
            mail.Body = TextBox3.Text

            'send the message
            Dim smtp As New SmtpClient("127.0.0.1")

            smtp.Send(mail)
        Catch ex As Exception
            Label1.Text = ex.ToString
        End Try
    End Sub
End Class

coolestCoder wrote:

If you want to know whether the recepients have opened your mail there are some other techniques which you can implement.

coolestCoder wrote:

I didnt got your point. If you want to say that google.com sends a mail that the recepients mail box was not there or some error like that, then it is simple to understand. If you consider a scenario that you are sending mail from your google a/c to some yahoo a/c. You have already handed over your mail to google ( as explained in my previous post)

Nitin1981 wrote:

how to show appropriate error message returned

<br />
        Public Shared Function GetAllLocations() As DataTable<br />
<br />
            Dim objLocation As Location = Nothing<br />
            Dim objLocationResults As DataTable = New DataTable<br />
  <br />
            Dim objConn As New SqlConnection(GlobalSettings.ConnectionString)<br />
<br />
            Try<br />
<br />
                Dim objCommand As New SqlCommand("sp__GetAllLocations", objConn)<br />
                objCommand.CommandType = CommandType.StoredProcedure<br />
<br />
                Dim dtAdaptor As SqlDataAdapter = New SqlDataAdapter(objCommand)<br />
                dtAdaptor.Fill(objLocationResults)<br />
<br />
<br />
            Catch ex As Exception<br />
                Dim strExceptionMsg As String = "Error Executing GetAllLocations(): " & vbCrLf & ex.Message & vbCrLf & ex.Source.ToString & vbCrLf & ex.StackTrace.ToString & vbCrLf<br />
<br />
                Dim strSubject As String = "Error Executing GetAllLocations()"<br />
 <br />
                    Throw New Exception(strExceptionMsg, ex)<br />
                End If<br />
<br />
            Finally<br />
                <br />
            End Try<br />
<br />
            Return objLocationResults<br />
<br />
        End Function