صنع برنامج لارسال رسالة مجهولة

اليوم رح ورجيكون كيف منعمل برنامج صغير على الفيجول بيسك مشان نبعت رسالة للاشخاص و توصلون الرسالة باسم مجهول( غير معروف)

و الطريقة كتير سهلة

وهي الطريقة

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


ثم ادرج الاداة كما في الصورة وسمها باسم 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

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

شرح رائع لطريقة سهلة ورائعة من صنع البرامج

مشكور حبيب قلبي

روووووووووعة

وشرح سهل كتير وحلو مفهوم

والله مهو شغال ليه

ردعلى اخوك وليد من مصر ليه مش شغال

السلام عليكم

يأخي ما اسم الأداة التي سميتها sender1 في فيجوال بيسك وشكرا