منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : برجاء التعديل على المثال المرفق
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 
كل عام وكل الاخوة بخير 

لدى كود ارسال بريد الكتروني 
اريد الارسال بنفس تنسيق الداتا جريد

الكود يعمل جيدا لكن الداتا جريد لم تظهر الجدول بدون تنسيق 

بدون حواف border
شوف هالكود ممكن بساغدك

كود :
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
شكرا لكم على المرور الكريم والرد

جاري التجربة
اتمني أن يعمل معي كما بالصورة
شكرا لكم جزيلا
شكرا لك اخي واستاذي القدير

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

لم اجدة

وهل يمكن اضافة مرفقات
السطر الذي تتحدث عنه غير موجود عندي في الرسالة المستلمة , كما تبين الصورة التي أرفقتها لك سابقاً.















بخصوص المرفقات نعم يمكنك إرفاق الملفات المسموح بها من قبل مزود الخدمة .

سأرفق لك امثال بعد تعديل المشروع