Toplu Mail Göndermede limiti nasıl ayarlayabilriz

ozyaniz

0
İyinet Üyesi
Katılım
26 Kasım 2005
Mesajlar
0
Reaction score
0
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 & "Application: Web Wiz Forums ver. " & strVersion & "" & _
vbCrLf & "Author: Bruce Corkhill" & _
vbCrLf & "Info: http://www.webwizforums.com" & _
vbCrLf & "Available FREE: http://www.webwizforums.com" & _
vbCrLf & "Copyright: Bruce Corkhill ©2001-2006. All rights reserved" & _
vbCrLf & "******************************************************* */" & _
vbCrLf & "//-->" & vbCrLf & vbCrLf)
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>

<!-- #include file="includes/admin_header_inc.asp" -->
</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.value = " & 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>
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Elektronik Sigara Cicisex Porno
Üst