دخول

**new_programer** · 02-05-20, 11:25 PM

السلام عليكم
كل عام وكل الاخوة بخير

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

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

بدون حواف border

**aljzazy**

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

كود :

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

**عبدالله الدوسري** · 03-05-20, 04:26 AM

Sending.png الحجم : 28.52 ك ب 03-05-20, 04:24 AM

Sending_OK.png الحجم : 28.47 ك ب 03-05-20, 04:24 AM

Sending_Failer.png الحجم : 34.3 ك ب 03-05-20, 04:24 AM

google1.png الحجم : 156.58 ك ب 03-05-20, 04:24 AM

Sending_Email.zip (الحجم : 1.26 م ب / التحميلات : 41)

**new_programer** · 03-05-20, 03:50 PM

شكرا لكم على المرور الكريم والرد

جاري التجربة
اتمني أن يعمل معي كما بالصورة
شكرا لكم جزيلا

**new_programer**

شكرا لك اخي واستاذي القدير

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

لم اجدة

وهل يمكن اضافة مرفقات

**عبدالله الدوسري** · 04-05-20, 09:41 PM

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

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

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

**عبدالله الدوسري** · 05-05-20, 12:03 AM

A1111.png الحجم : 93.8 ك ب 05-05-20, 12:00 AM

B1111.png الحجم : 107.08 ك ب 05-05-20, 12:00 AM

Send EMail With Html VB2017.rar (الحجم : 2.5 م ب / التحميلات : 34)

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

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