Toplu Mail Göndermede limiti nasıl ayarlayabilriz

**ozyaniz** · #1 (**permalink**) 2008-07-30, 21:25

Merhabalar,

Forumda kayıtlı üyelere mysql db kullanarak mail gönderiyorum ancak aynı anda mail göndermek problem yaratabiliyor.

kodlar arasına nasıl bir limit ve timeout ayarlamalıyım ki problem yaşamadan örneğin her 60 saniyede bir 50 kişiye mail gönderebileyim. ve bir sonraki 60 saniyede somnra gelen 50 kişiye mail gönderebileyim.

Kodlarım aşağıdaki gibi..

Kodlar üzernde yazarak yardımcı olabilirseniz çok memnun olurum.

teşekkürler.

<head>
<title>Üyelere Toplu E-posta Gönderme</title>
<meta name="generator" content="Microsoft FrontPage 6.0" />

<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write("" & vbCrLf & vbCrLf)
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>


</head>

<div align="center"><span class="heading">Üyelere Toplu E-posta Gönderme</span><br />
<a href="admin_menu.asp<% = strQsSID1 %>">Kontrol Paneli Menüsü</a><br>
<br>
<br />
<table width="97%" border="0" cellpadding="4" cellspacing="1" class="tableBorder">
<tr class="tableRow">
<td class="text">
<%

'Get the number of mailing list members
lngNumberOfMembers = rsCommon.RecordCount

'Display the HTML for sending the mail
'Display a message on the screen incase the user thinks nothing is happening and hits refresh sending the email's twice
Response.Write("<span class=""lgText"">Epostalar gönderiliyor<br />Yenileme yapmayın bazı üyeler bu nedenle birden fazla eposta alabilir!</span><br /><br />Kaç tane Eposta gönderebileceğiniz ve Eposta hızı eposta servisçinizin hızına ve güvenirliğine bağlıdır.")

'Display the number of e-mails sent and how many left to send
Response.Write("<form name=""frmSent"">: <input type=""text"" size=""4"" name=""sent"" value=""0""> tane eposta gönderildi.Toplam: " & lngNumberOfMembers & "</form>")

'Loop through the recordset and send the e-mail to everyone in the mailing list
Do While NOT rsCommon.EOF

'loop counter to count how many e-mails have been sent
intEmailSentLoopCounter = intEmailSentLoopCounter + 1

'Read in who the email is to
strMemUserName = rsCommon("Username")
strEmailAddress = rsCommon("Author_email")

'Update the text box displaying the number of e-mails sent
Response.Write(vbCrLf & "<script language=""JavaScript"">document.frmSent.sent.valu e = " & intEmailSentLoopCounter & ";</script>")

'Send the e-mail using the Send Mail function created on the send_mail_function.inc file
Call SendMail(strEmailBody, decodeString(strMemUserName), decodeString(strEmailAddress), strMainForumName, decodeString(strForumEmailAddress), strSubject, strMailComponent, blnHTMLEmailFormat)

'Move to the next record in the recordset
rsCommon.MoveNext
Loop

'Write a message saying that all the e-mails have been sent
Response.Write(vbCrLf & "<br /><span class=""lgText"">Epostanız gönderiliyor.</span>")

'Release Server Objects
rsCommon.Close
Call closeDatabase()
%> </td>

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Php'de mail ,Toplu Mail,Gruplu Mail, Mailde Resim ve Html mail Gönderme İşlemleri	Ozcan	PHP	0	2008-07-14 12:14
Mail gönderme limiti.	BabaPanter	Webmaster Genel Konular	16	2006-12-25 00:49
ADSL üzerinden üyelere toplu mail nasıl gönderilir ?	qwerty	ASP .NET	25	2006-11-16 17:37
mail göndermede sorun	yusufona	PHP	1	2005-08-02 12:50