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