تعلم كيف تصنع برنامج لارسال رسالة مجهولة (بدون الوينسوك)

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

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

ثانيا : افتح الفجوال بيسك وفورم جديد وادرج كما في الصورة التالية :

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

ناتي الي الاكواد وهي سهلة جدا ضع هذا الكود في زر الارسال :
[left]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[/left]

ثم ضع هذا في زر مسح ليتم مسح البيانات وكتابة بيانات جديدة :
[left]Private Sub command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
'يعمل هذا الكود على مسح البيانات لكتابة بيانات جديدة
End Sub
[/left][left]