[SEMRA]

Veritabanına yeni veri girildiğinde bunu emaille bildirme işlemini ASP'yle nasıl yapabiliriz?

[oxigen]

kayıt fornksiyonundan hemen sonra birde mail gönderme işlemi yapmayı deneyenbilirsin.
ben şu kodu kullanıyorum, genelde hatasız olarak çalışıyor...

Set Postaci = server.CreateObject("CDONTS.NewMail")
Postaci.To= "gidecek mail adresi"
Postaci.From = "gönderen kişi (formdan alabilrisin yada kendin bi adres gir)"
Postaci.Subject = "Websitenizden Mesaj Gönderildi" 
Postaci.BodyFormat=0
Postaci.MailFormat=0
Govde = "Bu emaili websitenizden size mesaj gönderildiği için aldınız.<br/>"& Chr(10)
Postaci.Body = Govde
Postaci.Send

Özellikle gövde kısmını geliştirebilrisin, mesela hangi bilgilerin girildiğini vb. ekleyebilrisin.

[The_ilkay]

oxigen tarafından gönderilen mesaj:

kayıt fornksiyonundan hemen sonra birde mail gönderme işlemi yapmayı deneyenbilirsin.
ben şu kodu kullanıyorum, genelde hatasız olarak çalışıyor...

Set Postaci = server.CreateObject("CDONTS.NewMail")
Postaci.To= "gidecek mail adresi"
Postaci.From = "gönderen kişi (formdan alabilrisin yada kendin bi adres gir)"
Postaci.Subject = "Websitenizden Mesaj Gönderildi" 
Postaci.BodyFormat=0
Postaci.MailFormat=0
Govde = "Bu emaili websitenizden size mesaj gönderildiği için aldınız.<br/>"& Chr(10)
Postaci.Body = Govde
Postaci.Send

Özellikle gövde kısmını geliştirebilrisin, mesela hangi bilgilerin girildiğini vb. ekleyebilrisin.

Bence bu yöntem arkadaşın işine yaramaz.Bu şekilde bilgiler veritabanına yazılmadan da maile gidebilir.Amaç (bence) kaydın başarılı bir şekilde tamamlandığını kullanıcıya bildirmekse bu yöntemi kullanmak sorunlara yol açabilir.Kaydın başarılı olduğunu anlayıp hemen arkasından mail fonksiyonunun çalıştırılması algoritma çıkarma açısından daha doğru olur bence.

[SEMRA]

benimde aklıma mail bileşeni kullanmak geldi ama arkadaşın dediği gibi kayıt yapıldıktan sonra çalışması gerek. forumlarda mesaja cevap yazılınca uyarı emaili geliyor ya o tarz bişey istediğim.

[The_ilkay]

mail fonksiyonu girilen kayıtları kontrol eder, eğer kayıtlarda herhangi bir hata yok ise kayıtlardaki bilgilere göre maili gönderir ya da kayıtlarda varolan hatayı belirten bir mesaj verir.Bu biraz daha çözüme yakın bir yöntem sanırım.

[kuduk]

mail gonderme isini her halukarda asenkron yapmak lazim. bu isi ucuza SQL server uzerinde halledebilrisiniz. boylece mail gonderme isi uygulamadan bagimsiz calisir:

1. makale (ozet)
http://blog.netnerds.net/2008/02/cre...e-mail-alerts/

2. makale
http://msdn2.microsoft.com/en-us/lib...ffice.10).aspx

[oxigen]

The_ilkay tarafından gönderilen mesaj:

Bence bu yöntem arkadaşın işine yaramaz.Bu şekilde bilgiler veritabanına yazılmadan da maile gidebilir.Amaç (bence) kaydın başarılı bir şekilde tamamlandığını kullanıcıya bildirmekse bu yöntemi kullanmak sorunlara yol açabilir.Kaydın başarılı olduğunu anlayıp hemen arkasından mail fonksiyonunun çalıştırılması algoritma çıkarma açısından daha doğru olur bence.

zaten bu mail fonksiyonunun üst kısmında formdan vb. gelen bilgilerin veritabanına kayıt ve kontrol kısmı var, onu yazmadım arkadaş zaten biliyordur diye....

[sinan3]

bu kod işine yarar sanırım ben de sorun çıkarmıyor.

