Imports System.Text
Imports System.Web.Mail
Public Class index
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents lbStatus As System.Web.UI.WebControls.Label
Protected WithEvents txtTo As System.Web.UI.WebControls.TextBox
Protected WithEvents txtFrom As System.Web.UI.WebControls.TextBox
Protected WithEvents txtSubject As System.Web.UI.WebControls.TextBox
Protected WithEvents txtBody As System.Web.UI.WebControls.TextBox
Protected WithEvents btnSend As System.Web.UI.WebControls.Button
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
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 btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnSend.Click
Dim strMessage As New StringBuilder
Dim msg1 As New MailMessage
strMessage.Append("<table width=""75%"" border=""0"" align=""center""
cellpadding=""5"" cellspacing=""1"">")
strMessage.Append("<tr>")
strMessage.Append("<td bgcolor=""#cccccc""><strong><font color=""#000099""
size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">")
strMessage.Append(txtBody.Text) 'Get message from txtBody form field
strMessage.Append("</font></strong></td>")
strMessage.Append("</tr>")
strMessage.Append("</table>")
msg1.From = txtFrom.Text
msg1.To = txtTo.Text
msg1.Subject = txtSubject.Text
msg1.Body = strMessage.ToString
msg1.BodyFormat = MailFormat.Html
msg1.Priority = MailPriority.Normal
SmtpMail.SmtpServer = "localhost"
SmtpMail.Send(msg1)
lbStatus.Text = "Message Sent"
End Sub
End Class
|