[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



الخطوة الثالثة : كتابة الاكواد ....قم بوضع الكود التالى فى زر الارسال

الكود:


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = txtServer.Text
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = txtUserName.Text
Flds.Item(schema & "sendpassword") = txtPassword.Text
Flds.Item(schema & "smtpusessl") = 1

Flds.Update

With iMsg
.To = txtTo.Text
.From = txtFrom.Text
.Subject = txtSubject.Text
.HTMLBody = txtMessage.Text
Set .Configuration = iConf
On Error Resume Next
.Send
If Err.Number <> 0 Then
MsgBox Err.Description, 16, "تم ارسال الايميل بنجاح"
fraSending.Visible = False
Else
MsgBox "تم العثور على خطأ أثناء الارسال !!", 64, "Information"
fraSending.Visible = False
End If
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing


ملاحظة هامة ....عند كتابة الكود ستجد أن صفحة الكود لا تتفاعل معك اثناء الكتابة فلا قلق من ذلك ....ونأتى لشرح الكود :

السطر الاول : قمنا بأنشاء المكتبة  CDO و جعلنا المتغير iMsg يعبر عنها .

السطر الثانى : قمنا بأنشاء ملف التكوين و الذى سيحتوى معلومات عن سرفر  smtp .

السطر الثالث : وهو لاختصار الكود  قمنا بأنشاء المتغير  Flds ليحتوى على الامر  iConf.Fields وذلك بدلا من التعبير عنه فى كل سطر برمجى سنكتب فقط المتغير   Flds بدلا من هذا الامر .

السطر الرابع : قمنا بانشاء متغير ليحتوى على  الرابط أو المقلم الذى نرسل الية معلومات ملف التكوين وهو [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



السطر الخامس : تحديد طريقة الارسال SendUsing جعلناها تساوى 2 ...و تأخذ طريقتين 1 اذا كان تريد ارسال البريد عن طريق شبكة محلية فقط ....أما 2 تعنى ارسال البريد على الشبكة ككل


أما السطر السادس : وضعنا اسم سرفر   smtp  وفى حالتنا هذا أستخدمنا سرفر smtp  الخاص بالبريد الالكترونى gmail وهو   smtp.gmail.com  


السطر السابع : حددنا  رقم  port الخاص بسرفر  smtp.gmail.com وهو يساوى 465 و طبعا المعلومة دى أو هذا الرقم أتيت به من العلومات الخاص بسرفر gmail ...لكن إن لم تستطيع الوصول الى معرفة رقم البورت الخاص بالسرفر الذى ستستخدمه أنت فى مشروعك هو فى العادة بيكون 25

السطر الثامن : حددنا نوع التوثيق smtpauthenticate وهو يأخذ قيمين ...1 يعنى ذلك ان سرفر  smtp  يتطلب توثيق ....0 يعنى السرفر لا يتطلب توثيق ....وفى مثالنا هذا استخدمت الرقم 1 للتعبير بأن السرفر يتطلب توثيق حتى يتم ارسال البريد الالكترونى و هذا طبعا لمنع البريد الغير مرغوب فية .


أما السطر التاسع و العاشر : هو تحديد اسم المستخدم و الرقم السرى لسرفر    smtp و طبعا هو نفسه اسم المستخدم و الرقم السرى المستخدم فى حسابك لبريد gmail .

و السطر الحادى عشر : حددنا نوع SSL ...,وهو بروتوكول لتشفير البريد الالكترونى و معظم سيرفرات   smtp تتطلب وجودة لذلك   smtpusessl تساوى 1 اى قم بتشفير البريد وذلك لان gmail يتطلب ذلك .

السطر الثانى عشر : هى عملية تحديث البيانات التى قمنا بتحديدها فى ملف التكوين بأستخدام الامر  Update  

أما الاسطر الاخيرة ....هى تحديد المرسل منه و المرسل الية و عنوان البريد و نص البريد الالكترونى المراد ارسالة

.....و انتظرونى فى الدرس القادم لنتعلم سويا كيفية ارسال بريد الكترونى بتنسيق HTML و كيفية ارفقا ملف مع البريد الالكترونى ...وموضوعات متقدمة كثيرا جدا فالى اللقاء

شكرا علي البرنامج

ممكن نفس البرنامج بس يرسل sms

جزاك الله خيييييييييييييييييييير
ونحن في انتظار كيفية ادراج المرفقات
ولو تكرمت واعطيتنا لها في اسرع ووقت
تكون مشكور لاني في امس الحاجه اليها
            مشكور يادكتور
وجزاك الله خيييييييييييييييييييييييييييييييييييير

_ بإستخدام الطريقة AddAttachment يمكنك ارفاق ملف أو أكثر مع بريدك الالكترونى ....ومن الاعتبارات التى يجب ان تؤخذ فى الحسبان لارفاق ملف هو حجم الملفات . فالعديد من مقدمي خدمات الإنترنت تحد رسائل البريد الإلكتروني إلى 8 أو 10MB لكل منهما. ..... وذلك على النحو التالى :

الكود:

iMsg.AddAttachment txtfile.Text

حيث أن txtfile.Text هو مربع النص الذى سيتم تحديد مسار الملف المرفق به




و اليكم المثال فى المرفقات

جزاك الله خيييييير
لكن الكود بعطيني خطا
في Count = UBound(m_arAttachment)
لو امكن وريني كيفية معالجته
واذا ادرجتا لنا معه كيفية تنسيق الايميل
تكون ماقصرتا
وربنا يوفقكم كمان وكمان لفعل الخير

أرجوا المعذرة اخى الكريم ....الكود فى المرفق التالى أما من ناحية تنسيق الايميل بلغة HTML سيكون فى مشاركة قادمة بإذن الله تعالى

تشكر يااستاذ والله ماقصرتا
جزاك الله خيييييييييييييييييييير
ونحنا في انتظار التنسيق
وربنا يوفقك كمان وكمان

طيب يااستاذ احمد مناع انا عندي سوال اخييييييير
وياريت تساعدني فيهو
لو عندي جدول في قاعدة بيانات تبعي اسمو e-mail
وهذا الجدول يحتوي علي ايميلات موظفين تبعي
واردت انا ارسل نفس الايميل الي جميع الموظفين لدي
السوال :
هل هنالك طريقة لارسال هذا الايميل الي كل الموظفين في مرة واحده ؟
اي اعمل select للجدول واضع به الايملات جميعها ثم يقوم البرنامج بارسالها 
هل ممكن هذا الشي ام لا ؟
واذا امكن ارجوك برنامج مرفق وجزاك الله الف خييييييييييير وبارك الله فيك
والسلام عليكم

saadalhadi كتب:طيب يااستاذ احمد مناع انا عندي سوال اخييييييير
وياريت تساعدني فيهو
لو عندي جدول في قاعدة بيانات تبعي اسمو e-mail
وهذا الجدول يحتوي علي ايميلات موظفين تبعي
واردت انا ارسل نفس الايميل الي جميع الموظفين لدي
السوال :
هل هنالك طريقة لارسال هذا الايميل الي كل الموظفين في مرة واحده ؟
اي اعمل select للجدول واضع به الايملات جميعها ثم يقوم البرنامج بارسالها 
هل ممكن هذا الشي ام لا ؟
واذا امكن ارجوك برنامج مرفق وجزاك الله الف خييييييييييير وبارك الله فيك
والسلام عليكم

 لاحقا ستجد ما تسأل عنه

تشكر والله يااستاذ وماقصرتا معانا والله
وانا في انتظارك
وربنا يجعلوا في ميزان حسناتك

اخى أحمد ...أشكرك على مجهودك المتميز و الرائع على هذا الدرس ....الف الف شكر

يااستاذ احمد ياريت تساعدني في هذا الموضوع في اسرع وقت ممكن لاني عندي تسليم مشروع الاحد المقبل عن هذا الموضوع وقدر ماحاولت وبحثتا ماقدرتا احل المشكله دي فياريت يعني لو تكرمت انت وغيرك من رواد المنتدي وساعدتوني فيها اكون ليكم من الشاكرين
لو عندي جدول في قاعدة بيانات تبعي اسمو e-mail
وهذا الجدول يحتوي علي ايميلات موظفين تبعي
واردت انا ارسل نفس الايميل الي جميع الموظفين لدي
السوال :
هل هنالك طريقة لارسال هذا الايميل الي كل الموظفين في مرة واحده ؟
اي اعمل select للجدول واضع به الايملات جميعها ثم يقوم البرنامج بارسالها
هل ممكن هذا الشي ام لا ؟
واذا امكن ارجوك برنامج مرفق وجزاك الله الف خييييييييييير وبارك الله فيكم جميعا
والسلام عليكم
                             اخوكم سعد الهادي

أخى الكريم أهلا وسهلا بك مرة أخرى ....و أرجوا المعذرة فى عدم قدرتى على الوفاء بوعدى تجاهك وذلك لضيق الوقت و بصراحة نسيت مشاركتك من يومها حتى رأيتك اليوم فى المنتدى ....فأرجوا المعذرة على ذلك

بالنسبة فالفكرة تقوم على اساس وضع عناوين متعددة للمرسل اليهم وذلك باستخدام الفاصلة المنقوطة على النحو التالى :

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]; [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]; [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


وهكذا تستطيع ارسال بريد اليكترونى لجهات متعدده ....كل ما عليك فعله هو استخدام جملة استعلام لجب عنواين المرسل اليهم ووضعها فى مربع النص txtTo وهذا كل ما فى الامر


ومع ذلك إن شاء الله تعالى اذا توافر لدى الوقت المناسب ساقوم على رفع مشروع يوضح الفكرة فى نهاية هذا الاسبوع .....خصوصا انك تقوم ان اخر موعد لتسليم المشروع هو يوم الاحد .....واتمنى ان تحاول انت ايضا خلال تلك الفترة

ومرحبا بيك مرة اخرى اخى الكريم سعد

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

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

أخى سعد إن شاء الله تعالى ستجد مشروعك مرفوع اليك فى مساء يوم الجمعة المقبل بتوقيت الخرطوم   

تشكر يااستاذ وجزاك الله الف خيييييييييير وانا عارفك والله مابتقصر

بسم الله الرحمن الرحيم 

كما وعدتك من الانتهاء من مشروع يوم الجمعة الحالى وها أنا أقدم لك مشروعك الذى كنت تنتظره .....أنت طلبت شىء واحد وهو كيفية أرسال البريد الالكترونى لجميع الموظفين او جهات الاتصال المخزنة لديك فى قاعدة البيانات ....ومع ذلك قمنا بتطوير المشروع باضافة المميزات التالية :

_ أمكانية إضافة جهات الاتصال فى قاعدة بيانات 
_ أمكانية أرسال البريد الالكترونى لجميع أو لعدد محدد من جهات الاتصال مرة واحدة 
_ أمكانية إضافة أكثر من مرفق 
_تنسيق البريد الالكترونى بوسوم html 
_اماكنية ادراج صورة فى البريد الالكترونى 

و اليك صورة من المشروع بعد تطويرة 


_ بجوار مربع نص "الى " يوجد زر أمر + بمجرد النقر علية يتم فتح نافذة صغيرة وتحتوى على قائمة بجهات الاتصال التى قمت بادراجها فى قاعدة البيانات ....تلك القائمة تحمل أسماء جهات الاتصال ....ويمكنك من خلالها تحديد أى من جهات الاتصال المراد ارسال البريد الالكترونى اليهم ....فمجرد تحديد جهة أتصال يتم اضافة عنوان بريده الاليكترونى المخزن فى قاعدة البيانات فى مربع النص "الى" ....وهكذا تستطيع أرسال البريد الالكترونى لجميع أو عدد معين من جهات الاتصال لديك ....مثل الصور التالية :


_ ويمكنك ايضا من خلال النافذة السابقة تخزين جهات اتصال جديدة فى قاعدة بينات التطبيق 




و اليك التطبيق فى المرفقات....فية مشكلة بسيطة فى التطبيق جارى الان على حلها ....منتظرك تعرف ما هى تلك المشكلة قبل ما اخبرك بيها

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

اخي العزيز
لو تكرمت المساعدة في برنامج ارسال رسائل عن طريق SMS ولك جزيل الشكر

السلام عليكم اول شي حياكم الله على المجهود البديع ثاني شي ديظهر عندي خطأ في اسم السيرفر وفي بعض الاوقات يظهر خطأ وبجانبه ارقام ولااعرف مالسبب في هذا الشي

safa sami كتب:السلام عليكم اول شي حياكم الله على المجهود البديع ثاني شي ديظهر عندي خطأ في اسم السيرفر وفي بعض الاوقات يظهر خطأ وبجانبه ارقام ولااعرف مالسبب في هذا الشي

اهلا و سهلا بك الكريمة ونتمنى ان نكون عند حسن ظنك بنا ...أما بالنسبة لاستفسارك فاتمنى ان ترفعى مشروعك للتعديل عليه او على الاقل كتابة الاكواد التى تستخدميها فى مشروعك للاطلاع عليها و نقدر نحدد سبب الاخطاء الناتجة تلك

جربتو ظهر لى خطأ ؟ فما المشكلة

الاخ الفاضل احتمالات هذا الخطأ عديدة :

1_ غير متصل بالشبكة
2_اسم المستخدم او كلمة المرور خطأ



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


لكن حينما كتبت كلمة المرور خطأ ....ظهر نفس الخطأ الذى ظهر عندك

اشكرك على سريع الرد ولكننى متصل بالشبكة و الباسورد سليم وجربت من ايميل ثانى و ظهرت نفس الرسالة فهل من مساعدة ؟؟؟

طيب اتمنى منك وضع صورة اوضح من الموجودة فى الفيدوا اعلاه مع التغطية على كلمة المرور فقط ...و تاكد انه لايوجد اى مسافات فى كلمة المرور ....كما اتمنى ان تقوم بالدخول الى ايميلك بنفس كلمة السر للتاكد انك تستطيع الدخول او ان الايميل مازال يعمل لديك

شكرا مرة اخرى لاهتمامك هذه هى الصورة و الايميل سليم وممكن تجربه لاننى اشلأتة لهذه التجربة

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

باستخدام كلمة المرور : kokowawa


لذلك أنشىء الايميل التالى للتجربة

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

بكلمة مرور pass20142014

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



والان يمكنك استخدام البريد هذا فى عملية الارسال للتجربة واخبرنى بالنتيجة مع مراعاة ان يكون كلمة الباس ورد small

سيبك انت .المتعوس متعوس ولو علقوا فى ديله فانوس

شكرا جزيلا على الموضوع الرائع