12-10-16, 11:39 AM
وعليكم السلام و رحمة الله ،،
حقيقه الصور لا تظهر لدي لا اعلم ما هو السبب ، على العموم طالما الارسال لديك يعمل بشكل صحيح و يتم ارسال كل شيء ما عدى المحتوى ،، فهذا يدل ان لديك مشكله في جزئية المحتوى :
لا اعلم ماذا تقصد بـ Text و ماذا سترجع لك من بيانات ، و هي غالبا ترجع بيانات فارغه لذلك من الطبيعي ان تجد محتوى الرساله فارغ فالقريدفيو ليست textBox اذا كيف سنقوم بحلها ، بما انك تتعامل مع محتوى ايميل فاما اترسل له نص عادي او كود Html ، و بما انه جدول سنصل الى فكرة تحويل القريدفيو الى جدول html ، طبعا بحثت بالانترنت و حصلت على هذه النتائج ممكن تستفيد منها :
http://stackoverflow.com/questions/16008...-html-page
http://www.c-sharpcorner.com/UploadFile/...n-C-Sharp/
و هذا كود قمت بتحويله من سي شارب الى فيجول بيسك :
بعد ان ندرج القيمة الراجعه من الـ Function السابقة نرسلها الى Body .
الان فقط يبقى عليك فقط الاشارة الى الكائن email بان محتوى الرسالة كود html وليس نص عادي بهذه الطريقة :
حقيقه الصور لا تظهر لدي لا اعلم ما هو السبب ، على العموم طالما الارسال لديك يعمل بشكل صحيح و يتم ارسال كل شيء ما عدى المحتوى ،، فهذا يدل ان لديك مشكله في جزئية المحتوى :
email.Body = DataGridView1.Text
لا اعلم ماذا تقصد بـ Text و ماذا سترجع لك من بيانات ، و هي غالبا ترجع بيانات فارغه لذلك من الطبيعي ان تجد محتوى الرساله فارغ فالقريدفيو ليست textBox اذا كيف سنقوم بحلها ، بما انك تتعامل مع محتوى ايميل فاما اترسل له نص عادي او كود Html ، و بما انه جدول سنصل الى فكرة تحويل القريدفيو الى جدول html ، طبعا بحثت بالانترنت و حصلت على هذه النتائج ممكن تستفيد منها :
http://stackoverflow.com/questions/16008...-html-page
http://www.c-sharpcorner.com/UploadFile/...n-C-Sharp/
و هذا كود قمت بتحويله من سي شارب الى فيجول بيسك :
كود :
Private Function DataGridtoHTML(dg As DataGridView) As StringBuilder
Dim strB As New StringBuilder()
'create html & table
strB.AppendLine("<html><body><center><" + "table border='1' cellpadding='0' cellspacing='0'>")
strB.AppendLine("<tr>")
'cteate table header
For i As Integer = 0 To dg.Columns.Count - 1
strB.AppendLine("<td align='center' valign='middle'>" + dg.Columns(i).HeaderText + "</td>")
Next
'create table body
strB.AppendLine("<tr>")
For i As Integer = 0 To dg.Rows.Count - 1
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>")
Return strB
End Functionبعد ان ندرج القيمة الراجعه من الـ Function السابقة نرسلها الى Body .
الان فقط يبقى عليك فقط الاشارة الى الكائن email بان محتوى الرسالة كود html وليس نص عادي بهذه الطريقة :
كود :
email.IsBodyHtml = True
email.BodyEncoding = System.Text.Encoding.UTF8
اسم معرفي : محمد يحيى