Text Dosyadan Toplu Mail Gönderme Zımbırtısı

29-06-2006, 01:20:07

Kendim İçin Kodlamıştım ama belki ihityacı olan arkadaşlar 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

29-06-2006, 01:22:21

#2

bytuncay

bu script text dosyasından mail adreslerini çekip o maillere toplu olarak mesaj göndermenizi sağlamaktadır güle güle kullanın

29-06-2006, 02:26:08

#3