الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارسال رسالة الى عدد من المستقبلين

مغلق
بدأه blue1xp في 24 يونيو 2003 · 0 رد · 531 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1

السلام عليكم ورحمة الله وبركاته

عندي استفسار عن ارسال البريدعبر الموقع مثلا يا شباب لو اني جمعت من الداتا بايس تبعي حقول معينةهي اليميل على ضوء خيار معين مثلا اختيار الاشخاص اللي يعيشون في البلد الفلاني المدينة الفلانية وحبيت ارسل لهم رسالة للجميع طبع حتكون من خلال كود ارسال الرسائل داخل loop مثل for ,do until ....لكن اللي ابي اعرفه ليش أحيانا تروح وأحيان اخرى تعطيني رسالة الخطاء the page cannot be de..........

هل اذا كان فيه ايميلات خطاء يضيع كل شي ويظهر الحطاء الكود يرسل احيان تمام واحيان يوقف في البداية

اللي عنده فكرة الرجاء يخبرني

Set Conn= Server.CreateObject("ADODB.Connection")

    set rs=server.createObject("ADODB.RecordSet")

    mpath= server.mappath("Data.mdb")

    conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &mpath





    SQL="Select * from TBL where country like " & "'%" & request("c") & "%'"    

    rs.open SQL,Conn,3,2

   if rs.recordcount>0 then 

    for j=1 to rs.recordcount

  

      Set objJMail = Server.CreateObject("JMail.SMTPMail")

      objJMail.ServerAddress = "mail.anysite.com:25"

      objJMail.Sender ="info@anysite.com"'اسم المرسل

      objJMail.SenderName = "me"

      objJMail.silent = false

      objJMail.AddRecipient (rs.fields(2)) ".الايميل . حقل من الداتا بايس " 

      objJMail.Subject = "hi "

     objJMail.HTMLBOdy =   "<h4 align=right>السلام عليكم ورحمة الله وبركاته،،،،،</h4>
" 

     objJMail.Execute

     rs.movenext



    next 	 

    end if

      objJMail.Close()

      Set objJMail = Nothing

      response.write("cool")

هذا الموضوع مغلق.

مواضيع مشابهة