Home » Applications » VB.NET – Send Email

VB.NET – Send Email

Send Email


Please complete input form:
<asp:Label ID="Confirm" runat="server" >
<asp:Label ID="litStatus" runat="server" style="color: Gray; padding-left: 20px;">

<asp:FormView ID="FormView1" runat="server" DataKeyNames="ID" 
        DataSourceID="AccessDataSource1" DefaultMode="Insert">

          Your Name:<asp:TextBox ID="NameTextBox" runat="server" 
                    Text='< %# Bind("Name") %>' Class="inputText" />
                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" 
                    runat="server" ErrorMessage="<font color='red'>*</font>" 
Code Number:<asp:TextBox ID="CodeNumberTextBox" runat="server" Text='< %# Bind("CodeNumber") %>' Class="inputText" /> <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ErrorMessage="<font color='red'>*</font>" ControlToValidate="TicketNumberTextBox">
<asp:Button ID="InsertButton" runat="server" CausesValidation="True" CommandName="Insert" Text="Submit" /> </InsertItemTemplate> </asp:FormView> <asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="~/MyDB.accdb" DeleteCommand="DELETE FROM [Table1] WHERE [ID] = ?" InsertCommand="INSERT INTO [Table1] ([Name], [CodeNumber] VALUES (?, ?)" SelectCommand="SELECT * FROM [Table1]" UpdateCommand="UPDATE [Table1] SET [Name] = ?, [CodeNumber] = ?" OnInserted="InsertMessage" > <DeleteParameters> <asp:Parameter Name="ID" Type="Int32" /> </DeleteParameters> <InsertParameters> <asp:Parameter Name="Name" Type="String" /> <asp:Parameter Name="CodeNumber" Type="Int32" /> </InsertParameters> <UpdateParameters> <asp:Parameter Name="Name" Type="String" /> <asp:Parameter Name="CodeNumber" Type="Int32" /> <asp:Parameter Name="ID" Type="Int32" /> </UpdateParameters> </asp:AccessDataSource>
Code behind

Sub InsertMessage(ByVal source As Object, ByVal e As SqlDataSourceStatusEventArgs)
    If e.AffectedRows > 0 Then
       Confirm.Text = "<b> Input received, thank you!" ' - input confirmation msg
      Dim SmtpServer As New SmtpClient
      Dim mail As New MailMessage
      SmtpServer.Credentials = New Net.NetworkCredential("my_username", "my_password")
      SmtpServer.Port = 587
      SmtpServer.Host = "smtp.google.com"  ' - IP address OK as (x.x.x.x)
            mail = New MailMessage()
            mail.From = New MailAddress("my_email@MyEmailProvider.com")
            mail.Subject = "Website input form"
            mail.Body = "<p><h2>Website Input Form" +
                         "<p>New form input has been submitted. " +
                         "To see the form input, 
                          <a href=""http://mywebsite.com/form_input/"">click here." +
                         "<p style=""color: gray""><b>Important Message:
This is automatically generated email. Do not reply to this email." mail.IsBodyHtml = True ' - type "False" to send email as text; SmtpServer.Send(mail) litStatus.Text = "Email has been sent." ' - email sent confirmation Catch ex As Exception litStatus.Text = ex.ToString() ' - email error message End Try Else Confirm.Text = "<font color='red'>Not completed - please try again!" End If End Sub