Tuesday, May 24, 2005

Mengirim email dari ASP NET

//Menggunakan Import = "System.Web.Mail"

// 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 To: (asp:Textbox id="MsgTo" runat="server")
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")


(asp:button Text="Send" onclick="SendMail" id="Send" runat="server")

No comments: