تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارسال محتوى DataGridView1 الى ايميل
#1
الاساتذة الافاضل السلام عليكم
 الجميع يعرف كود ارسال الرسائل الى الايميل و هذا الكود منتشر جدا داخل المنتدى فى اكثر من موضوع و هو يعمل معى جيدا
و قد طورت فى هذا الكود حتى جعلته يرسل رسائل جماعية و الحمد لله 
ولكن خطر فى بالى فكرة و اريد مساعدتكم فيها

*** اريد ارسال محتوى DataGridView1 بالكامل ***

و قمت بالتنفيذ 



ولكن بعد الارسال تم ارسال عنوان الرسالة فقد و الموضوع فارع






اذا كانت الفكرة ممكن تنفيذها رجاء تعديل الكود


  ProgressBar1.Value = 5
        email.From = New MailAddress(TextBox1.Text)
        ProgressBar1.Value = 10
        email.Subject = TextBox5.Text
        ProgressBar1.Value = 24
        email.Body = DataGridView1.Text
        ProgressBar1.Value = 40
        email.To.Add(TextBox4.Text)
        smtp.EnableSsl = True
        ProgressBar1.Value = 56
        smtp.Port = ("587")
        smtp.Host = ("smtp.gmail.com")
        smtp.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        ProgressBar1.Value = 70
        ProgressBar1.Value = 80
        Try
            smtp.Send(email)
            ProgressBar1.Value = 100
            MsgBox("تم الارسال", MsgBoxStyle.DefaultButton1, "ogy soft")
            ProgressBar1.Value = 0

        Catch ex As Net.Mail.SmtpException
            MsgBox("error")
            ProgressBar1.Value = 0

        End Try
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام و رحمة الله  ،،  

حقيقه الصور لا تظهر لدي  لا اعلم ما هو السبب  ، على العموم طالما الارسال لديك يعمل بشكل صحيح  و يتم ارسال كل شيء ما عدى المحتوى  ،،  فهذا يدل ان لديك مشكله في  جزئية المحتوى  :

  email.Body = DataGridView1.Text

لا اعلم ماذا تقصد  بـ  Text  و ماذا  سترجع لك  من بيانات  ، و هي غالبا ترجع  بيانات فارغه لذلك من الطبيعي  ان تجد محتوى الرساله فارغ  فالقريدفيو ليست  textBox  اذا كيف سنقوم بحلها  ،  بما انك تتعامل مع محتوى ايميل  فاما اترسل له نص  عادي او  كود  Html ،  و بما انه جدول  سنصل الى  فكرة تحويل القريدفيو الى جدول  html  ، طبعا بحثت بالانترنت  و حصلت على هذه النتائج  ممكن تستفيد منها  :  
http://stackoverflow.com/questions/16008...-html-page
http://www.c-sharpcorner.com/UploadFile/...n-C-Sharp/

و هذا كود  قمت بتحويله من  سي شارب الى فيجول بيسك  : 

كود :
Private Function DataGridtoHTML(dg As DataGridView) As StringBuilder
Dim strB As New StringBuilder()
'create html & table
strB.AppendLine("<html><body><center><" + "table border='1' cellpadding='0' cellspacing='0'>")
strB.AppendLine("<tr>")
'cteate table header
For i As Integer = 0 To dg.Columns.Count - 1
strB.AppendLine("<td align='center' valign='middle'>" + dg.Columns(i).HeaderText + "</td>")
Next
'create table body
strB.AppendLine("<tr>")
For i As Integer = 0 To dg.Rows.Count - 1
strB.AppendLine("<tr>")
For Each dgvc As DataGridViewCell In dg.Rows(i).Cells
strB.AppendLine("<td align='center' valign='middle'>" + dgvc.Value.ToString() + "</td>")
Next

strB.AppendLine("</tr>")
Next
'table footer & end of html file
strB.AppendLine("</table></center></body></html>")
Return strB
End Function

بعد ان ندرج  القيمة الراجعه من  الـ Function  السابقة  نرسلها الى Body  .

الان  فقط يبقى عليك فقط  الاشارة الى  الكائن  email بان  محتوى الرسالة كود  html  وليس نص عادي  بهذه الطريقة  : 


كود :
            email.IsBodyHtml = True
            email.BodyEncoding = System.Text.Encoding.UTF8
اسم معرفي : محمد يحيى
الرد }}}}
تم الشكر بواسطة: ممدوح , nabil.1710
#3
السلام عليكم
بالامكان استبدال السطر التالي:
PHP كود :
email.Body DataGridView1.Text 

