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

الان ارسل الى جميع اصحابك في وقت واحد

مغلق
بدأه ابوخالد الحضرمي في 11 أغسطس 2004 · 17 رد · 1,519 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

ولكن ينقصه تغيير لااعرفه حيث اني لاحظت انه لا يرسل الى بعض الايميلات مثل الهوتميل والمكتوب ويرسل الى الياهو والى المواقع التي لاتدعم العربية حيث اني اعتقد ان هذا الكود لا يرسل الى المواقع التي تدعم العربية

واعتقد ان الخطأ في السطر التالي:

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

وبالذات في الجزء:

CDONTS.NewMail

ومن يعرف النقص فارجو ان لا يبخل علينا وجزاه الله خيرا

وهذا هو الكود:

<%

dim conn

set conn=server.createobject("ADODB.connection")

conn.provider="Microsoft.Jet.OLEDB.4.0"

conn.open(server.MapPath("data/recordmark.mdb"))

Dim objCDOMail

set rs=server.createobject("ADOdb.recordset")

rs.open "select * from email_list",conn

do while not rs.eof

for each x in rs.fields

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

objCDOMail.To= x

objCDOMail.From="boairan02@hotmail.com"

objCDOMail.Subject="Welcome"

objCDOMail.Body= "uyghk yhjhbhj hjgkbhhuihuk yiguykhhnuhui yguikukho8ju "

objCDOMail.Send

set objCD0Mail=Nothing

NEXT

rs.movenext

loop

rs.close

conn.close

%>

#2

لانه مشتق من ملف الcdonts.dll وهذا ملف خاص بويندوز لايدعم العربيه

abo_alzobaer@hotmail.com

#3

شكرا mgazif على ردك ولكن ما البديل

#4

up

#5

up???????

#6

في عندي ملف dll اخر بالعربيه يمكنه ايضا ارسال الرساله على هيئة html

اما بالasp.net فتستطيع عملها دون الاستعانه بلفات dll وبكود 3 اسطر فقط!!!

abo_alzobaer@hotmail.com

#7

السلام عليكم

اخ mgazif في الحقيقة لم ادرس (asp.net) بعد ولكن اذا ممكن ترسل لي الكود وانا ساحاول ان افهمه او تعطيني ملف الـ(dll) وفي الحقيقة انا آسف على ذلك وممكن لو تعطيني بريدك

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

وشكرا

#8

up

#9

تفضل اخي هذا ملف الdll

وبريدي هو

abo_alzobaer@hotmail.com

ExEMail.dll

abo_alzobaer@hotmail.com

#10

اخي ابو الزبير جزاك الله خيرا وجعله الله في موازين حسناتك

وساقوم بتجربته واعطاءك النتائج

#11

السلام عليكم أتمنى عدم تطفلي ولكني على موقع خاص بي اقدم مجانا سكريبت ASP لإرسال رسائل لجميع من في قاعدة البيانات Mailing List، أحب المشاركة بها هنا للفائدة. و جزاك الله خيرا

http://t-dreams.com/downloads.asp

تم تعديل هذه المشاركة بواسطة محمد القربي في 26 أغسطس 2004 في 03:45

Mohamad Al-Karbi

www.mkarbi.me

#12

السلام عليكم

الاخ محمد القربي ياحبذا المتطفلين اذا كانو مثلك

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

#13

أستاذي، هذا شرف عظيم لي أن أحظى بمثل هذا المديح منك. و إذا كان هناك ما أستطيع المساعدة به فأنا جاهز بإذن الله

Mohamad Al-Karbi

www.mkarbi.me

#14

الاخ محمد القربي ممكن تعطيني ايميلك

او من يعرف من الاخوة

#15

لا أعرف إن كان يسمح لي بوضع إيميلي علناً على المنتدى، و لكن هذا هو و إذا كان وضعه غلط فالرجاء من المشرفين إخباري وساشطبه بكل تأكيد بإذن الله

mk@t-dreams.com

تم تعديل هذه المشاركة بواسطة محمد القربي في 26 أغسطس 2004 في 10:58

Mohamad Al-Karbi

www.mkarbi.me

#16

اشكرك اخي عاى تعاونك

اما بالنسبة لوضع البريد فقد وضعه الكثير من قبلك من المشرفين وغيرهم من امثال عبدالله شقلية

#17

شكرا اخي، على كل حال انا جاهز بإذن الله...

Mohamad Al-Karbi

www.mkarbi.me

#18

الاخ بعد التحية. لقد واجهت هذه المشكلة وقمت بحلها . واليك الكود بعد التعديلات

<%@Language=VbScript CodePage=1256 ' You should add this %> 
<%
dim conn
set conn=server.createobject("ADODB.connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.MapPath("data/recordmark.mdb"))
Dim objCDOMail
set rs=server.createobject("ADOdb.recordset")
rs.open "select * from email_list",conn
do while not rs.eof
for each x in rs.fields
set objCDOMail=Server.CreateObject("CDONTS.NewMail")
objCDOMail.To= x
objCDOMail.From="boairan02@hotmail.com"
objCDOMail.Subject="Welcome"
'====================== Added by Abdullah Al-Quhtani (ad2sms@hotmail.com) ====================
objMail.BodyFormat = "0" ' To send using HTML format
objMail.MailFormat = "0" ' To send using HTML format
objMail.SetLocaleIDs(1256)  ' To send Arabic Text
'====================== Added by Abdullah Al-Quhtani (ad2sms@hotmail.com) ====================
objCDOMail.Body= "uyghk yhjhbhj hjgkbhhuihuk yiguykhhnuhui yguikukho8ju "
objCDOMail.Send
set objCD0Mail=Nothing
NEXT
rs.movenext
loop
rs.close
conn.close
%>

تحياتي

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

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