ASP.NET ile VB.NET dilini kullanarak mail gönderme yapabileceğiniz örnek bir kod.
***********************************************************
Trace="False" Debug="False" Strict="True" %>
Sub Page_load(Sender as Object, E as EventArgs) If request.form("EmailAddress") = "" Then dim strResponse as string = "Email adresi girin : " lblMessage.Text = strResponse Else dim strResponse as string = "Mesaj HTML format ile bu adrese gonderildi :
" & request("EmailAddress") & "" lblMessage.Text = strResponse End If End Sub Sub btn_Click(sender as Object, e as System.EventArgs) If request.form("EmailAddress") "" Dim mail As New MailMessage mail.From = "destek@prowww.net" mail.To = request.form("EmailAddress") mail.Subject = "ASP.NET-VB.NET :Sayfa içinden email gönderimi" mail.Body =request.form("Mesaj") mail.BodyFormat = MailFormat.Html SmtpMail.Send(mail) End If End Sub
Email Address:
Mesaj:
|