بالسطور التالية:
PHP كود :
       For rowindex As Integer 0 To DataGridView1.RowCount 2
            For colindex 
As Int16 0 To DataGridView1.ColumnCount 1
                email
.Body &= DataGridView1.Columns(colindex).HeaderText ":" DataGridView1.Rows(rowindex).Cells(colindex).Value Chr(10)
 
           Next
            email
.Body &= "**********************" Chr(10)
 
       Next 

تحياتي ...
الرد }}}}
تم الشكر بواسطة: ممدوح , nabil.1710 , nabil.1710
#4
هل يوجد مثال ؟؟

مع الشكر الجزيل
الرد }}}}
تم الشكر بواسطة:
#5
إقتباس :هل يوجد مثال ؟؟

مع الشكر الجزيل


اليك المثال في المرفقات

تحياتي ..


الملفات المرفقة
.rar   Sending_Email.rar (الحجم : 71.97 ك ب / التحميلات : 9)
الرد }}}}
تم الشكر بواسطة: أبو عمر , nabil.1710
#6
تعديل بسيط ... لعرض جدول , باللغة العربية , وعرض اسم الجهة المرسلة


الملفات المرفقة
.rar   Sending_Email.rar (الحجم : 33.18 ك ب / التحميلات : 23)
الرد }}}}
#7
https://social.msdn.microsoft.com/Forums...m=winforms
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: ابراهيم النعيمي , HASAN6.0 , nabil.1710
#8
السلام عليكم اخوتى جميعا
وشكرا لمشاركتكم فى هذا الموضوع
الحمد لله تم ماكنت اطمح اليه
وشكرا لكم جميعا
و شكرا لك اخى HASAN6.0 فالكود الذى ارفقته بالمثال يعمل جيدا
الرد }}}}
تم الشكر بواسطة: HASAN6.0 , HASAN6.0
#9
(12-10-16, 09:36 PM)HASAN6.0 كتب : تعديل بسيط ... لعرض جدول , باللغة العربية , وعرض اسم الجهة المرسلة

أستاذ HASAN6.0  أنا شاكر لك مجوداتك ولكن قابلتني مشكلة و هي فعلا جديدة عليا أنا أضفت الكود للمشروع الذي اعمل على تنفيذه وتم الإرسال بالفعل ولكن عندما غيرت   startup object على فورم أخر وجت أن الفورم هو هو الذي يفتح وغيرت startup object على أكثر من فورم أكثر من 50 مره أيضا لا يفتح غيره السورس علق على الفورم الخاصة بإرسال الرسائل ولا يفتح غيرها و العجيب أنى مسحت الكون من الفورم و برده نفس المشكلة عملت دليت للفورم بالكامل و برده يفتح نفس الفورم السورس توقف عن أي أبديت لأي نشاط جديد هذه المشكلة كيف حلها أخي 
الرد }}}}
تم الشكر بواسطة:
#10
من قائمة Build اضغط Clean Solution
ثم Rebuild Solution


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة: أبو عمر , nabil.1710


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] مشكله في إرسال ايميل bahgat okasha 0 44 22-11-16, 04:50 AM
آخر رد: bahgat okasha
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 77 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان
  كيف استخدم شاشة انتظار مع ارسال ايميل samira20 1 94 23-10-16, 11:16 PM
آخر رد: ابراهيم النعيمي
  ارسال بيانات DataGridView الى report Viewer. Rabeea Qbaha 6 194 23-10-16, 06:16 PM
آخر رد: Rabeea Qbaha
  نسخ البيانات من DataGridView1 الى DataGridView2 nabil.1710 10 216 22-10-16, 10:37 PM
آخر رد: ابراهيم النعيمي
  مشكلة في كود ارسال ايميل من جيميل samira20 9 199 17-10-16, 10:32 AM
آخر رد: samira20
  تقسيم ال textbox حسب محتوى hano 2 90 12-10-16, 08:18 PM
آخر رد: أبو ناصر
  [VB.NET] اضهار عدد معين من الاسطر DataGridView1 dubai.eig 5 159 10-10-16, 11:19 PM
آخر رد: dubai.eig
  [VB.NET] مشكلة في DataGridView1 dubai.eig 4 125 10-10-16, 09:11 AM
آخر رد: ممدوح
  [سؤال] تغيير محتوى الخانة [Cell] أسامة السالمي 2 99 30-09-16, 09:16 AM
آخر رد: أسامة السالمي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم