MsSendMail.ocx ارسال رسالة مجهوالة من الفيحوال بيسك بدون الونسكوك

MsSendMail.ocx

 كيف نصنع برنامج صغير لارسال الرسائل المجهولة MsSendMail.ocx


 سوف نستخدم في هذا البرنامج اداة جميلة من يد عربية والاداة رائعة جدا 
حيث انها تغنينا عن اداة الوينسوك . لا اريد الاطالة عليكم يلزمنا في هذا 
البرنامج برنامج الفجوال بيسك 6 , ثم اداة MsSendMail.ocx هذة الاداة لو مش هنلقيها داخل الفيجوال بيسك واظن احنا عرفنا ازاى نقدر نضع الادوات هذة على صندوق اللادوات اللى على الشمال فى البرنامج 
المهم نكتب كدة فى جوجل   MsSendMail.ocx  هنلاقيها على طول ونحملها على الجهاز 


ثم  بعد تحميل الاداة على الجهاز ( على فكرة شكل الاداة زى ما احنا عارفين هيبقى زى الملفات اللى بتبقى فى الويندوز عندنا على  c شكلها عامل مثل الترس كدة والامتداد بتاعها بيبقى على هذا الشكل ocx.


                      طيب بعد تحميلها ندخلها ازاى على الفيجوال بيسك؟


تعمل كليك يمين على صندوق الادوات ونختار components هيظهر لينا الشكل التالى

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


نضغط على Browser  هيظهر هذة النتفذة الحوارية التى تفيد باختيار مكان الملف المراد اظهارة فى شاشة الادوات

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

ثانيا : نضع الادوات على الفورم كما بالشكل التالى  : 

إ

ثم ادرج الاداة كما في الصورة وسمها باسم Sender1 


ناتي الي الاكواد وهي سهلة جدا ضع هذا الكود في زر الارسال : 

كود:

Private Sub Command1_Click()
Command1.Enabled = False ' لابطال زر الارسال بعد الارسال
Sender1.From Text1.Text 'ايميل المرسل
Sender1.Recipient Text2.Text 'ايميل المرسل اليه
Sender1.Subject Text3.Text 'عنوان الرسالة
Sender1.Message Text4.Text 'مضمون الرسالة
Sender1.send 'بعد كتابة البيانات تعمل الاداة على ارسال البيانات
Command1.Enabled = True 'تمكين زر الارسال بعد الانتهاء من كتابة البيانات
End Sub

ثم ضع هذا في زر مسح ليتم مسح البيانات وكتابة بيانات جديدة : 

كود:

Private Sub command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
'يعمل هذا الكود على مسح البيانات لكتابة بيانات جديدة
End Sub

وبهذا انتهينا من عمل البرنامج بواسطة هذه الاداة