[ASP] CDONTS Bileşeni ile siteden MAIL gönderme.

[Portal Servisleri]

Merhaba arkadaşlar,

Bu konumuzda ASP'de kullanılan CDONTS isimli bileşen ile web sitemizden email göndermeyi hep beraber öğreneceğiz..
(Örnek: web sitesinden contact, feedback, forumları vb...)

Öncelikle site üzerinden bize ulaşmak isteyen ziyaretçiden ne gibi bilgiler isteyeceksek, ona göre formumuzu hazırlıyoruz.

ÖRNEK KOD

<form method="POST" name="webcontact" action="mail_gonder.asp">
  <table border="0" width="100%" height="100%">
    <tr>
      <td width="100%" height="10%" colspan="2">• <b>Web Mesaj Formu</b>  <br><IMG src="images/hline6.gif" style="background-position:bottom;" background-repeat:no-repeat></td>
    </tr>
    <tr>
      <td width="50%" height="10%">İsim Soyisim : </td>
      <td width="50%" height="10%"><input type="text" name="isim" size="26"></td>
    </tr>
    <tr>
      <td width="50%" height="10%">E-mail Adresiniz : </td>
      <td width="50%" height="10%"><input type="text" name="T2" size="26"></td>
    </tr>
    <tr>
      <td width="50%" height="10%">Sitemizi Nerden Duydunuz : </td>
      <td width="50%" height="10%">
  <select size="1" name="D1">
  <option selected value="Seçilmedi">Lütfen Seçiniz... </option>
  <option value="Google">Google Arama Motoru              </option>
  <option value="ArkadasDavet">Arkadaşımdan </option>
  <option value="NetReklam">İnternet Reklamları </option>
  <option value="Forum">Forum Mesajları </option>
  <option value="Basin">Basın / Yayın</option>
  </select></td>
    </tr>
    <tr>
      <td width="50%" height="60%">Mesajınız / Görüşünüz : </td>
      <td width="50%" height="60%"><textarea rows="6" name="S1" cols="23"></textarea></td>
    </tr>
    <tr>
      <td width="50%" height="10%"></td>
      <td width="50%" height="10%"><input type="submit" value="Formu Gönder" name="B1"><input type="reset" value="Temizle" name="B2"></td>
    </tr></form>

Ardından "mail_gonder.asp" adında bir dosya oluşturup içerisine şu kodları yazıyoruz...

<%
strAlacakKisiIsim = "Sinan GUNAY"
strAlacakMail = "[email protected]"
strKimden = "[email protected]"
strYollayan= "[email protected]"
strKimdenIsim = "Ziyaretçi"
strBaslik = "Siteden Mail Yollandı"
strMesaj = "Merhaba, "  & vbCrLf & vbCrLf
strMesaj = strMesaj & "Bu mesajy siteden size yolladylar: "& Request.Form("mesaj") & vbCrLf & vbCrLf 
%> 
<% Set objYeniMail = Server.CreateObject ("CDONTS.NewMail")
objYeniMail.BodyFormat = 1
objYeniMail.MailFormat = 0
on error resume next
objYeniMail.Send strYollayan, strAlacakMail, strBaslik, strMesaj
If Err <> 0 Then 
Err_Msg = Err_Msg & "<li>Ystedi?iniz i?lem yandaki nedenden dolayy yapylamyyor: " & Err.Description & "</li>"
End if
on error resume next ' Ignore Errors %>

İkinci kod'da en üstteki değişkenleri dilediğiniz gibi değiştirdikten sonra kullanmaya başlayabilirsiniz. Eğer Windows98 üzerinde PWS kullanıyorsanız, ilk önce CDONTS bileşenini kurmanız lazım...

Bunu yapmak için CDONTS bileşenini internetten indirin ( www.google.com aratabilirsiniz.) Ardından herhangi bir dizine açın (Dikkat dll dosyası daima bu dizinde kalacak) Başlat/Çalıştır'a şunları yazın ve bileşenimiz kaydedilsin...

Regsvr32 c:\components\cdonts.dll
buradaki c:\components....... kısmı CDONTS bileşeninin dll dosyasını attığımız kısımdır. Kendinize göre düzenleyiniz..


Alıntı değil ALINTERİ,
Saygılar Dilerim..

 

[paranoiac]

çok yararlı...
özellikle de hatalı link bildirimi gibi bir script yapmak istiyorsak bence bu bire bir... eline sağlık arkadaşım...

 

[Portal Servisleri]

Selamlar..

Elbette. Kullanım alanı olarak istediğiniz gibi geliştirilebilir bir programcık...
Kırık link bildirimi benim aklıma gelmemişti bak iyi oldu sağol

 

[paranoiac]

hehe önemli deil yaf

 

[hatred]

eline saglik TheMoreEviLThanTheDeviL.

h.

 

[Yuc3L]

ya ben cdonts ıcın butun ornekleri denedim ama hep http5oo hatası alıyorum
sunucum asp destekli ve cdonts component yuklu

 

[MaXXSoFT]

paylaşım için teşekkürler kardeş !

 

[katonlof]

bide bu maile attach yapmayı göstersen tam olucak be abicim ama yinede sağol