<!--  mail hızlı kayıt bölümü -->
<%
set hizli = forum.Execute("select uyeid,forumid from mail where forumid="&kat&"  order by id DESC")
For h = 1 To 200
if hizli.eof Then exit For
deger=hizli("forumid")
forumdeger=hizli("uyeid")
hizli.Movenext
Next  
hizli.Close
Set hizli = Nothing
%>
<font class="tablo_font">
<%	
if ""&deger&"" =""&kat&"" then 
if instr(1,frmyonlen,"h")="1" then
linkim=frmyonlen
else
linkim=""&strsiteadres&"/"&Request.form("yonlen")&""
end if

Set forcumam = forum.Execute("select baslik from mesajlar where id like "&kat&"") 
For t = 1 To 1
if forcumam.eof Then exit For 
konum=forcumam("baslik")
forcumam.Movenext
Next
forcumam.Close
Set forcumam = Nothing	
%>	   
</font> 
<%	
	 
Set rs = forum.Execute("select uyeid,forumid from mail where forumid="&kat&"  order by id desc") 
For s = 1 To 200
if rs.eof Then exit For
degeri=rs("uyeid")

set hizli = Connect.Execute("select id,email from uyeler where id="&degeri&" order by id DESC")
For h = 1 To 200
if hizli.eof Then exit For 
emailim=hizli("email")	
	bann="<img src='"&src&"' class=resim border=0>"
Body="<body bgcolor=lightgreen borderwidth=1 borderstyle=solid bordercollapse=collapse bordercolor=#999999 ><table width=95% border=0 align=center cellpadding=0 cellspacing=0  ><tr><td><table width=100% border=0 cellpadding=0 cellspacing=0><tr><td background="&strsiteadres&"/Temalar/"&session("tema")&"/blok_devam.gif class=blok_baslik><font face=tahoma  size=2px  color=#ff0000 ><b> » "&ksiteadi&" forum mail Aboneliği</b></font></td></tr></table><table width=95% border=0 align=center cellpadding=0 cellspacing=0><tr><td><font font-family:tahoma; font-size:11px; color:#000000;>Sitemizin forumunda üye olduğunuz </font><br><font face=tahoma  size=2px  color=#ff0000 ><u>"&konum&"</u></font> <font font-family:tahoma; font-size:11px; color:#000000;>başlıklı konuya </font><br><font face=tahoma  size=2px  color=#ff0000 ><u>"&session("kulladi")&"</u></font><font font-family:tahoma; font-size:11px; color:#000000;> tarafından cevap yazılmıştır.Görmek için aşağıdaki linke tıklayabilirsiniz..!</font><br><br><a href="&linkim&" target=blank>"&linkim&" </a><br><br><hr ><br><a href="&strsiteadres&"/Sistem.ASP?sistem=banner&id="&banust&" target=_blank>"&bann&"</a></td></tr></table></td></tr></table></body>"
  
  
GonderenAdi =ksiteadi
GonderenMail =strsitemail
GidecekMail =emailim
MailKonu =konum
Body = Body
%>
<!--#include file="Inc/MailGon.ASP" --><%
hizli.Movenext
Next
hizli.Close
Set hizli = Nothing	   

rs.Movenext
Next    
rs.Close
Set rs = Nothing   

else
end if

forum.Execute("INSERT INTO mesajlar (secim,yazi,f_id,yazan,tarih,sabit,hit,cevap_msg,acikmi,tpuan,onay,dosya) VALUES ('"&kat&"' , '"&yazi&"' , '"&forum1&"' , '"&session("kulladi")&"' , '"&ByCaferTarih&"' , '0' , '0' , '0' , '0' , '0' , '"&onayfrm&"' , '"&dosyamm&"')")
forum.Execute("UpDate mesajlar Set soncevap = '"&ByCaferTarih&"' , tmesaj = tmesaj+1 , syazan = '"&session("kulladi")&"' where id like '"&kat&"'")

secimm=request.form("listt")
if  secimm=""  then
elseif secimm="1"  then
forum.Execute("INSERT INTO mail( uyeid,forumid ) VALUES ('"&session("oturumid")&"','"&kat&"')")  
elseif secimm="2"  then
forum.Execute("DELETE FROM mail where uyeid like '"&session("oturumid")&"' and forumid like '"&kat&"'")
else
end if	

End if

Response.Redirect (frmyonlen)
End if
Else
Response.Write (uyelik_80)
End if
%>

  <!--  mail -->