ana sayfa > ASP Bileşenleri > Cdonts ile Mail Gönderimi

Cdonts ile Mail Gönderimi

Çarşamba, 29 Tem 2009 yorum ekle yorumlara git

Cdonts ile Mail Gönderimi

Cdonst bileşen kodları :
——————————————
<%
  Action = Request.Form(“Action”)
  xKimden = request.form(“StrKimden”)
  xMesaj =  request.form(“mesaj”)
 
  if Action <> “” Then
   if xKimden = “” or xMesaj = “” Then
 Response.Write(“Tüm Form Alanlarını Doldurun! << Geri”)
 Response.End
 end if
 Set posta = server.createobject(“CDONTS.Newmail”)
 posta.from = xKimden
 posta.to = “
mail@domain.com
 posta.subject = “CDONTS TEST”
 posta.body = xMesaj
 On Error Resume Next
 posta.send
 if Err.Number <> 0 then
 Response.Write “Mail Gönderilemedi!! Hata : “& Err.Description
 else
 Response.Write “Mail “& xKimden &” adresine gönderildi!!”
 end if
 set posta = nothing
  end if
%>

————————————————————————–
Form ile kodun tamamını indirmek için tıklayınız. Cdontsform.zip

Categories: ASP Bileşenleri Tags:
  1. şimdilik yorum yok.
  1. şimdilik geri bağlantı yok