تقنية المعلومات لاجلك - برنامج إرسال إيميل ومرفقات بلغة VB.Net , C#.Net

تم نشر الموضوع من قبل :-

صدام حسين العواضي

برنامج إرسال إيميل ومرفقات بلغة VB.Net , C#.Net

لتحميل المثال

إنقر هنا

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

برنامج إرسال إيميل ومرفقات بلغة VB.Net And C#

سأقوم بتطبيق المثال

قم بإضافة الايميل وكلمة المرور التي سترسل من خلالهما

بعد ذلك الايميل الذي سترسل اليه

العنوان وموضوع الرسالة

بعد ذلك الملف المرفق

الان نقوم بالذهاب الى الايميل للتاكد من ان الرسالة وصلت

نلاحظ تم وصول الرسالة بنجاح

الان نذهب الى كود وادوات البرنامج

قم بإضافة 6 Textbox

2 Button

مجموعة من Label

بعد ذلك إضافة مكاتب ارسال الايميل

Imports System.Net.Mail

Imports System.Net

الان في زر الارسال قم بإضافة هذا الكود

'هذا الكود يجعل مؤشر الفأرة بحالة إنتضار

Me.Cursor = Cursors.WaitCursor

'هذا لاستخدام سرفر gmail

Dim smtp = New SmtpClient("smtp.gmail.com", 587)

'الحماية والتشفير

smtp.EnableSsl = True

smtp.UseDefaultCredentials = False

'الايميل والباسورد المستخدم

smtp.Credentials = New NetworkCredential(from.Text, pass.Text)

Dim mail = New MailMessage(from.Text, ToEmail.Text, Subgect.Text, Body.Text)

'إرفاق ملف

Dim attach = New Attachment(file.Text)

Mail.Attachments.Add(attach)

Mail.IsBodyHtml = True

smtp.Send(Mail)

Me.Cursor = Cursors.Default

MessageBox.Show("تم إرسال السالة بنجاح", "تم الارسال", MessageBoxButtons.OK, MessageBoxIcon.Information)

في زر ارفاق ملف

اضف هذا الكود

Dim OFD = New OpenFileDialog()

If OFD.ShowDialog() = DialogResult.OK Then

file.Text = OFD.FileName

End If

لمشاهدة الفيديو

لتحميل المثال

إنقر هنا

شكراً لزيارتكم موقعنا

www.ITFY-Edu.com

يقترح لك النظام مشاهدة أيضاً

..... برنامج الكيمرة بلغة VB.NET , C

..... برنامج التشفير وفك التشفير بلغ

..... برنامج إرسال إيميل ومرفقات بلغ

..... برنامج تشفير وفك تشفير الملفات

..... برنامج خوارزمية الجار الاقرب V

تعليقات الاعضاء :-

يجب تسجيل الدخول أولاً للتمكن من الرد على الموضوع دخول تسجيل

تغيير الاستايل :-

طريق الاتصال بتقنية المعلومات لاجلك

منتديات تقنية المعلومات لاجلك

تعرف على تقنية المعلومات لاجلك