[اليوم السابع]

(18-08-19, 06:04 AM)سعود كتب : اخي الكريم صاحب السؤال .
لديك الان عدة نقاط وقد اجتمعت:
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 


شكرا لك ياغالي طب هل فيه طريقه ان انا ارسل اميل من اكثر من تكست بوكس يعني محتوي الرساله يكون في تكست بوكس 1 و2 و 3 ويتم تجميع ما في داخلهم ويرسلهم الي