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