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

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

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

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

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

%>