[nabil.1710]

الاساتذة الافاضل السلام عليكم
 الجميع يعرف كود ارسال الرسائل الى الايميل و هذا الكود منتشر جدا داخل المنتدى فى اكثر من موضوع و هو يعمل معى جيدا
و قد طورت فى هذا الكود حتى جعلته يرسل رسائل جماعية و الحمد لله 
ولكن خطر فى بالى فكرة و اريد مساعدتكم فيها

*** اريد ارسال محتوى 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