تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برجاء التعديل على المثال المرفق
#2
شوف هالكود ممكن بساغدك

كود :
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient("youremailserver")
mail.From = New MailAddress("your_email_address")
mail.[To].Add("to_address@emailaddress")
mail.Subject = "Grid View Content"

mail.BodyEncoding = Encoding.UTF8
mail.BodyFormat = MailFormat.Html

Dim strB As StringBuilder New StringBuilder()
'create html & table
strB.AppendLine("<html><body><center><" &
"table border='1' cellpadding='0' cellspacing='0'>")
strB.AppendLine("<tr>")
'cteate table header
For value As Integer = 0 To DataGridView.Columns.Count
  strB.AppendLine("<td align='center' valign='middle'>" &
dg.Columns(i).HeaderText + "</td>");
Next

'create table body
strB.AppendLine("<tr>");
For value As Integer = 0 To DataGridView.Rows.Count
 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>")

myMessage.Body = strB.ToString()
SmtpMail.Send(mail)

وهذا مثال على الارسال
vb.net and csharp


الملفات المرفقة
.zip   DataGridView_Email.zip (الحجم : 109.39 ك ب / التحميلات : 18)
الرد }}}


الردود في هذا الموضوع
RE: برجاء التعديل على المثال المرفق - بواسطة aljzazy - 03-05-20, 01:59 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو تقيم الكود المرفق - جلب اعلي رقم لتسلسل نصي للباركود new_programer 4 608 30-01-25, 08:26 AM
آخر رد: new_programer
  استدعاء من جدولين داخل اداه FlowLayoutPanel برجاء الافادة للضرورة جداً modymody300894 7 644 15-11-24, 11:02 AM
آخر رد: modymody300894
  ما هو الخطأ في كود التعديل التالي صالح عبدالله 6 585 12-10-24, 04:02 PM
آخر رد: صالح عبدالله
  مشكلة عند التعديل على البيانات F.H.M 5 491 12-09-24, 05:31 PM
آخر رد: F.H.M
  التعديل على كود حفظ الصورة في مجلد من picturebox صالح عبدالله 3 531 14-05-24, 10:47 PM
آخر رد: أبو خالد الشكري
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 551 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 590 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] كود التعديل Abdellatif 6 889 21-12-23, 02:01 PM
آخر رد: Abdellatif
  كود التعديل لم ينجح معي melad2002 4 660 16-12-23, 12:22 AM
آخر رد: anes
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 777 13-10-23, 01:47 AM
آخر رد: new_programer

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


يقوم بقرائة الموضوع: