eywallah saollasın

rica ederim redbaron güle güle kullan

Kendim İçin Kodlamıştım ama belki ihityacı olan vardır diye düşündüm isteyenler için ahanda burda default. asp için kod &lt;html&gt; &lt;head&gt; &lt;meta http-equiv=&quot;Content-Language&quot; content=&quot;tr&quot;&gt; &lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=windows-1254&quot;&gt; &lt;title&gt;Mail Yollamaca &lt;/title&gt; &lt;/head&gt; &lt;body&gt; &lt;form action=&quot;send. asp&quot; method=&quot;post&quot;&gt; &lt;div align=&quot;center&quot;&gt; &lt;table border=&quot;1&quot; width=&quot;550&quot; style=&quot;border-collapse: collapse&quot; bgcolor=&quot;#336699&quot;&gt; &lt;tr&gt; &lt;td width=&quot;119&quot;&gt;&lt;b&gt;&lt;font color=&quot;#FFFFFF&quot; face=&quot;Arial&quot; size=&quot;2&quot;&gt;Gözükecek Mail:&lt;/font&gt;&lt;/b&gt;&lt;/td&gt; &lt;td width=&quot;423&quot;&gt;&lt;input type=&quot;text&quot; name=&quot;kimden&quot;&gt;&lt;/td&gt; &lt;/tr&gt; &lt;tr&gt; &lt;td width=&quot;119&quot;&gt;&lt;b&gt;&lt;font color=&quot;#FFFFFF&quot; face=&quot;Arial&quot; size=&quot;2&quot;&gt;Başlık:&lt;/font&gt;&lt;/b&gt;&lt;/td&gt; &lt;td width=&quot;423&quot;&gt;&lt;input type=&quot;text&quot; name=&quot;subject&quot;&gt;&lt;/td&gt; &lt;/tr&gt; &lt;tr&gt; &lt;td width=&quot;119&quot;&gt;&lt;b&gt;&lt;font color=&quot;#FFFFFF&quot; face=&quot;Arial&quot; size=&quot;2&quot;&gt;Mesaj&lt;/font&gt;&lt;/b&gt;&lt;/td&gt; &lt;td width=&quot;423&quot;&gt;&lt;textarea name=&quot;Mesaj&quot; rows=&quot;9&quot; cols=&quot;50&quot;&gt;&lt;/textarea&gt;&lt;/td&gt; &lt;/tr&gt; &lt;tr&gt; &lt;td width=&quot;542&quot; colspan=&quot;2&quot; align=&quot;center&quot;&gt;&lt;input type=&quot;submit&quot; value=&quot;Gönder Bakalım &quot;&gt;&lt;/td&gt; &lt;/tr&gt; &lt;/table&gt; &lt;/div&gt; &lt;/form&gt; &lt;/body&gt; &lt;/html&gt; Ahanda Burada İşlem Yapılıyor Bu Kodu Send. asp olarak kaydedin &lt;% 'Bu Kod By Tuncay Tarafından Derlenmiştir 'İstediğiniz Gibi Kullanabilirsibiz veriyolu=&quot;mailsender&quot; ' veri olu mailler. txt dosyasını koyacağınız dizin olmalı veridosya=&quot;mailler. txt&quot; ' dosya ismi mail adreslerini yazacağınız dosya bir nevi data base ismi değiştirebilirsiniz Set FSO=Server. CreateObject Set open_veridosya=FSO. OpenTextFile(Server. mappath ,1) Do while open_veridosya. AtEndOfStream=false mail=open_veridosya. ReadLine kimden=request. form subject=request. form Mesaj=request. form Set objMail=Server. CreateObject 'ben CDO Koydum Siz kendi mail componentinize göre değiştirebilirsiniz. objMail. to=mail objMail. From=kimden objMail. Subject=subject govde=&quot;&lt;meta http-equiv=&quot;&quot;Content-Type&quot;&quot; content=&quot;&quot;text/html; charset=windows-1254&quot;&quot;&gt;&quot;&amp; Mesaj objMail. HtmlBody=govde objMail. Send Set objMail=Nothing response. write &quot;&lt;p align=&quot;&quot;center&quot;&quot;&gt;&lt;font color=&quot;&quot;blue&quot;&quot;&gt;&quot;&amp;mail&amp;&quot;&lt;b&gt;&lt;font color=&quot;&quot;red&quot;&quot;&gt; Gönderim İşlemi Tamamlandı &lt;/b&gt;&lt;br&gt;&quot; Loop response. write &quot;&lt;a href=&quot;&quot;default. asp&quot;&quot;&gt;Geri Dön&lt;/a&gt;&quot; %&gt; bendeki mail componenti CDO onedenle kod cdo dur kendi mail componentinize göre değiştirip kullanabilirsiniz