Kayıt bilgilerinin e-mail’e otomatik olarak gönderilmesi
Kayıt yapan kullanıcının mail adresine “sitemize üyeliğiniz kabul edildi” konulu bir mesaj göndermeyi inceleyelim
—- kayit.aspx ——
<%@ page language=”vb” src=”kay.vb” inherits=”kay” AutoEventWireUp=”False” %>
<html>
<head>
<title>Mail denemesi</title>
</head>
<body>
<form id=”formkay” runat=”server”>
<asp:label id=”txtad” runat=”server”>Adınız:</asp:label><asp:textbox id=”ad” runat=”server” /><br>
<asp:label id=”txtmail” runat=”server”>Mail Adresi:</asp:label><asp:textbox id=”email” runat=”server” /><br>
<asp:label id=”txtusern” runat=”server”>Kullanycy Adynyz:</asp:label><asp:textbox id=”usern” runat=”server” /><br>
<asp:label id=”txtsifre” runat=”server”>?ifreniz:</asp:label><asp:textbox id=”sifre” runat=”server” /><br>
<asp:button id=”cmdkay” runat=”server” text=”kayyt” />
</form>
</body>
</html>
Basit bir kayyt sayfasy olu?turduktan sonra ?imdi arkaplanda çaly?acak olan kay.vb dosyamyzy olu?turalym.
—— kay.vb —–
Imports System.Data.OleDb
Imports System.Data
Imports System.Web
Imports System.Web.UI
Imports system.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Web.Mail
Public Class kay
Inherits System.Web.UI.Page
Protected WithEvents ad as System.Web.UI.WebControls.Textbox
Protected WithEvents email as System.Web.UI.WebControls.Textbox
Protected WithEvents usern as System.Web.UI.WebControls.Textbox
Protected WithEvents sifre as System.Web.UI.WebControls.Textbox
Protected WithEvents cmdkay as System.Web.UI.WebControls.Button
Private strconnection As String =”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & Server.Mappath(“veritabanim.mdb”) &”;Persist Security Info=False”
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
end sub
sub SendIntroMail
Dim msgIntro as New MailMessage
msgIntro.BodyFormat = MailFormat.HTML
msgIntro.To = email.text
msgIntro.From = “www.sitem.com”
msgIntro.Headers.Add(“Reply-To”,”emailadresim”)
msgIntro.Priority = MailPriority.High
msgIntro.Subject = “Sitemize Ho?geldiniz”
msgIntro.Body = “www.sitem.com adresine kaydynyz ba?ary ile yapyldy.Ylginize Çok te?ekkürler”
SmtpMail.Send(msgIntro)
end sub
Private sub cmdkay_Click(Byval Sender as System.Object, Byval e as System.EventArgs) Handles cmdkay.Click
Dim strSelect As String
strSelect = “SELECT * FROM tbluser ”
Dim con as New OleDBConnection(strConnection)
Dim cmd As New OleDBCommand(StrSelect, con)
Dim adapter as New OledbDataAdapter(cmd)
Dim dsvt As New DataSet()
Try
con.Open()
adapter.FillSchema(dsvt, SchemaType.Mapped, “tbluser”)
Finally
If not con is nothing then con.close()
End try
Dim rownew As DataRow
rownew = dsvt.Tables(“tbluser”).NewRow
rownew(“ad”) = ad.Text
rownew(“email”) = email.Text
rownew(“usern”) = usern.Text
rownew(“sifre”) sifre.Text
dsvt.Tables(“tbluser”).Rows.Add(Rownew)
Dim intAdded As Integer
Try
Dim cb As New OleDBCommandBuilder(adapter)
adapter = cb.DataAdapter
con.Open()
intAdded = adapter.Update(dsvt, “tbluser”)
Finally
If not con Is Nothing Then con.Close()
End Try
if intAdded > 0 Then
SendIntromail
end if
End sub
End class
Burada normal kayıttan farklı olarak yukaryda gördüğünüz gibi kayıt başarılı olduğunda SendIntromail komutu ile kullanıcının vermis oldugu mail adresine mail gönderiyoruz. SendIntroMail komutunu incelersek;
sub SendIntroMail
‘ Mesajymyzy tanytyyoruz
Dim msgIntro as New MailMessage
‘ Mail formatını belirliyoruz
msgIntro.BodyFormat = MailFormat.HTML
‘ mailin gidecegi adresi email textbox’yndan alıyoruz
msgIntro.To = email.text
‘ mailin kim tarafyndan gönderildigi
msgIntro.From = “www.sitem.com”
‘ E?er cevaplanyrsa kime gelece?i
msgIntro.Headers.Add(“Reply-To”,”emailadresim”)
‘ mailimizin önem derecesi
msgIntro.Priority = MailPriority.High
‘ Mail konumuz
msgIntro.Subject = “Sitemize Hoşgeldiniz”
‘gönderdiğimiz mailin içeriği
msgIntro.Body = “www.sitem.com adresine kaydınız başarı ile yapıldı. ilginize Çok teşekkürler”
SmtpMail.Send(msgIntro)
end sub
Burada gönderdiğimiz mail’in içeriğine üye olan kullanıcın adını da ilave etmek isterseniz (Örn. Sayın Ali ) tıpky gidecek mail adresinde olduğu gibi ad.text komutunu ekleyebilirsiniz. Ve son olarak sıra geldi üye kaydı yapacağımız veritabanına. Onu da download edebilirsiniz. Yada kendiniz oluşturabilirsiniz.Yapmanyz gerekenler oldukça basit.
ilk önce yeni bir Access veritabanı oluşturun ve veritabanim.mdb adını verin. Daha sonra bu veritabanının içine tbluser adlı bir tablo oluşturun ve içine 4 sütun ekleyin.Bunlaryn adları da ad, email, usern, sifre olacak