Imports System.Web.Mail
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents lblName As System.Web.UI.WebControls.Label
Protected WithEvents lblSeat As System.Web.UI.WebControls.Label
Protected WithEvents lblNewName As System.Web.UI.WebControls.Label
Protected WithEvents lblStartDate As System.Web.UI.WebControls.Label
Protected WithEvents txtSeat As System.Web.UI.WebControls.TextBox
Protected WithEvents txtNewName As System.Web.UI.WebControls.TextBox
Protected WithEvents txtStartDate As System.Web.UI.WebControls.TextBox
Protected WithEvents lblSender As System.Web.UI.WebControls.Label
Protected WithEvents txtSender As System.Web.UI.WebControls.TextBox
Protected WithEvents cmdSubmit As System.Web.UI.WebControls.Button
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub
Private Sub cmdSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click
'Create the message
Dim msg As New MailMessage()
msg.To = "
[email protected]"
msg.Subject = "New Employee Ticket"
msg.Body = "Submitted By:" & txtSender.Text & Chr(10)
msg.Body &= "Seat #:" & txtSeat.Text
msg.Body &= "New Employee Name:" & txtNewName.Text & Chr(20)
msg.From = txtSender.Text
'Send the message
SmtpMail.Send(msg)
End Sub
End Class