(30-07-19, 02:18 AM)asemshahen5 كتب : اخي العزيز ضع مثال ليتم التعديل عليه .

(30-07-19, 02:30 AM)اسامه الهرماوي كتب : ضع ملف التعديل نفسة وليست صورة.

(30-07-19, 02:37 AM)asemshahen5 كتب : هذا كود ارسال رسالة الى ايميل :

PHP كود :

   Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("Asem6600@Hotmail.com", "passsword")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.live.com"
            e_mail = New MailMessage()
            e_mail.From = New MailAddress("Asem6600@Hotmail.com")
            e_mail.To.Add("Asem6600@Hotmail.com")
            e_mail.Subject = "ERROR"
            e_mail.IsBodyHtml = False
            e_mail.Body = rtfError.Text '& TextDataFormat.Text
            Smtp_Server.Send(e_mail)
            MsgBox("Mail Sent Thanks Progrum Well pe Close")
            Close()
        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try
    End Sub 


ماذا بقي عندك اعمل قائمة باسماء و عناوين المرسل اليهم في قاعدة بيانات و عرف متغيرين واحد من نوع ستريغ و واحذ انتجر و ضع مؤقت على الفورم بوقت تحدده انت من حاصية انترفل كل 1000 تعبر عن ثانية ضع بالمؤقت المتغير الرقمي يزيد بعدد 1 و حسب الرقم يتم اختيار المقابل له من عنوان المرسل و من ثم يعمل ارسال و هكذا .

(30-07-19, 02:38 AM)اسامه الهرماوي كتب : اتبع

وهذا هنا في المنتدي:
اتبع

(30-07-19, 02:38 AM)اسامه الهرماوي كتب : اتبع

وهذا هنا في المنتدي:
اتبع

(30-07-19, 03:42 AM)asemshahen5 كتب : اقرء هذه الاكواد و تمعن بها فيها ما تريد :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'ListBox1.Items.Add-تعبئة قائمه البريد المرسل له '
        ListBox1.Items.Add("asem6600@hotmail.com")
        ListBox1.Items.Add("asemshahen5@gmail.com")
    End Sub
    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Timer1.Interval = 1000
        'Label6''ليبل جديد يعرض قيمة التراك بار'
        Label6.Text = TrackBar1.Value
        'Timer1.Interval''زيادة عدد الثواني حسب التراك بار'
        Timer1.Interval = Timer1.Interval * TrackBar1.Value
        'Label7''ليبل جديد يعرض كل كم ثانية تريد الارسال الى قائمة المرسل لهم'
        Label7.Text = " [ " & Val(Timer1.Interval / 1000) & " ] ثانية"
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        'ListBox1.Items-قائمه البريد المرسل له '
        For Each srt As String In ListBox1.Items
            SendMail(srt)
        Next
    End Sub
    Private Sub SendMail(SendToStr As String)
        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            'اسم مستخدم و كلمة المرور للايميل الذي تريد الارسال منه'
            Smtp_Server.Credentials = New Net.NetworkCredential("Asem6600@Hotmail.com", "password")
            'البورت المستخدم للارسال'
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            'ملقم البريد الالكتروني'
            Smtp_Server.Host = "smtp.live.com"
            e_mail = New MailMessage()
            'ايميل المرسل'
            e_mail.From = New MailAddress("Asem6600@Hotmail.com")
            'عنوان المرسل له'
            e_mail.To.Add(SendToStr)
            'موضوع الرسالة'
            e_mail.Subject = "مرحبا"
            e_mail.IsBodyHtml = False
            'جسم الرسالة'
            e_mail.Body = RichTextBox3.Text
            'امر الارسال'
            Smtp_Server.Send(e_mail)
            'رسالة نجاح الارسال'
            MsgBox("Mail Sent Thanks Progrum Well pe Close")
        Catch error_t As Exception
            'اذا وقع خطا في الارسال'
            MsgBox(error_t.ToString)
        End Try
    End Sub