12-10-16, 10:12 AM
الاساتذة الافاضل السلام عليكم
الجميع يعرف كود ارسال الرسائل الى الايميل و هذا الكود منتشر جدا داخل المنتدى فى اكثر من موضوع و هو يعمل معى جيدا
و قد طورت فى هذا الكود حتى جعلته يرسل رسائل جماعية و الحمد لله
ولكن خطر فى بالى فكرة و اريد مساعدتكم فيها
*** اريد ارسال محتوى 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
الجميع يعرف كود ارسال الرسائل الى الايميل و هذا الكود منتشر جدا داخل المنتدى فى اكثر من موضوع و هو يعمل معى جيدا
و قد طورت فى هذا الكود حتى جعلته يرسل رسائل جماعية و الحمد لله
ولكن خطر فى بالى فكرة و اريد مساعدتكم فيها
*** اريد ارسال محتوى 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