تعلم كيفية إرسال البريد الالكترونى من خلال الفجوال بيسك 6 بدون أى أدوات !!!

إرسال مساهمة في موضوع

اذهب الى الأسفل

تعلم كيفية إرسال البريد الالكترونى من خلال الفجوال بيسك 6 بدون أى أدوات !!!

مُساهمة من طرف أحمد مناع في الجمعة أكتوبر 19, 2012 9:50 am

تذكير بمساهمة فاتح الموضوع :

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


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



الخطوة الاولى :افتح مشروع جديد في Visual Basic وقم بتصميم نموذج كما فى الشكل التالى .





الخطوة الثانية: تحديد عميل ال SMTP و الذى سنقوم بارسال البريد الالكترونى الية ليقوم بعمل اتصال بيننا و بين المرسل الية وهم اصدقائنا على اى بريد اليكترونى .....وفى مثالنا هذا سنقوم بأستخدام عميل gmail وعنوانة

smtp.gmail.com

وقد تتسائل من اين اتيت به ؟...والجواب بيسط تستطيع الدخول على حاسبك فى gmail أو yahoomail أو اى بريد اخر و ستعلم ما هو عنوان عميل الاتصال smtp الخاص لكل بريد ....مثال أدخل على الرابط التالى :

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



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


الكود:

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 و كيفية ارفقا ملف مع البريد الالكترونى ...وموضوعات متقدمة كثيرا جدا فالى اللقاء


عدل سابقا من قبل أحمد مناع في الثلاثاء يوليو 23, 2013 10:44 am عدل 1 مرات

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
avatar
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 859
النقاط : 201562
التقيم : 83
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل


رد: تعلم كيفية إرسال البريد الالكترونى من خلال الفجوال بيسك 6 بدون أى أدوات !!!

مُساهمة من طرف expertae في الثلاثاء سبتمبر 23, 2014 12:42 pm

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

تاريخ التسجيل : 22/09/2014
المساهمات : 6
النقاط : 6
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية إرسال البريد الالكترونى من خلال الفجوال بيسك 6 بدون أى أدوات !!!

مُساهمة من طرف NEXT في الثلاثاء سبتمبر 23, 2014 1:14 pm

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

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



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


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


ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 334
النقاط : 200490
التقيم : 10
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية إرسال البريد الالكترونى من خلال الفجوال بيسك 6 بدون أى أدوات !!!

مُساهمة من طرف expertae في الثلاثاء سبتمبر 23, 2014 3:27 pm

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

تاريخ التسجيل : 22/09/2014
المساهمات : 6
النقاط : 6
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية إرسال البريد الالكترونى من خلال الفجوال بيسك 6 بدون أى أدوات !!!

مُساهمة من طرف NEXT في الثلاثاء سبتمبر 23, 2014 6:29 pm


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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 334
النقاط : 200490
التقيم : 10
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية إرسال البريد الالكترونى من خلال الفجوال بيسك 6 بدون أى أدوات !!!

مُساهمة من طرف expertae في الأربعاء سبتمبر 24, 2014 5:48 pm

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

تاريخ التسجيل : 22/09/2014
المساهمات : 6
النقاط : 6
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية إرسال البريد الالكترونى من خلال الفجوال بيسك 6 بدون أى أدوات !!!

مُساهمة من طرف NEXT في الأربعاء سبتمبر 24, 2014 9:11 pm


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

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

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


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

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

بكلمة مرور pass20142014

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



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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 334
النقاط : 200490
التقيم : 10
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية إرسال البريد الالكترونى من خلال الفجوال بيسك 6 بدون أى أدوات !!!

مُساهمة من طرف expertae في الخميس سبتمبر 25, 2014 3:38 pm

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

تاريخ التسجيل : 22/09/2014
المساهمات : 6
النقاط : 6
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية إرسال البريد الالكترونى من خلال الفجوال بيسك 6 بدون أى أدوات !!!

مُساهمة من طرف iaawwe في الإثنين أغسطس 13, 2018 7:05 am

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

تاريخ التسجيل : 15/10/2015
المساهمات : 1
النقاط : 1
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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