gruplama yaparak toplu mail göndermek

[gizem]

kullanıcılardan kayıt formu esnasında aldığım veritabanımda kayıtlı olan meslek bilgilerini gruplayarak (mesela öğretmen öğrenci diye)seçtiğim meslek gruplarından olan kişilere mail göndermek istiyorum.bunu asp kodlarıyla yapmak isiyorum.yardımlarınız için şimdiden teşekkür ederim...iyi çalışmalar

[siirlerefendisi]

aspindir.com sitesine bir bakabilirsin orada hazır scriptler var onları kullanabilirsin ancak toplu mail gönderirken dikkat et özellikle hotmail yahoo ve mynet spama karşı çok dikkatlidir yolladığın mail spam olarak algılarsa bir daha buralara hostundan mail gönderemezsin yani ulaşmaz

[gizem]

bu konuyu nasıl halledebilirim.elimde mail konusuyla ilgili mevcut kodum yok lütfen yardım edin....şimdiden teşekkür ederim

[websman]

bu kodu www.hazirkod.com dan bulabilirsin

[websman]

kategori kodu
<% @Language=VBScript %>


<%
Set kategori = Server.CreateObject("ADODB.Recordset")
sor = "Select * from kategori ORDER BY id" ' kategori tablomuzu id sırasına göre diziyoruz.
kategori.Open sor,Sur,1,3
toplam_kategori=kategori.recordcount
%>

</tr>
<%
While Not kategori.EOF
%>
<tr>
<td width="100%" height="13" bgcolor="#CCCCCC"><span lang="en">
<font face="Verdana" size="2">
[img]images/Lopez2_Bullet2.gif[/img]</font></span><font face="Verdana" size="2">
"><%=kategori("kategori_adi")%></font></td>
</tr>
<%
If Not kategori.EOF Then
%>
<% kategori.MoveNext
End If
%>
<% Wend %>
bu da mail gönderme
Sub SendEmail(strFrom, strTo, strSubject, strBody)
' DB ve email sabitleri
Dim objCDOMail

' email aktif mi
If SEND_EMAIL Then

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

' obje özellikleri
objCDOMail.From = strFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody

' mesajı yolla
objCDOMail.Send
Set objCDOMail = Nothing
End If
End Sub

bunlar www.hazirkod.com dan alınmıştır. ve yollarını kategori adlarına göre atayacaksın...