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




فهو اختصار لجملة Simple Mail Transfer Protocol وهو نظام خاص لارسال البريد الالكترونى ليقوم بعمل اتصال بين مرسل الرسالة (العميل) و مستقبلها (الخادم).......


حيث ان عندما تقوم بأرسال بريد الكترونى لاحد اصدقائك على الياهو مثلا فلا يتم ارسالها مباشرة اليه ....وانما ترسل الى هذا النظام (SMTP) ثم يقوم بعد ذلك بإعادة ارسالها الى صديقك .....لذلك تجد عنوان البريد الإإلكتروني يكون على الشكل [email=user@host.domain،][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]،[/email]


ففي هذه الحال، فإنه يجب تمرير الرسالة إلى المخدم host.domain يقوم عميل الـSMTP بإنشاء اتصال بين الراسل و المرسل الية وهكذا .....


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






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




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






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








الخطوة الثالثة : قم بإدراج المكتبة EASendMailObj ActiveX Object و ذلك عن طريق menu->"Project" -> "References"- > ثم أختر "EASendMailObj ActiveX Object", ثم أضغط "OK" كما فى الصورة التالية :












طبعا وقد ارفقت اليك المكتبة بالمشروع فى المرفقات ....




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


Dim Form As String



Dim too As String

فى زر الامر أرسال ...نكتب الكود التالى :






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

المشروع

ملاحظة بسيطة جدا ....



قم بنقل الملف EASendMailObj.dll الى مجلد النظام system32 ثم بعد ذلك قم بعمل الاتى :



start > run ثم أكتب الامر التالى :



regsvr32 C:\WINDOWS\system32\EASendMailObj.dll



ثم ok ...كما فى الشكل التالى :









فتظهر لك رسالة تخبرك أنه قد تم تسجيل المكتبة بنجاح .....

دائما في المستوى المطلوب وفقك الله دائما ذ/ أحمد

[ltr]شكرا للمعلومات المفيدة و لكن عند التجربة ظهر خطأ فما هو الخطأ فىهذا الكود و شكرا مقدما[/ltr]

[ltr]Private Sub Command1_Click()[/ltr]
[ltr]Dim osmtp As New EASendMailObjLib.Mail[/ltr]
[ltr]osmtp.LicenseCode = "Tryit"[/ltr]
[ltr]osmtp.FromAddr = "expertae@yahoo.com"[/ltr]
[ltr]osmtp.AddRecipientEx "expertae@mail.com", 0[/ltr]
[ltr]osmtp.Subject = "yarab nengah"[/ltr]
[ltr]osmtp.BodyText = "la ellah ela allah"[/ltr]
[ltr]osmtp.ServerAddr = "smtp.mail.yahoo.com"[/ltr]
[ltr]osmtp.SSL_init[/ltr]
[ltr]osmtp.UserName = "expertae"[/ltr]
[ltr]osmtp.Password = "Omrkarim"[/ltr]
[ltr]Command1.Enabled = False[/ltr]
[ltr]If osmtp.SendMail() = 0 Then[/ltr]
[ltr]MsgBox "done"[/ltr]
[ltr]Command1.Enabled = True[/ltr]
[ltr]Else[/ltr]
[ltr]Command1.Enabled = True[/ltr]
[ltr]MsgBox "error"[/ltr]
[ltr]End If[/ltr]
[ltr]End Sub[/ltr]

expertae كتب:[ltr]شكرا للمعلومات المفيدة و لكن عند التجربة ظهر خطأ فما هو الخطأ فىهذا الكود و شكرا مقدما[/ltr]



[ltr]Private Sub Command1_Click()[/ltr]


[ltr]Dim osmtp As New EASendMailObjLib.Mail[/ltr]


[ltr]osmtp.LicenseCode = "Tryit"[/ltr]


[ltr]osmtp.FromAddr = "expertae@yahoo.com"[/ltr]


[ltr]osmtp.AddRecipientEx "expertae@mail.com", 0[/ltr]


[ltr]osmtp.Subject = "yarab nengah"[/ltr]


[ltr]osmtp.BodyText = "la ellah ela allah"[/ltr]


[ltr]osmtp.ServerAddr = "smtp.mail.yahoo.com"[/ltr]


[ltr]osmtp.SSL_init[/ltr]






[ltr]osmtp.Password = "Omrkarim"[/ltr]


[ltr]Command1.Enabled = False[/ltr]


[ltr]If osmtp.SendMail() = 0 Then[/ltr]


[ltr]MsgBox "done"[/ltr]


[ltr]Command1.Enabled = True[/ltr]


[ltr]Else[/ltr]


[ltr]Command1.Enabled = True[/ltr]


[ltr]MsgBox "error"[/ltr]


[ltr]End If[/ltr]


[ltr]End Sub[/ltr]

أهلا وسهلا بك أخى الكريم

أعتقد أن الخطأ الموجود فى الكود

الكود:

osmtp.UserName = "expertae"

فمن المفترض ان يتم تمرير اسم المستخدم كاملا بمعنى وضع البريد الالكترونى كاملا على النحو التالى :

الكود:

osmtp.UserName = "expertae@yahoo.com"

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

الكود:

osmtp.LicenseCode = "Tryit"

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

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

و بالتوفيق لك

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

expertae كتب:شكرا جزيلا على الرد السريع ساجرب الطريقة الجديدة
ولو ان استخدام الطريقة القديمة اسهل وقد غيرت اسم المستخدم كما اشرت و لايزال يخرج خطأ
ولم استخدم المكتبة ولا مرة بعد اضافتها لمراجع الفيجوال

من الافضل وضع صورة لهذا الخطأ حتى نتمكن من حل المشكلة