اخي الكريم صاحب السؤال .
لديك الان عدة نقاط وقد اجتمعت:
1-بيانات بالقريد من اي مصدر.
2-يتم تصديرها لملف نصي بمشارك الاخ الكريم.
3-كود ارسال الملف النصي للبريد.
من وجهة نظري بقي فقط التجربة من قبلك.
اجمع الافكار في مشروع واحد.
لديك الان عدة نقاط وقد اجتمعت:
1-بيانات بالقريد من اي مصدر.
2-يتم تصديرها لملف نصي بمشارك الاخ الكريم.
3-كود ارسال الملف النصي للبريد.
من وجهة نظري بقي فقط التجربة من قبلك.
اجمع الافكار في مشروع واحد.
وهذا كلاس الفورم بالكامل
PHP كود :
Imports System.IO
Imports System.Net.Mail
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim Sw As New StreamWriter(TextBox1.Text.Trim & ".txt", True) ' تعريف نسحة من ستريم رايتر بيكتب في الملف النصي وكلمة ترو حتى يضيف على ماهو موجود في الملف
For i As Integer = 0 To DataGridView1.Rows.Count - 2 ' الرقم 2 لانه يوجد صف فارغ في الداتا غرايد
Dim str As String = DataGridView1.Rows(i).Cells(0).Value.ToString() & " -- " & DataGridView1.Rows(i).Cells(1).Value.ToString() & " -- " & DataGridView1.Rows(i).Cells(2).Value.ToString()
Sw.WriteLine(str) ' اكتب سطرا يحتوي على جملة البيانات للبيرسون
Next
Sw.Close() ' اغلاق الملف بعد الاضافة او الكتابة
MsgBox("تم الحفظ بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i As Integer = 0 To 10
DataGridView1.Rows.Add(i, "Name: " & i, "Phone: " & i)
Next
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim att As New Attachment("f.txt")
Dim msg As New MailMessage
With msg
.From = New MailAddress("s@gmail.com")
.To.Add("s@hotmail.com")
.Subject = " مشروع بمرفق"
.BodyEncoding = UTF8Encoding.UTF8
.IsBodyHtml = True
.Body = "Message with attachment ...."
.Attachments.Add(att)
End With
Dim sm As New SmtpClient("smtp.gmail.com", "587")
sm.EnableSsl = True
sm.Credentials = New System.Net.NetworkCredential("s@gmail.com", "7")
Try
sm.Send(msg)
'Response.Write("<h1>تم ارسال رسالتك الينا شكرا لك</h1>")
MsgBox("Sent", MsgBoxStyle.Information, "")
Catch ex As Exception
'Response.Write(Err.Description)
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
End Sub
End Class
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
