بحــث في الموقع

قسم منتديات 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
 
 
 
 
لمشاهدة الفيديو 
 
 
 
 
لتحميل المثال 
 
 
شكراً لزيارتكم موقعنا 
 
 
 

آخر أعمالنا

صفحة الفيسبوك