// Procedure SendMail
Sub SendMail (Obj As Object, E As EventArgs)
Dim mailObj AS new MailMessage
mailObj.From = MsgFrom.text
mailObj.To = MsgTo.Text
mailObj.Subject = MsgSubject.Text
mailObj.Body = MsgBody.Text
SmtpMail.SmtpServer = "localhost"
SmtpMail.Send(mailObj)
End Sub
Send From: (asp:Textbox id="MsgFrom" runat="server")
Message Subject: (asp:Textbox id="MsgSubject" runat="server")
Message Body: (asp:Textbox TextMode="multiline" Rows="5" id="MsgBody" runat="server")
No comments:
Post a Comment