+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : برجاء التعديل على المثال المرفق (/showthread.php?tid=34576)
برجاء التعديل على المثال المرفق - new_programer - 02-05-20
السلام عليكم
كل عام وكل الاخوة بخير
لدى كود ارسال بريد الكتروني
اريد الارسال بنفس تنسيق الداتا جريد
الكود يعمل جيدا لكن الداتا جريد لم تظهر الجدول بدون تنسيق
بدون حواف border
RE: برجاء التعديل على المثال المرفق - aljzazy - 03-05-20
شوف هالكود ممكن بساغدك
كود :
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
RE: برجاء التعديل على المثال المرفق - عبدالله الدوسري - 03-05-20
[attachment=24617]
[attachment=24618]
[attachment=24619]
[attachment=24620]
[attachment=24621]
RE: برجاء التعديل على المثال المرفق - new_programer - 03-05-20
شكرا لكم على المرور الكريم والرد
جاري التجربة
اتمني أن يعمل معي كما بالصورة
شكرا لكم جزيلا
RE: برجاء التعديل على المثال المرفق - new_programer - 04-05-20
شكرا لك اخي واستاذي القدير
لكن يوجد سطر بيكون اعلي البريد بحثت كتير عن الكود علشان احذفة او اعدلة من خلال تكست
لم اجدة
وهل يمكن اضافة مرفقات
RE: برجاء التعديل على المثال المرفق - عبدالله الدوسري - 04-05-20
السطر الذي تتحدث عنه غير موجود عندي في الرسالة المستلمة , كما تبين الصورة التي أرفقتها لك سابقاً.
بخصوص المرفقات نعم يمكنك إرفاق الملفات المسموح بها من قبل مزود الخدمة .
سأرفق لك امثال بعد تعديل المشروع
RE: برجاء التعديل على المثال المرفق - عبدالله الدوسري - 05-05-20
[attachment=24640]
[attachment=24641]
[attachment=24642]