رجاء احتاج الكود هذا باسرع وقت اتمنى تساعدوني

عندي قائمة فيها طلبك ابدور عليها واضعها لك هنا تقريبا فيها كل ما تحتاجي واكثر

xnetmasterx@hotmail.com

ها هو الكود و حظا موفقا في مشروعك

//Function to send emails
Function SendASPMail(strFrom,strTo,StrSubject,strBody) 
	Dim objCDOMail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.SetLocaleIDs 1256
	objCDOMail.From = strFrom
	objCDOMail.To = strTo
	objCDOMail.Subject = StrSubject
	objCDOMail.BodyFormat = 0 
	objCDOMail.MailFormat = 0 
'	objCDOMail.Importance = 2
	objCDOMail.Body = strBody
	objCDOMail.Send
	Set objCDOMail = Nothing	
    SendASPMail="Done"

End Function
//////////////////////////////////////////////////////////////

SQL="SELECT * FROM mailingList"
set rs=createOBject("ADODB.recordSet")
rs.Open SQL,cn,3,3
while not rs.EOF
//استدعاء الدالة في كل سجل و نمرر لها ايميل العضو
 Call SendASPMail(strFrom,rs("email"),StrSubject,strBody)
Rs.MoveNext
Wend

اخواني الكرام...

جزاكم الله خيرا على المساعده والردود

وهذا كله ان دل على شئ فانما يدل على اخلاقكم

وتعاونكم :)

بكل الامتنان

عبير