[سعود]

اخي الكريم صاحب السؤال .
لديك الان عدة نقاط وقد اجتمعت:
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